得到Window快捷方式的具体路径
来源:互联网 发布:黑马程序员19期 编辑:程序博客网 时间:2024/05/20 17:10
Uses ActiveX, ShlObj;
function GetLinkFile(const LnkFileName: String; var FileName: String): Boolean;
var
hr: HRESULT;
psl: IShelllink;
wfd: WIN32_FIND_DATA;
ppf: IPersistFile;
lpw: pWideChar;
buf: pWideChar;
InternalFileName: Array[0..MAX_PATH] of Char;
begin
Result := False;
GetMem(buf, MAX_PATH);
try
if Succeeded(CoInitialize(nil)) then
if (Succeeded(CocreateInstance(CLSID_SHELLLINK, Nil, CLSCTX_INPROC_SERVER, IID_IShellLinkA, psl))) then
begin
hr := psl.QueryInterface(iPersistFile, ppf);
if Succeeded(hr) then
begin
lpw := StringToWideChar(LnkFileName, buf, MAX_PATH);
hr := ppf.Load(lpw, STGM_READ);
if Succeeded(hr) then
begin
hr := psl.Resolve(0, SLR_NO_UI);
if Succeeded(hr) then
begin
psl.GetPath(InternalFileName, MAX_PATH, wfd, SLGP_SHORTPATH);
FileName := InternalFileName;
Result := True;
end;
end;
end;
end;
finally
FreeMem(buf);
end;
end;
- 得到Window快捷方式的具体路径
- VC 创建快捷方式和得到桌面路径
- 获取快捷方式的文件路径
- 获取快捷方式的文件路径
- 获得快捷方式指向的路径
- 获取快捷方式的文件路径
- window的右键菜单与快捷方式
- jsp 得到当前的路径
- 得到启动程序的路径
- 得到文件的真实路径
- GetModuleFileName 得到的路径有\??\
- 得到系统桌面的路径
- 得到.Jar的相对路径
- 一些快捷方式没有目标路径的原因
- VB如何读取快捷方式的目标路径
- VC获取快捷方式的文件路径
- 创建使用相对路径的快捷方式
- 创建使用相对路径的快捷方式
- test
- UML利器--Rational Rose Enterprise Edition 2003 安装破解步骤
- 新人到来,多多学习,谢谢支持!
- 王开源加盟LPI开拓中国Linux认证事业
- 什么是Portal?
- 得到Window快捷方式的具体路径
- 压缩和解压缩,分别引用开源的SharpZip 和 .net2005的Gzip
- 怎样做一个优秀的系统分析师?
- 恭贺武汉大学国际软件学院考生集体通过LPI一级认证
- ASP2.0向其它网页传递信息的方法
- 读书笔记--指针与声明
- [转载]AIX操作系统下应用系统的维护与性能优化
- 两个大学里的笑话
- 女人如何折腾死老公