1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function change_resolution(Width, Height: word): boolean;
var lpDevMode: TDeviceMode;
begin
  Result := EnumDisplaySettings(nil, 0, lpDevMode);
  if Result then begin
    lpDevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
    lpDevMode.dmPelsWidth := 1024;
    lpDevMode.dmPelsHeight := 768;
    Result := ChangeDisplaySettings(lpDevMode, CDS_UPDATEREGISTRY) = DISP_CHANGE_SUCCESSFUL;
end;
end;					

1:
2:
3:
4:
5:

implementation

uses Unit2, Unit3;

{$R *.dfm}					

1:
2:
3:
4:
5:

procedure TForm1.Label1Click(Sender:TObjekt);
begin
  if change_resolution(800, 600) then ShowMessage('Alles klar!')
    else ShowMessage('... konnte Auflösung nicht ändern ...');
end;