Delphi é cada vez mais preferido pelos entusiastas da programação por sua excelente programação visual, interface API do Windows flexível e operações subjacentes ricas.
No Delphi, chamando a API do Windows, você pode obter facilmente informações do sistema, o que nos ajuda a escrever melhores aplicativos do Windows. O programa a seguir é compilado e passado em Delphi3.0 para Windows 9x.
1. Use a função GetDriveType para obter informações do disco
Lbl_DriveType:Tlabel;
DriveType:Word; //Define a variável do tipo de unidade
DriveType:=GetDriveType(RootPathName); //Obtém as informações da unidade de disco correspondente a RootPathName);
caso DriveType de
DRIVE_REMOVABLE:Lbl_DriveType.Caption:= 'Unidade de disquete';
DRIVE_FIXED: Lbl_DriveType.Caption:= 'Disco rígido';
DRIVE_REMOTE: Lbl_DriveType.Caption:= 'Unidade de rede';
DRIVE_CDROM: Lbl_DriveType.Caption:= 'unidade de CD';
DRIVE_RAMDISK: Lbl_DriveType.Caption:= 'Disco virtual de memória';
end; //Exibe as informações do disco em Lbl_DriveType
2. Use a função GlobalMemoryStatus para obter informações de uso de memória
MemStatus: TMEMORYSTATUS; //Definir variáveis de estrutura de memória
Lbl_Memory:Tlabel;
MemStatus.dwLength:= tamanho de(TMEMORYSTATU??
S);
GlobalMemoryStatus(MemStatus); //Retorna informações de uso de memória
Lbl_Memory.Caption := format('Memória total: %d KB Memória disponível: %dKB',[MemStatus.dwAvailPhys div 1024,MemStatus.dwTotalPhys div 1024]);
//Exibe informações de memória em Lbl_Memory
3. Use a função GetSystemInfo para obter informações da CPU
SysInfo: TSYSTEMINFO;
Lbl_CPUName:Tlabel;
GetSystemInfo(SysInfo); //Obtém informações da CPU
caso SysInfo.dwPRocessorType de
PROCESSOR_INTEL_386:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNúmero de processadores,'Intel80386']);
PROCESSOR_INTEL_486:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNúmero de processadores, 'Intel 80486']);
PROCESSOR_INTEL_PENTIUM:Lbl_CPUName.Caption:=formato('%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']);
end;//Exibe as informações da CPU em Lbl_CPUName.