سورس کدهای ویژوال بیسیک - تشخیص مسیر ویندوز

در اینجا ما چند کار انجام می دهیم ابتدا تعریف API مورد نظر بعد ایجاد بافر و سپس به دست آوردن مسیر ویندوز.

برای پیدا کردن مسیر ویندوز از تابع GetWindowsDirectory بهره می بریم تابع را در قسمت General به صورت زیر تعریف کنید:

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

حال باید بافر ایجاد کنیم؛ ایجاد کردن بافر کار سختی نیست فقط اسمش غلط انداز است کافی است یک فاصله 255 تایی در متغیر رشته ای ذخیره کنیم.(StrBuffer=Space(255))

یک دکمه بر روی فرم قرار دهید و در رویداد کلیک دکمه ی روی فرم بنویسید:

Dim StrBuffer As String

1-StrBuffer=Space(255)

(2-WinPath=GetWindowsDirectory(StrBuffer, 255

(3-StrBuffer = Left$(StrBuffer, WinPath

Print StrBuffer

خط اول بافر ایجاد می کند. در خط دوم تابع مسیر ویندوز را در بافر StrBuffer ذخیره می کند و طول مسیر ویندوز را در WinPath قرار می دهد و در نهایت تابع Left$ نام ویندوز را از فاصله ها استخراج می کند.

*شماره ها فقط برای آموزش است آنها را در کدنویسی وارد نکنید.