Splashscreen - Anwendung schließen

[Svenkan]

Also sozusagen (sry, aber ich habe mich mit den Befehlen noch nicht auseinerander gesetzt) wird bei .Terminate alles noch abgearbeitet und bei HALT wird (ähnlich wie bei Linux) direkt ein 'Strich gezogen' und direkt alles abgebrochen und 'die Arbeit beendet'?

[Luckie]

Und warum startets du die Anwnedung erst, wenn das Passwort falsch ist? sakura hat in der Tutorialsparte ein Splashscreen Tutorial veröffentlicht. Dort wird die Splashscreen in der Projektdatei erzeugt und angezeigt:

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Controls,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

var
  frmLogin: TForm;

begin
  Application.Initialize;
  frmLogin := TForm2.Create(Application);
  frmLogin.ShowModal;
  if frmLogin.ModalResult <> mrCancel then
  begin
    frmLogin.Free;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.