Verwenden von Delphi zum Abrufen von Serieninformationen
Delphi erfreut sich zunehmender Beliebtheit bei Programmierbegeisterten wegen seiner hervorragenden visuellen Programmierung, der flexiblen Windows-API-Schnittstelle und den umfangreichen zugrunde liegenden Operationen.
In Delphi können Sie durch Aufrufen der Windows-API problemlos Systeminformationen abrufen, die uns beim Schreiben besserer Windows-Anwendungen helfen. Das folgende Programm wird unter Delphi3.0 für Windows 9x kompiliert und übergeben.
1. Verwenden Sie die Funktion „GetDriveType“, um Festplatteninformationen abzurufen
Lbl_DriveType:Tlabel;
DriveType:Word; //Laufwerkstypvariable definieren
DriveType:=GetDriveType(RootPathName); //Informationen zum Laufwerk entsprechend RootPathName abrufen
Fall DriveType von
DRIVE_REMOVABLE:Lbl_DriveType.Caption:= 'Diskettenlaufwerk';
DRIVE_FIXED : Lbl_DriveType.Caption:= 'Festplatte';
DRIVE_REMOTE: Lbl_DriveType.Caption:= 'Netzwerklaufwerk';
DRIVE_CDROM: Lbl_DriveType.Caption:= 'CD-Laufwerk';
DRIVE_RAMDISK: Lbl_DriveType.Caption:= 'Virtuelle Speicherfestplatte';
end; //Anzeige der Festplatteninformationen in Lbl_DriveType
2. Verwenden Sie die Funktion GlobalMemoryStatus, um Informationen zur Speichernutzung abzurufen
MemStatus: TMEMORYSTATUS; //Speicherstrukturvariablen definieren
Lbl_Memory:Tlabel;
MemStatus.dwLength := Größe von(TMEMORYSTATU??
S);
GlobalMemoryStatus(MemStatus); //Informationen zur Speichernutzung zurückgeben
Lbl_Memory.Caption := format('Gesamtspeicher: %d KB Verfügbarer Speicher: %dKB',[MemStatus.dwAvailPhys div 1024,MemStatus.dwTotalPhys div 1024]);
// Speicherinformationen in Lbl_Memory anzeigen
3. Verwenden Sie die Funktion „GetSystemInfo“, um CPU-Informationen abzurufen
SysInfo: TSYSTEMINFO;
Lbl_CPUName:Tlabel;
GetSystemInfo(SysInfo);//CPU-Informationen abrufen
Fall SysInfo.dwPRocessorType von
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']);