Splashscreen - Anwendung schließen

[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.