Home » Tipps & Tricks » System » Desktop und Taskleiste » Ursprungsauflösung wiederherstellen

Ursprungsauflösung wiederherstellen

Haben Sie in ihrem Programm die Auflösung des Bildschirms geändert, können Sie sie auf diese Weise wieder auf die Ursprungsauflösung zurückstellen:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if ChangeDisplaySettings(PDeviceMode(nil)^,0)=DISP_CHANGE_SUCCESSFUL then
   Caption:='Success'
 else
   Caption:='Failed';
end;

Die Fehlercodes finden Sie in der PSDK unter dem Stichwort „ChangeDisplaySettings“.