Delphi：从快捷方式取得文件路径

(* --------------------------------------------
   Get *real* file path from a shortcut (*.lnk)
   --
   Required units: ShlObj, ActiveX
-------------------------------------------- *)

function GetExeFromLink(FileName : String) : String;
var
   IntfShelllink : IShellLink;
   intfFile : IPersistFile;
   fwName : WideString;
   DirName : String;
   pDirName : PChar;
   Data : win32_find_data;
begin
      // Get *real* file path from a shortcut (*.lnk)

      fwName := FileName;
      IntfShelllink := CreateComObject(CLSID_Shelllink) as IShellLink;
      intfFile := IntfShelllink as IPersistFile;
      intfFile.Load(pwchar(fwname), STGM_READ);
      Setlength(DirName, MAX_PATH);
      pDirName := PChar(DirName);
      IntfShelllink.GetPath(pDirName, max_path, Data, 0);

      Result := pDirName;
end;

亲试好用。