Hallo Leute,
na klar doch!
Hier noch der Vollständigkeit halber die von mir verwendete Lösung:
Code:
....
if (Screen.Width <= 1024) or (Screen.Height < 768) then begin
s := IntToStr(Screen.Width)+cblk+'*'+cblk+IntToStr(Screen.Height);
tx := 'Aktuelle Auflösung): '+s;
s := 'Das Programm ist für eine Auflösung von 1024 * 768 ausgelegt.' +crlf // = $0A$0D
+ 'Bitte ändern Sie Ihre Einstellungen.';
Application.MessageBox(PChar(s), PChar(tx), 48+0);
end;
....
mfg
eddy