Dateipfad + Dateiname kopieren

[Gentleman]

Hallo!

Ich möchte mit einem kleinen Tool den Pfad + Dateinamen von Dateien kopieren. Bisher habe ich es folgendermaßen gelöst:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
if (ParamCount<> 0) and (ParamStr(1)<> '') then
  begin
    Clipboard.AsText:= ParamStr(1);    
    CanClose:= True;
  end
else
  begin
    ShowMessage('ERROR');
    CanClose:= False;
  end;
end;

Dazu habe ich das Kontextmenü, im Explorer um einen Eintrag erweitert, mit dem ich nun das Programm öffne. Den Menüeintrag habe ich in der Registry eingetragen:

Zitat:

Schlüsselname: HKEY_CLASSES_ROOT\*\shell\GetPath\command
Wert 0
Name: <KEIN NAME>
Typ: REG_SZ
Daten: "progg.exe" "%1"

Wenn ich nun im Explorer mit der rechten Maustaste eine Datei anwähle und meinen Menüeintrag anwähle, wird mein Programm gestartet und der Pfad, der ausgewählten Datei wird kopiert. Das funktioniert auch soweit.

Nun möchte ich aber, dass das Programm nicht jedes mal wieder gestartet werden muss, um den Dateipfad zu kopieren. Es soll im Hintergrund laufen und beim anwählen des Menüeintrages sollen die nötigen Parameter an das Programm übermittelt werden, ohne dass es erneut gestartet wird. Wie könnte ich das umsetzen?

Ich hoffe ihr könnt mir weiterhelfen. Danke!

Gruß Lennard!