Einzelnen Beitrag anzeigen

Gentleman

Registriert seit: 29. Sep 2004
302 Beiträge
 
Turbo Delphi für Win32
 
#1

Dateipfad + Dateiname kopieren

  Alt 14. Mär 2006, 14:45
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!
Lennard
Der Vorteil der Klugheit besteht darin, dass man sich dumm stellen kann. Das Gegenteil ist schon schwieriger. (Kurt Tucholsky)
  Mit Zitat antworten Zitat