type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
si:Startupinfo;
begin
GetStartupinfo(si);
if
bool(
(si.dwx<>0) or
(si.dwy<>0) or
(si.dwXCountChars <>0) or
(si.dwYCountChars <>0) or
(si.dwFillAttribute <>0) or
(si.dwXSize <>0) or
(si.dwYSize <>0) or
bool(si.dwFlags and STARTF_FORCEOFFFEEDBACK)
)
then
showmessage('Why debugger me?')
else
showmessage('You are a good boy!');
end;