Programmer4Ever
01-03-2010, 11:36 AM
لطالما لاحظت هذه النافذة و التي تظهر معلومات حول القرص المراد معرفة خصائصه
http://img103.herosh.com/2010/03/01/858837630.png
الذي نحن بصدد العمل عليه هو صنع برنامج يعمل على أخذ معلومات كالتي تظهر في الصورة أعلاه
أول شيئ هو انشاء مشروع جديد من نوع VCL واضافة هذه المجموعة من العناصر
ComboboxEX,Bevels,chart,Buttons,labels,ImageList,S hapes
http://img101.herosh.com/2010/03/01/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):Boolea n
تقوم هذه الدالة بتغيير اسم القرص اذا أرجعت TRUE
GetDiskFreeSpaceEX(DirectoryName :Pchar ;var FreeBytes,TotalBytes;
TotalNumberofbytes:PlargeInteger):Boolean;
تقوم هذه الدالة باعطائك معلومات حول المساحة الحرة و المساحة الكاملة الخاصة بالقرص
ShellExecute(Hwnd:Thandle,Operation,FileName,Param eters,Directory:Pchae;ShowCMD:Integer)
تقوم هذه الدالة بتشغيل البرنامج المراد تشغياه حسب المعطيات
GetvolumeInformation(RootpathName :Pchar ;VolumenameBuffer :Pchar ;Volumenamesize :Cardinal;VolumeserialNumber:Pdword;varMaxCompLeng th,FileSystemFlages:Dword;FilesystemBuffer:Pchar;F ilesystemBuffersize:Dword):Boolean
تمكنك هذه الدالة من أخذ اسم القرص ة رقمه التسلسلي و و نوع النظام ....
اذن كانت هذه هي الدوال المستعملة بقية الشرح في المرفقات
http://img103.herosh.com/2010/03/01/858837630.png
الذي نحن بصدد العمل عليه هو صنع برنامج يعمل على أخذ معلومات كالتي تظهر في الصورة أعلاه
أول شيئ هو انشاء مشروع جديد من نوع VCL واضافة هذه المجموعة من العناصر
ComboboxEX,Bevels,chart,Buttons,labels,ImageList,S hapes
http://img101.herosh.com/2010/03/01/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):Boolea n
تقوم هذه الدالة بتغيير اسم القرص اذا أرجعت TRUE
GetDiskFreeSpaceEX(DirectoryName :Pchar ;var FreeBytes,TotalBytes;
TotalNumberofbytes:PlargeInteger):Boolean;
تقوم هذه الدالة باعطائك معلومات حول المساحة الحرة و المساحة الكاملة الخاصة بالقرص
ShellExecute(Hwnd:Thandle,Operation,FileName,Param eters,Directory:Pchae;ShowCMD:Integer)
تقوم هذه الدالة بتشغيل البرنامج المراد تشغياه حسب المعطيات
GetvolumeInformation(RootpathName :Pchar ;VolumenameBuffer :Pchar ;Volumenamesize :Cardinal;VolumeserialNumber:Pdword;varMaxCompLeng th,FileSystemFlages:Dword;FilesystemBuffer:Pchar;F ilesystemBuffersize:Dword):Boolean
تمكنك هذه الدالة من أخذ اسم القرص ة رقمه التسلسلي و و نوع النظام ....
اذن كانت هذه هي الدوال المستعملة بقية الشرح في المرفقات