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



الملفات المرفقة
.rar   Volume Property.rar (الحجم : 366.6 KB / التحميلات : 486)
الرد
#2
السلام عليكم
مرحبا بالأخ Programmer4Ever
بداية موفقة وبرنامج رائع
استخدم وسم Code كذلك لتبدو الأكواد أحسن
اقتراحات:
- تسيير الخطأ تحديد القرص :A في حالة عدم وجود قرص مرن
- إزالة مشكلة ظهور رموز غريبة تظهر في TEdit أسفل الواجهة
في انتظار المزيد، بالتوفيق.
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...
الرد
#3
أنا أعلم هذا الرسوم الغريبة تعود لللخطأ أثناء تلقي المعلومات و مع الأسف لم أتمكن من تحديد اذا كان القرص يشتغل أم لا ان كنت تعرف فأفدني و جزاك الله خيرا
الرد
#4
جرب هذا البرنامج
أتمنى أن يفيدك
أنا أعمل على تطوير نسخة أحدث منه
ملاحظة : بعض المزايا في الواجهة تحتاج لدلفي 2010 و لكن هذا لن يؤثر على الوظيفة الأساسية للبرنامج


الملفات المرفقة
.rar   QDI.rar (الحجم : 8.08 KB / التحميلات : 91)
الرد
#5
ممكن لالو تكرمت الكود على d7
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف