Mit Programm öffnen... per doppelklick

[-Phantom-]

Mit ParamCount und Paramstr machste das so :

Du legst eine Globale Variable an z.B
Aktive : Boolean ; Das schreibst du dann bei Form.create rein :

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Aktive := True;
...

Dann bei FormActivate :

Delphi-Quellcode:

procedure TForm2.FormActivate(Sender: TObject);
var
pfad : String;
begin
if (aktive) and (ParamCount>0) then
begin
aktive := False;
pfad := Paramstr(1);

________________________________________

Gruß

Mathias