وبلاگ رسمی مهدی غلامی میاندهی

احتمالاً تا به حال برایتان پیش آمده است كه بخواهید بدونید درایو ویندوز (درایوی كه ویندوز در آن نصب شده است) كسی كه دارد از برنامه ی شما استفاده می كند كدام درایو است؟
در اینجا من یك تابع API معرفی می كنم كه كارش همینه.
فقط كافی است یك ماژول به برنامه ی خود اضافه كنید و كد زیر رو در اون كپی كنید:

Option Explicit

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

Public Function WinDrive() As String
Dim strDrive As String
strDrive = Space(500)
Call GetWindowsDirectory(strDrive, Len(strDrive))
strDrive = Left(strDrive, 3)
WinDrive = strDrive
End Function

حالا دیگه هر جای برنامه كه نیاز به درایو ویندوز داشتید فقط كافی است كه از كلمه ی WinDrive استفاده كنید.

البته این ماژول خیلی بدرد ویروس نویسان میخوره.