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
