Einzelnen Beitrag anzeigen

Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.351 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Programm ohne Umwege beenden

  Alt 17. Nov 2009, 10:52
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
Frank Reim
  Mit Zitat antworten Zitat