Application.Terminate geht nicht mehr ?

[jaenicke]

Das sieht normalerweise so ca. aus:

Delphi-Quellcode:

program Foo;

uses
  Vcl.Forms,
  Vcl.Controls,
  ...;

{$R *.res}

var
  LoginForm: TfrmLogin;
  InitSuccess: Boolean;
  App: TApplication;
begin
  App := Application;
  App.Initialize;
  App.MainFormOnTaskbar := True;
  LoginForm := TfrmLogin.Create(nil);
  try
    InitSuccess := IsPositiveResult(LoginForm.ShowModal);
  finally
    LoginForm.Free;
  end;
  if InitSuccess then
  begin
    App.CreateForm(TfrmMain, frmMain);
    App.Run;
  end;
end.

Natürlich ist das so trivial zu knacken, sprich man müsste das Ergebnis in InitSuccess noch ein wenig verschleiern, mehrfach prüfen, usw., aber als Beispiel reicht das ja.