Form1 bei OnCreate Ereignis beenden

[Sharky]

Zitat von glunzl:

....Wie mache ich denn das?

Projekt - Quellcode anzeigen.

Delphi-Quellcode:

program Project1;

uses
  Forms,
  SysUtils,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  if FileExists('c:\test.kkk') then
  if not DeleteFile('c:\test.kkk') then
    begin
      Application.MessageBox('Geht nicht', 'Meldung', 48) ;
    end
  else
   begin
     Application.CreateForm(TForm1, Form1);
   end;
  Application.Run;
end.

[Edit]Das Luckie war wieder schneller [/Edit]