كيفية صنع Volume Property - نسخة قابلة للطباعة

لطالما لاحظت هذه النافذة و التي تظهر معلومات حول القرص المراد معرفة خصائصه
[صورة: 858837630.png]

الذي نحن بصدد العمل عليه هو صنع برنامج يعمل على أخذ معلومات كالتي تظهر في الصورة أعلاه
أول شيئ هو انشاء مشروع جديد من نوع VCL واضافة هذه المجموعة من العناصر
ComboboxEX,Bevels,chart,Buttons,labels,ImageList,Shapes
[صورة: 403621165.png]

ليصبح الشكل كالصورة أعلاه
1. مخطط دائري يظهر التقسيمات (المساحة المستعملة ، المساحة الحرة).
2. مركب من نوع comboboxex محمل بالأحجام الموجودة على جهازك الخاص مرفق بصور تم تحميلها عن طريق Imagelist.
3. يظهر نوع الحجم المختار من القائمة.
4. يظهر نوع النظام المتعلق بالحجم.
5. يظهر سعة الحجم بالبايت.
6. يظهر سعة الحجم بعد تحويلها الى KB أو MB أو GB.
7. عند الضغط غلى الزر تظهر نافذة تنظيف الحجم من الزوائد.
8. علبة تظهر اسم الحجم و لكن عند التعديل عليها و الضغط على الزر 9 يتغير اسم الحجم حسب ما كتبت.
9. تغييير اسم الحجم
10. الخروج

كما يعلم الجميع أن جميع الدوال التي يمكن استخدامها هي دوال مرجعية محتواة في المكتبات DLL الموجودة في الوينداوز
لذلك الدوال المستعملة هي

كود :
GetDrivetype(RootPathName :Pchar) :UINT

تمكنك هذه الدالة من التعرف على نوع القرص و تر جع البنية التالية

كود :
DRIVE_REMOVABLE
DRIVE_FIXED
DRIVE_REMOTE
DRIVE_CDROM
DRIVE_RAMDISK

كود :
SetVolumeLabel(RootPathName,Pathname:Pchar):Boolean

تقوم هذه الدالة بتغيير اسم القرص اذا أرجعت TRUE

كود :
GetDiskFreeSpaceEX(DirectoryName :Pchar ;var FreeBytes,TotalBytes;

كود :
TotalNumberofbytes:PlargeInteger):Boolean;

تقوم هذه الدالة باعطائك معلومات حول المساحة الحرة و المساحة الكاملة الخاصة بالقرص

كود :
ShellExecute(Hwnd:Thandle,Operation,FileName,Parameters,Directory:Pchae;ShowCMD:Integer)

تقوم هذه الدالة بتشغيل البرنامج المراد تشغياه حسب المعطيات

كود :
GetvolumeInformation(RootpathName :Pchar ;VolumenameBuffer :Pchar ;Volumenamesize :Cardinal;VolumeserialNumber:Pdword;varMaxCompLength,FileSystemFlages:Dword;FilesystemBuffer:Pchar;FilesystemBuffersize:Dword):Boolean

تمكنك هذه الدالة من أخذ اسم القرص ة رقمه التسلسلي و و نوع النظام ....
اذن كانت هذه هي الدوال المستعملة بقية الشرح في المرفقات