(* --------------------------------------------
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;
亲试好用。
Delphi:从快捷方式取得文件路径
最新推荐文章于 2022-07-30 22:52:49 发布