Los entusiastas de la programación prefieren cada vez más Delphi por su excelente programación visual, su flexible interfaz API de Windows y sus ricas operaciones subyacentes.
En Delphi, al llamar a la API de Windows, puede obtener fácilmente información del sistema, lo que nos ayuda a escribir mejores aplicaciones de Windows. El siguiente programa está compilado y pasado bajo Delphi3.0 para Windows 9x.
1. Utilice la función GetDriveType para obtener información del disco.
Lbl_DriveType:Tlabel;
DriveType:Word; //Definir variable de tipo de unidad
DriveType:=GetDriveType(RootPathName //Obtiene la información de la unidad de disco correspondiente a RootPathName);
caso Unidad Tipo de
DRIVE_REMOVABLE:Lbl_DriveType.Caption:= 'Unidad de disquete';
DRIVE_FIXED: Lbl_DriveType.Caption:= 'Disco duro';
DRIVE_REMOTE: Lbl_DriveType.Caption:= 'Unidad de red';
DRIVE_CDROM: Lbl_DriveType.Caption:= 'Unidad de CD';
DRIVE_RAMDISK: Lbl_DriveType.Caption:= 'Disco virtual de memoria';
end; //Muestra la información del disco en Lbl_DriveType
2. Utilice la función GlobalMemoryStatus para obtener información sobre el uso de la memoria.
MemStatus: TMEMORYSTATUS; //Definir variables de estructura de memoria
Lbl_Memory:Tlabel;
MemStatus.dwLength := tamaño de(TMEMORYSTATU??
S);
GlobalMemoryStatus(MemStatus); //Devuelve información de uso de memoria
Lbl_Memory.Caption := format('Memoria total: %d KB Memoria disponible: %dKB',[MemStatus.dwAvailPhys div 1024,MemStatus.dwTotalPhys div 1024]);
//Mostrar información de la memoria en Lbl_Memory
3. Utilice la función GetSystemInfo para obtener información de la CPU
Información del sistema: TSYSTEMINFO;
Lbl_CPUName:Tlabel;
GetSystemInfo(SysInfo);//Obtener información de la CPU
caso SysInfo.dwPRocessorTipo de
PROCESSOR_INTEL_386:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNúmero de procesadores,'Intel80386']);
PROCESSOR_INTEL_486:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNúmero de procesadores, '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;//Muestra la información de la CPU en Lbl_CPUName.