"Ziel" einer per Drag&Drop übergebenen Verknüpfung bekom

[Lefko]

Hallo Leute :hi:,

ich habe das kleine Problem, dass ich nicht weiss, wie man das "Ziel" einer Verknüpfung auslesen kann.
Ich ziehe eine Verknüpfung auf mein Exe-Symbol und will, dass in ParamStr(1) oder sonstwo das Ziel dieser Verknüpfung erscheint (die .exe-Datei); wie kann ich das realisieren?
Ist nichts großes, aber ich habe mit der Suche nix dazu gefunden, lediglich zu ParamStr(1).

Lefko

[atreju2oo0]

Delphi-Quellcode:

function TForm1.GetExeFromLnk(AFile: string): string;
var 
shellLink: IShellLink;
persistFile: IPersistFile; 
path: array[0..MAX_PATH] of Char; 
fileInfo: TWin32FindData; 
begin
OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IShellLink, shellLink));
persistFile:= shellLink as IPersistFile;
persistFile.Load(StringToOleStr(AFile), STGM_READ);
shellLink.Resolve(0, SLR_UPDATE);
shellLink.GetPath(path, MAX_PATH, fileInfo, SLR_ANY_MATCH); 
Result:= path; 
end;

Ist definitiv nicht auf meinem Mist gewachsen, aber funktioniert bei mir einwandfrei!
Woher ich es habe weiß ich aber nicht mehr...

[AndreasP]

mahlzeit,

wenn du auch noch die msi links auflösen willst solltest du mal im delphi-forum nachschauen. letzter beitrag.

[Lefko]

Danke, die Version oben funktioniert gut, das mit .msi werde ich später noch einbauen (hatte es auch schon bemerkt...).

Grüße, Lefko