Application beenden vor erstem Erzeugen von Form

[himitsu]

Und der Rest ist ja auch nicht schwer:

Delphi-Quellcode:

end
else
  MessageBox(0, 'da fehlt irgendwas', PChar(ExtractFileName(ParamStr(0))), MB_OK or MB_ICONERROR);

Delphi-Quellcode:

end
else
  MessageBox(0, PChar('da fehlt ' + Fehlendes), PChar(ExtractFileName(ParamStr(0))), MB_OK or MB_ICONERROR);

[Bummi]

einen hab ich noch

Delphi-Quellcode:

if 1=0 then
  begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm2, Form2);
  Application.Run;
  end
else
  begin
      if Windows.AllocConsole then
      try
        WriteLn('Shit happens ...');
        write('> ');
        readln;
      finally
        FreeConsole;
      end;

  end;