كيفية صنع Volume Property

[Programmer4Ever]

لطالما لاحظت هذه النافذة و التي تظهر معلومات حول القرص المراد معرفة خصائصه


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

ليصبح الشكل كالصورة أعلاه
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

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

[kachwahed]

السلام عليكم
مرحبا بالأخ Programmer4Ever
بداية موفقة وبرنامج رائع
استخدم وسم Code كذلك لتبدو الأكواد أحسن
اقتراحات:
- تسيير الخطأ تحديد القرص :A في حالة عدم وجود قرص مرن
- إزالة مشكلة ظهور رموز غريبة تظهر في TEdit أسفل الواجهة
في انتظار المزيد، بالتوفيق.

[Programmer4Ever]

أنا أعلم هذا الرسوم الغريبة تعود لللخطأ أثناء تلقي المعلومات و مع الأسف لم أتمكن من تحديد اذا كان القرص يشتغل أم لا ان كنت تعرف فأفدني و جزاك الله خيرا

[007GB]

جرب هذا البرنامج
أتمنى أن يفيدك
أنا أعمل على تطوير نسخة أحدث منه
ملاحظة : بعض المزايا في الواجهة تحتاج لدلفي 2010 و لكن هذا لن يؤثر على الوظيفة الأساسية للبرنامج

[khalmoh1971]

ممكن لالو تكرمت الكود على d7