@bimsi: Wie meine vorposter schon geschrieben haben, kannst du im OnCreate Ereignis kein Close benutzen.
Alternative wäre Close durch Application.Terminate zu ersetzen. Besser wäre aber im OnActivate Ereignis ein Close aufzurufen.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private-Deklarationen }
FirstRun: Boolean;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{--------------------------------------------------------------------------------------------------}
procedure TForm1.FormCreate(Sender: TObject);
begin
FirstRun := True;
end;
{--------------------------------------------------------------------------------------------------}
procedure TForm1.FormActivate(Sender: TObject);
begin
if not FirstRun
then
Exit;
FirstRun := False;
try
// Hier INI Datei prüfen
except
ShowMessage('
Fehler');
Close;
end;
end;
{--------------------------------------------------------------------------------------------------}
end.