استخدم دلفي للحصول على معلومات النظام

استخدام دلفي للحصول على معلومات السلسلة

يتم تفضيل دلفي بشكل متزايد من قبل المتحمسين للبرمجة بسبب برمجتها المرئية الممتازة، وواجهة Windows API المرنة، والعمليات الأساسية الغنية.

في دلفي، من خلال الاتصال بـ Windows API، يمكنك بسهولة الحصول على معلومات النظام، مما يساعدنا على كتابة تطبيقات Windows أفضل. تم تجميع البرنامج التالي وتمريره ضمن Delphi3.0 لنظام التشغيل Windows 9x.

1. استخدم الدالة GetDriveType للحصول على معلومات القرص

Lbl_DriveType:Tlabel;

DriveType:Word; // تحديد متغير نوع محرك الأقراص

DriveType:=GetDriveType(RootPathName); // احصل على معلومات محرك الأقراص المقابلة لـ RootPathName

حالة نوع محرك الأقراص

DRIVE_REMOVABLE:Lbl_DriveType.Caption:= 'محرك الأقراص المرنة'؛

DRIVE_FIXED: Lbl_DriveType.Caption:= 'القرص الصلب'؛

DRIVE_REMOTE: Lbl_DriveType.Caption:= 'محرك أقراص الشبكة'؛

DRIVE_CDROM: Lbl_DriveType.Caption:= 'محرك الأقراص المضغوطة'؛

DRIVE_RAMDISK: Lbl_DriveType.Caption:= 'قرص الذاكرة الظاهري'؛

end; // عرض معلومات القرص في Lbl_DriveType

2. استخدم الدالة GlobalMemoryStatus للحصول على معلومات استخدام الذاكرة

MemStatus: TMEMORYSTATUS; // تحديد متغيرات بنية الذاكرة

Lbl_Memory:Tlabel;

MemStatus.dwLength := حجم (TMEMORYSTATU؟؟

س)؛

GlobalMemoryStatus(MemStatus); // إرجاع معلومات استخدام الذاكرة

Lbl_Memory.Caption := format('إجمالي الذاكرة: %d كيلو بايت الذاكرة المتوفرة: %dKB',[MemStatus.dwAvailPhys div 1024,MemStatus.dwTotalPhys div 1024]);

// عرض معلومات الذاكرة في Lbl_Memory

3. استخدم وظيفة GetSystemInfo للحصول على معلومات وحدة المعالجة المركزية

معلومات النظام: TSYSTEMINFO؛

Lbl_CPUName:Tlabel;

GetSystemInfo(SysInfo);//احصل على معلومات وحدة المعالجة المركزية

حالة SysInfo.dwPRoccessorType

PROCESSOR_INTEL_386:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNumber Of Processors,'Intel80386']);

PROCESSOR_INTEL_486:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNumber Of Processors, 'Intel 80486']);

PROCESSOR_INTEL_PENTIUM:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNum)

berOfProcessors، 'Intel Pentium'])؛

PROCESSOR_MipS_R4000:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNumberOfProcessors, 'MIPS R4000']);

PROCESSOR_ALPHA_21064:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNumberOfProcessors, 'ALPHA 21064']);