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