Операцион тизим ва қурилмалар билан ишлаш Компьютер имкониятлари тўғрисидаги тизимли маълумотлар

if BRes then laUserName_.Caption := StrPas(PRes);
// Процессор
GetSystemInfo(lpSystemInfo);
laCPU_.Caption := 'класса x' + IntToStr
(lpSystemInfo.dwProcessorType);
end;

Энди экран параметрларига ўтамиз. Бу ерда бизWin32 API функцияси ва стандарт VCL объектларидан фойдаланамиз. Экран ўлчамларини аниқлаш учун TScreen объектидан фойдаланамиз. Унда Width (эни) ва Height-бўйи хусусиятлари мавжуд. Қолган параметрларни GetDeviceCaps функцияси ёрдамида аниқлаймиз.

// Видеотизим тўғрисидаги маълумотлар procedure TfmMain.VideoInfo; var DC : hDC; c : string; begin // Экран ўлчами laWidth_.Caption := IntToStr(Screen.Height); laHeight_.Caption := IntToStr(Screen.Width); // Ранг қуввати тўғрисидаги маълумотлар. DC := CreateDC('DISPLAY',nil,nil,nil); laBitsPerPixel_.Caption := IntToStr(GetDeviceCaps(DC,BITSPIXEL)); laPlanes_.Caption := IntToStr(GetDeviceCaps(DC,PLANES)); case GetDeviceCaps(DC,BITSPIXEL) of 8 : c := '256 цветов'; 15 : c := 'Hi-Color / 32768 хил ранг'; 16 : c := 'Hi-Color / 65536 хил ранг '; 24 : c := 'True-Color / 16 млн хил ранг '; 32 : c := 'True-Color / 32 бит'; end; laColors_.Caption := c; DeleteDC(DC); end;

Шунингдек, хотира тўғрисидаги маълумотлар ҳам биз учун қзиқарли бўлади. Бунда бизга хотиранинг физик ва виртуал хажми тўғрисидаги маълумотларни олишга имкон берувчи GlobalMemoryStatus функцияси қўл келади.

// Хотира тўғрисидаги маълумотлар procedure TfmMain.MemoryInfo;