السلام عليكم
شهر مبارك، وكل عام وانتم بخير. :)
هذة بعض دوال API التي من الممكن ان تكون مفيدة:
-----------------------------------------------------------------------
1- GetDrivetype
الغرض من الدالة : الحصول على نوع السواقة
(Drive: Floppy, Harddisk, CDROM, RAM disk, Remote (Network) Drive)
التصريح : معرف مسبقا، لا داعي لأستخدامه!!
;function GetDriveType(lpRootPathName: PChar): Unit
lpRootPathName : حرف السواقة، مثل :C
LongWord : Unit
القيمة المعادة :
0: لايمكن تحديد نوع السواقة.
1: لايوجد جذر(root directory) للسواقة.
2: السواقة من نوع المرن. ;(':Result := GetDriveType('A
3: السواقة من نوع قرص الصلب.
4: السواقة من نوع قرص شبكة.
5: السواقة من نوع CDROM
6: السواقة من نوع RAM disk.
-----------------------------------------------------------------------
2- ShellExecute
الغرض من الدالة : (فتح/طباعة) ملف مقترن ببرنامج
او (فتح/أستعراض) مجلد Folder.
التصريح : ***( يجب اولا أستخدام الوحدة ShellApi )***
التصريح موجود في الوحدة ShellApi وأسهل طريقة للوصول للتصريح بضغط على
المفتاح Ctrl + النقر بالماوس على الكلمة ShellExecute(كرر الخطوة مرة أخرى).
أمثلة
-----:
1- فتح ملف C:MyFile.txt بأستخدام الأمر open
;(ShellExecute(Handle,'open','c:MyFile.txt',nil,nil,SW_SHOWNormal
2- طباعة الملف السابق في الخلفية background بأستخدام الأمر print
;(ShellExecute(Handle,'print','c:MyFile.txt',nil,nil,SW_Hide
3- لفتح مجلد folder في جهاز كمبيوتر MyComputer
;(ShellExecute(Handle,'open','c:Windows',nil,nil,SW_SHOWNormal
4- لفتح مجلد folder في مستكشف explore
;(ShellExecute(Handle,'explore','c:Windows',nil,nil,SW_SHOWNormal
ملاحظة
-----: يمكن أستخدام الدالة WinExec المبنية في الدلفي لتشغيل البرامج :
;(WinExec('C:WindowsNotePad.exe',SW_SHOWNORMAL
---------------------------------------------------------------------------
3- GetTickCount
الغرض من الدالة : معرفة الفترة المنقضية منذ آخر مرة أقلع فيها Windows
وتقدر الفترة بالملي ثانية.
التصريح : معرف مسبقا، لا داعي لأستخدامه!!
;function GetTickCount: DWORD
مثال
----: ;((ShowMessage(intToStr(GetTickCount
---------------------------------------------------------------------------
للفائدة فقط لاغير...