Ursprungsauflösung wiederherstellen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
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".