如何取到快截方式所对应的文件路径(100分)

如何取到快截方式所对应的文件路径

function ExeFromLink(const linkname: string): string

var
FDir,
FName,
ExeName: PChar;
z: integer

begin
ExeName:= StrAlloc(MAX_PATH);
FName:= StrAlloc(MAX_PATH);
FDir:= StrAlloc(MAX_PATH);
StrPCopy(FName, ExtractFileName(linkname));
StrPCopy(FDir, ExtractFilePath(linkname));
z:= FindExecutable(FName, FDir, ExeName);
if z > 32 then
Result:= StrPas(ExeName)
else
Result:= '';
StrDispose(FDir);
StrDispose(FName);
StrDispose(ExeName)

end;