vedo che se manca alka qui tutto si ferma...
bhè ci penso io!!!



procedure TForm1.Button1Click(Sender: TObject);
var DMode:_devicemodeA;
return : integer;
begin
DMode.dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT+DM_DISP LAYFREQUENCY;
DMode.dmPelsWidth:=800;
DMode.dmPelsHeight:=600;
DMode.dmDisplayFrequency:=75;
return := ChangeDisplaySettings(DMode,0);
end;
se return è
0 -> DISP_CHANGE_SUCCESSFUL
1 -> DISP_CHANGE_RESTART
2 -> DISP_CHANGE_BADFLAGS
3 -> DISP_CHANGE_FAILED
4 -> DISP_CHANGE_BADMODE
5 -> DISP_CHANGE_NOTUPDATED // solo per os NT


guarda nell'api ChangeDisplaySettings per gli altri parametri e procedure collegate