有谁知道如何访问快捷方式文件，如何得到快捷方式所指文件的目标路径？

Question

最好给出程序代码，谢谢了！

Answer 1

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; 

Answer 2

在《DELPGI深度历险》有一个完整的例子你找找吧！

Answer 3

natolee (捕风的汉子) :
  大哥你是在哪里找到的呀,能不能给我一份呀,或是给我讲一下地址也好呀,小弟初学delphi现在刚好也遇到这样一个问题,在这里先谢谢您了.