Private Declare Function GetDoubleClickTime Lib "user32.dll" () As Long
اين تابع زمان Double Click را برميگرداند
اگر تابع با خطايي مواجه شود مقدار بر گشتي صفر و گر تابع کار خود را با موفقيت به پايان برساند مقدار بازگشتي حد اکثر زمان مورد قبول بين دو دابل کليک خواهد بود
Private Declare Function GetDriveType Lib "kernel32.dll" (ByVal nDriev as String) As Long
آين تابع نوع يک درايو را مشخص مي کند
با توجه به مقدار برگشتي يکي از حالت هاي زير ممکن است پيش آيد:
0 : تابع با خطا مواجه شده است
1 : درايو مورد نظر وجود ندارد
2 : قابل حمل
3 : ثابت
4 : درايو شبکه ( مشترک )
5 : رم ديسک
6 : سي دي رام
nDrive : اين متغير به مسير درايو اشاره مي کند ( براي مثال : \:C )
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Declare Function GetFileAttributesA Lib "kernel32.dll" (ByVal lpFileName As String) As Long
اين تابع خصوصيات يك فايل (Read Only,Archive,Hidden,…) را برميگرداند ( در ويژوال بيسيک تابع GetAttr همين کار را انجام مي دهد )
اگر تابع با خطايي مواجه شود مقدار بر گشتي صفر و گر تابع کار خود را با موفقيت به پايان برساند مقدار بازگشتي يک عدد غير صفر خواهد بود که بيانگر خصوصيات فايل است (ثابت هاي زير به شما کمک خواهد کرد)
lpFileName : مسير فايل مورد نظر
FILE_ATTRIBUTE_ARCHIVE : فايل آرشيو است
FILE_ATTRIBUTE_COMPRESSED : فايل فشرده است
FILE_ATTRIBUTE_DIRECTORY : فايل مورد نظر دايراکتوري است ( دايراکتوري ها در واقع يک فايل ساده هستند که بيت خصوصيت دايراکتوري آنها يک است )
FILE_ATTRIBUTE_HIDDEN : فايل مخفي
FILE_ATTRIBUTE_NORMAL : خصوصيات طبيعي
FILE_ATTRIBUTE_READONLY : فقط خواندني
FILE_ATTRIBUTE_SYSTEM : فايل سيستمي
FILE_ATTRIBUTE_TEMPORARY : فايل موقت
Private Declare Function GetFileSize Lib "kernel32.dll" (ByVal hFile As Long, ByVal lpFileSizeHight As Long) As Long
اين تابع حجم يک فايل را به بايت بر مي گرداند
اگر تابع کار خود را با موفقيت انجام دهد مقدار بر گشتي حجم فايل و در غير اينصورت مقدار بر گشتي 1- خواهد بود
hFile : يک اشاره گر از فايل مورد نظر ( اين اشاره گر را مي توانيد با استفاده از تابع CreateFile ايجاد کنيد )
lpFileSize : مقدار اين بافر توسط تابع مقدار دهي مي شود و حاوي حجم فايل مورد نظر خواهد بود
Private Declare Function GetFocus Lib "user32.dll" () As Long
اين تابع هندل (HWnd ) پنجره داراي فوکوس را به دست مي آورد
اگر تابع با خطايي مواجه شود مقدار بازگشتي صفر و در غير اينصورت مقدار بازگشتي هندل پنجره داراي فوکوس خواهد بود
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
اين تابع هندل فرم پنجره را برميگرداند.
اگر تابع با خطايي مواجه شود مقدار بر گشتي صفر و گر تابع کار خود را با موفقيت به پايان برساند مقدار بازگشتي يک عدد غير صفر خواهد بود که هندل پنجره فعال است
Private Const GFSR_SYSTEMRESOURCES = 0
Private Const GFSR_GDIRESOURCES = 1
Private Const GFSR_USERRESOURCES = 2
Private Declare Function GetFreeResources Lib "rsrc32.dll" Alias "_MyGetFreeSystemResources32@4" (ByVal lWhat As Long) As Long
اين تابع ميزان منابع آزاد سيستمي را بر مي گرداند
اگر تابع با خطايي مواجه شود مقدار بازگشتي صفر و در غير اينصورت مقدار بازگشتي ميزان آزاد منابع مورد نظر خواهد بود
lWhat : اين متغير مشخص مي کند تابع بايد ميزان منابع آزاد کدام قسمت را بر گرداند
GFSR_SYSTEMRESOURCES : منابع آزاد سيستمي
GFSR_GDIRESOURCES : منابع آزاد گرافيکي
GFSR_USERRESOURCES : منابع آزاد کاربر
Private Const GR_GDIOBJECTS = 0
Private Const GR_USEROBJECTS = 1
Private Declare Function GetGuiResources Lib "user32.dll" (ByVal hProcess As Long, ByVal uiFlags As Long) As Long
اين تابع تعداد کنترل هاي مورد استفاده يک پروسه را بر مي گرداند
اگر تابع با خطايي مواجه شود مقدار بازگشتي صفر و در غير اينصورت مقدار بازگشتي ميزان منابع مورد استفاده پروسه خواهد بود
hProcess : يک اشاره گر از پروسه مورد نظر (اين اشاره گر را با استفاده از توابعي مانند GetCurrentProcess مي توانيد به دست آوريد)
uiFlags : اين متغير مشخص مي کند تابع بايد ميزان منابع آزاد کدام قسمت را بر گرداند
GR_GDIOBJECTS : تعداد کنترل هاي گرافيکي را بر مي گرداند
GR_USEROBJECTS : تعداد کنترل هاي کاربر را بر مي گرداند
Private Declare Function GetKeyboardLayoutName Lib "user32.dll" (ByVal pwszKLID As String) As Long
اين تابع زبان جاري صفحه کليد را بر مي گرداند
اکر تابع با خطايي مواجه شود مقدار برگشتي صفر و در غير اينصورت مقدار برگشتي آن يک مقدار غير صفر خواهد بود
pwszKLID : اين متغير که توسط تابع مقدار دهي مي شود يک رشتهء 9 کاراکتري است که کد زبان کنوني صفحه کليد است
Private Declare Function GetLastError Lib "kernel32.dll" (ByVal dwErrCode As Long) As Long
اين تابع شماره آخرين خطايي را که در کامپيوتر رخ داده بر مي گرداند
گر تابع کار خود را با موفقيت به پايان برساند مقدار بازگشتي يک عدد غير صفر و اگر تابع با خطايي مواجه شود مقدار بر گشتي صفر خواهد بود
dwErrCode : اين بافر توسط تابع مقدار دهي مي شود و حاوي شماره خطاي آخرين خطاي سيستمي خواهد بود
Public Declare Function GetLogicalDrives Lib "kernel32.dll" () As Long
اين تابع ليستي از درايو هاي My Computer را بر مي گرداند.
اگر مقدار برگشتي تابع را با شماره درايو And کنيد و نتيجه بگيريد؛ آنگاه درايو مورد نظر موجود است. براي مثال اگر جواب GetLogicalDrives Or 1 صفر نباشد آنگاه درايو A موجود است يا اگر جواب GetLogicalDrives Or 3 صفر نباشد آنگاه درايو C موجود است
Private Declare Function GetMenu Lib "user32.dll" (ByVal hwnd As Long) As Long
اين تابع يک اشاره گر از يک منو را بر مي گرداند. (توجه داشته باشيد در اينجا منظور از منو تمام آيتم هايي است که در قسمت منوي يک پنجره ممکن است وجود داشته باشد ، مثل : File , Edit و غيره . براي گرفتن تک تک منوها بايد از تابع GetSubMenu استفاده کرد)
اگر تابع کار خود را با موفقيت انجام دهد مقدار برگشتي يک اشاره گر از منوي موزد نظر خواهد بود در غير اينصورت تابع مقدار صفر را برگشت خواهد داد
hwnd : هندل پنجره اي که منو در آن قرار دارد
Private Declare Function GetMenuItemCount Lib "user32.dll" (ByVal hMenu As Long) As Long
اين تابع يک اشاره گر از يک منو را مي گيرد و تعداد زير منو هاي آن را بر مي گرداند
اگر تابع با خطايي مواجه شود مقدار بر گشتي صفر و در غير اينصورت مقدار بازگشتي تعداد زير منو هاي منوي مورد نظر خواهد بود
hMenu : يک اشاره گر از منوي مورد نظر است که مي تواند توسط توابع GetMenu ( براي منو هاي عادي )و GetSysMenu ( براي منو هاي سيستمي ) به دست آيد