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

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

Қуйидаги дастур матнини кўрамиз. Uses бўлимидаги модулларга registry модулини қўшамиз. Public бўлимига процедуралар рўйхатини келтирамиз.

type TfmMain = class(TForm) ... procedure FormCreate(Sender: TObject); procedure Change(Sender: TObject); private { Private declarations } public { Public declarations } KeyboardDelay, KeyboardSpeed, ScreenSaveTimeOut : integer; procedure ParametersInfo; procedure ShowSomeInfo; procedure BIOSInfo(OS : string); procedure HardwareInfo; procedure MemoryInfo; procedure VideoInfo; procedure OSInfo; end; var fmMain: TfmMain; implementation uses Registry; {$R *.DFM}

Аввало компьютер тўғрисида маълумотларни оламиз. Компьютер номини аниқлаш учун GetComputerName функциясидан, фойдаланувчи номини аниқлаш учун GetUserName функциясидан, процессор тўғрисидаги маълумотларни олиш учун эса GetSystemInfo функциясидан фойдаланамиз.

// Компьютер тўғрисидаги маълумотлар. procedure TfmMain.HardwareInfo; var Size : cardinal; PRes : PChar; BRes : boolean; lpSystemInfo : TSystemInfo; begin // Компьютер номи Size := MAX_COMPUTERNAME_LENGTH + 1; PRes := StrAlloc(Size); BRes := GetComputerName(PRes, Size); if BRes then laCompName_.Caption := StrPas(PRes); // Фойдаланувчи номи Size := MAX_COMPUTERNAME_LENGTH + 1; PRes := StrAlloc(Size); BRes := GetUserName(PRes, Size);