Bildschirmauflösung

[THE MATRIX]

also du holst dir erstmal ALLE möglichen Desktop-größen

Delphi-Quellcode:

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

dann s.o. guckst halt welche momentan verwendet wird und kannst dann über

Delphi-Quellcode:

  
if Listbox1.items.count<>-1 then 
 begin
  Listbox1.ItemIndex:=strtoint(tmpstr);
  EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode);
  if ChangeDisplaySettings(DevMode,0)= DISP_CHANGE_SUCCESSFUL then ShowMessage('Geändert'); end else showMessage('Sry ging nicht :D');

die sache ändern