delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيفية صنع 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
تمكنك هذه الدالة من أخذ اسم القرص ة رقمه التسلسلي و و نوع النظام ....
اذن كانت هذه هي الدوال المستعملة بقية الشرح في المرفقات

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