การใช้ Delphi เพื่อรับข้อมูลซีรีส์
Delphi ได้รับความนิยมมากขึ้นเรื่อยๆ จากผู้ที่ชื่นชอบการเขียนโปรแกรมในด้านการเขียนโปรแกรมด้วยภาพที่ยอดเยี่ยม อินเทอร์เฟซ Windows API ที่ยืดหยุ่น และการดำเนินการพื้นฐานที่หลากหลาย
ใน Delphi คุณสามารถรับข้อมูลระบบได้อย่างง่ายดายโดยการเรียก 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 := รูปแบบ ('หน่วยความจำทั้งหมด: %d KB หน่วยความจำที่มีอยู่: %dKB',[MemStatus.dwAvailPhys div 1024,MemStatus.dwTotalPhys div 1024]);
//แสดงข้อมูลหน่วยความจำใน Lbl_Memory
3. ใช้ฟังก์ชัน GetSystemInfo เพื่อรับข้อมูล CPU
SysInfo: TSYSTEMINFO;
Lbl_CPUName:Tlabel;
GetSystemInfo(SysInfo);//รับข้อมูล CPU
กรณี SysInfo.dwPRocessorType ของ
PROCESSOR_INTEL_386:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNumber ของโปรเซสเซอร์,'Intel80386']);
PROCESSOR_INTEL_486:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNumber ของโปรเซสเซอร์, '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']);