close in OnCreate

[Evian]

Zitat von toms:

Warum soll eine Form erstellt werden, wenn sie evtl. gar nie angezeigt wird??

Klever mitgedacht

kannst es auch so machen ->

Code:

program Project1; 

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

{$R *.res} 


begin 
  if not FileExists('{dateiname}') then 
    Exit ELSE
  BEGIN
  Application.Initialize; 
  Application.CreateForm(TForm1, Form1); 
  Application.Run; 
  END;
end.

dann wird nur die Form erstellt, wenn die Datei da ist.