Delphi пользуется все большей популярностью у энтузиастов программирования за превосходное визуальное программирование, гибкий интерфейс Windows API и богатые базовые операции.
В Delphi, вызывая Windows API, вы можете легко получить системную информацию, которая помогает нам писать более качественные приложения для Windows. Следующая программа скомпилирована и передана под Delphi3.0 для Windows 9x.
1. Используйте функцию GetDriveType для получения информации о диске.
Lbl_DriveType:Tlabel;
DriveType:Word; //Определение переменной типа диска
DriveType:=GetDriveType(RootPathName); //Получаем информацию о диске, соответствующую RootPathName;
корпус DriveТип
DRIVE_REMOVABLE:Lbl_DriveType.Caption:= 'Дисковод гибких дисков';
DRIVE_FIXED : Lbl_DriveType.Caption:= 'Жесткий диск';
DRIVE_REMOTE: Lbl_DriveType.Caption:= 'Сетевой диск';
DRIVE_CDROM: Lbl_DriveType.Caption:= 'CD-дисковод';
DRIVE_RAMDISK: Lbl_DriveType.Caption:= 'Виртуальный диск памяти';
end //Отображение информации о диске в Lbl_DriveType;
2. Используйте функцию GlobalMemoryStatus для получения информации об использовании памяти.
MemStatus: TMEMORYSTATUS; //Определение переменных структуры памяти;
Lbl_Memory:Tlabel;
MemStatus.dwLength := размер(TMEMORYSTATU??
С);
GlobalMemoryStatus(MemStatus); // Возвращаем информацию об использовании памяти.
Lbl_Memory.Caption := format('Общая память: %d КБ Доступная память: %dKB',[MemStatus.dwAvailPhys div 1024,MemStatus.dwTotalPhys div 1024]);
//Отображение информации о памяти в Lbl_Memory
3. Используйте функцию GetSystemInfo для получения информации о процессоре.
Системная информация: ЦИСТЕМИНФО;
Lbl_CPUName:Tlabel;
GetSystemInfo(SysInfo);//Получить информацию о процессоре
случай SysInfo.dwPROcessorType of
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 процессоров, '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']);
end;//Отображение информации о процессоре в Lbl_CPUName.