Курсовая работа: Мониторинг ОС

//Видеорежим

begin

i := 0;

while EnumDisplaySettings(nil, i, Modes[i]) do

begin

FormDisplay.Memo2.Lines.Add(IntToStr(Modes[i].dmBitsPerPel)+' '+IntToStr(Modes[i].dmPelsWidth)+' '+

IntToStr(Modes[i].dmPelsHeight)+' '+IntToStr(Modes[i].dmDisplayFrequency));

Inc(i);

end;

end;

Form1.Visible:=False;

FormDisplay.Visible:=True;

end;

procedure TForm1.Image8Click(Sender: TObject);

begin

Form1.Visible:=False;

FormDiski.Visible:=True;

end;

procedure TForm1.Image7Click(Sender: TObject);

var

lpDisplayDevice: TDisplayDevice;

dwFlags: DWORD;

cc: DWORD;

begin

lpDisplayDevice.cb := sizeof(lpDisplayDevice);

dwFlags := 0;

cc := 0;

while EnumDisplayDevices(nil, cc, lpDisplayDevice, dwFlags) do

begin