Menggunakan Delphi untuk mendapatkan informasi seri
Delphi semakin disukai oleh para penggemar pemrograman karena pemrograman visualnya yang luar biasa, antarmuka Windows API yang fleksibel, dan operasi dasar yang kaya.
Di Delphi, dengan memanggil Windows API, Anda dapat dengan mudah memperoleh informasi sistem, yang membantu kami menulis aplikasi Windows yang lebih baik. Program berikut ini dikompilasi dan diteruskan di bawah Delphi3.0 Untuk Windows 9x.
1. Gunakan fungsi GetDriveType untuk mendapatkan informasi disk
Lbl_DriveType:Tlabel;
DriveType:Word; //Tentukan variabel tipe drive
DriveType:=GetDriveType(RootPathName); //Dapatkan informasi disk drive yang sesuai dengan RootPathName
kasus DriveType dari
DRIVE_REMOVABLE:Lbl_DriveType.Caption:= 'Floppy disk drive';
DRIVE_FIXED : Lbl_DriveType.Caption:= 'Harddisk';
DRIVE_REMOTE: Lbl_DriveType.Caption:= 'Drive jaringan';
DRIVE_CDROM: Lbl_DriveType.Caption:= 'drive CD';
DRIVE_RAMDISK: Lbl_DriveType.Caption:= 'Memori disk virtual';
end; //Menampilkan informasi disk di Lbl_DriveType
2. Gunakan fungsi GlobalMemoryStatus untuk memperoleh informasi penggunaan memori
MemStatus: TMEMORYSTATUS; //Tentukan variabel struktur memori
Lbl_Memori:Tlabel;
MemStatus.dwLength := ukuran(TMEMORYSTATU??
S);
GlobalMemoryStatus(MemStatus); //Mengembalikan informasi penggunaan memori
Lbl_Memory.Caption := format('Total memori: %d KB Memori yang tersedia: %dKB',[MemStatus.dwAvailPhys div 1024,MemStatus.dwTotalPhys div 1024]);
//Menampilkan informasi memori di Lbl_Memory
3. Gunakan fungsi GetSystemInfo untuk mendapatkan informasi CPU
Info Sistem: TSYSTEMINFO;
Lbl_CPUNama:Tlabel;
GetSystemInfo(SysInfo);//Dapatkan informasi CPU
kasus SysInfo.dwPRocessorType dari
PROCESSOR_INTEL_386:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwJumlah Prosesor,'Intel80386']);
PROCESSOR_INTEL_486:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwJumlah Prosesor, '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']);