Programm beenden bevor Mainform angezeigt wird

[dataspider]

Ich habe es in die DPR geschrieben:

Delphi-Quellcode:

{----------------------------------------------------------------------------}
{$IFDEF MEMCHECK}
  MemCheckLogFileName := 'mc.log';
  MemChk;
{$ENDIF}
{----------------------------------------------------------------------------}

Application.Initialize;

{----------------------------------------------------------------------------}
if not LoginDialog then
begin
  // Achtung, sonst Exception, wird nicht ganz fertig
  Application.ProcessMessages;
  Exit;
end;
{----------------------------------------------------------------------------}

Application.CreateForm(TFRMMain, FRMMain);
Application.Run;

Die Anwendung wird so sauber beendet.

Cu, Frank