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

function DetectWinVersionStr: string;
const
VersStr: array[TWinVersion] of string = (
'Unknown',
'Windows 95',
'Windows 98',
'Windows ME',
'Windows NT 3',
'Windows NT 4',
'Windows 2000',
'Windows XP');
begin
Result := VersStr[DetectWinVersion];
end;


procedure TForm1.Button1Click(Sender: TObject);
var
ver: TWinVersion;
begin
Ver := DetectWinVersion;
Label1.Caption := IntToStr(Ord(DetectWinVersion));
Label2.Caption := DetectWinVersionStr;
end;


Аудиокарта ва видеокарта
Видеокартани аниқлаш


procedure TForm1.button1click(Sender: TObject);
var
lpDisplayDevice: TDisplayDevice;
dwFlags: DWORD;
cc: DWORD;
begin
form2.memo1.Clear;
lpDisplayDevice.cb := sizeof(lpDisplayDevice);
dwFlags := 0;
cc := 0;
while EnumDisplayDevices(nil, cc, lpDisplayDevice, dwFlags) do
begin
Inc(cc);
form2.memo1.lines.add(lpDisplayDevice.DeviceString);
form2.show;
end;
end;
Овоз платасини излаш (бор ёки йўқлигини аниқлаш)


uses MMsystem;

procedure TForm1.Button1Click(Sender: TObject);

var Result: String;
begin
if WaveOutGetNumDevs>0 then
Result:='Bor'
else
Result:='Yo`q';

Label1.Caption:=Result;

end;
Видеоадаптернинг турли режимларини аниқлаш ва ўрнатиш
Мавжуд видео-режимларнинг рўйхатини олиш

procedure TForm1.FormCreate(Sender: TObject); var i: Integer; DevMode: TDevMode; begin i:=0; while EnumDisplaySettings(nil,i,DevMode) do begin with Devmode do ListBox1.Items.Add(Format('%dx%d %d Colors', [dmPelsWidth,dmPelsHeight,1 shl dmBitsperPel])); Inc(i); end; end;

Видео-режимни ўрнатиш

procedure TForm1.Button1Click(Sender: TObject); var DevMode: TDeviceMode; liRetValue: Longint; begin if EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode) then liRetValue := ChangeDisplaySettings(DevMode, CDS_UPDATEREGISTRY); SendMessage(HWND_BROADCAST, WM_DISPLAYCHANGE, SPI_SETNONCLIENTMETRICS, 0); end;

Клавишлар

Caps Lock ни улаш (ёқиш)


procedure TMyForm.Button1Click(Sender: TObject);
Var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[VK_NUMLOCK] = 0) then
KeyState[VK_NUMLOCK] := 1
else
KeyState[VK_NUMLOCK] := 0;
SetKeyboardState(KeyState);
end;
Shift тугмаси босилганлигини аниқлаш


procedure TForm1.Button1Click(Sender: TObject);
begin
if GetKeyState(VK_SHIFT) < 0 then
ShowMessage('Shift тугмаси босилган')
else
ShowMessage('Shift тугмаси босилмаган');
end;


Shift, Alt ёки Ctrl тугмалари босилганлигини аниқловчи функциялар.


function CtrlDown : Boolean;
var
State : TKeyboardState;
begin
GetKeyboardState(State);
Result := ((State[vk_Control] and 128) <> 0);