Programm ohne Umwege beenden

[dataspider]

Hi,

Man kann es IMHO vor Erzeugung des Hauptformulares beenden:

Delphi-Quellcode:

begin

  Application.Initialize;

  if ProgrammAbbruch then
  begin
    Application.ProcessMessages; // Achtung, sonst Exception, wird nicht ganz fertig
    Application.Terminate;
  end
  else
  begin
    Application.CreateForm(TFRMMain, FRMMain);
    Application.Run;
  end;

end.

So mache ich es mit den LoginDialog...

Frank