繁体电脑宽字符方式的快捷方式lnk真实路径怎么获取,有文件

sd3970566

繁体电脑宽字符方式的快捷方式lnk真实路径怎么获取,有文件 新建 WinRAR 压缩文件.rar (4.92 KB, 下载次数: 9)

2021-6-27 10:28 上传

点击文件名下载附件 这个文件里面8个文件 4个是简体的 4个是繁体的。  我用易自带的不行。求大佬帮忙整一个通用的 取快捷方式真实路径。 有必要的话一包烟钱还是可以的···

大司命

照抄还没搞定？？？

  

常量名称	常量值	公 开	备 注
IUnknown_QueryInterface	0		从 COM 对象请求指向指定接口的指针。
IPersistFile_Load	5		打开指定的文件并从文件内容初始化一个对象。
IShellLinkW_GetPath	3		获取 Shell 链接对象目标的路径和文件名。
STGM_READ	0		文件将以只读访问权限创建或打开。

子程序名	返回值类型	公开	备 注
系统_取桌面快捷方式W	字节集		获取快捷方式的目标路径
参数名	类 型	参考	可空	数组	备 注
lnk路径	字节集

变量名	类 型	静态	数组	备 注
hr	整数型
CLSID_ShellLink	字节集
IID_IPersistFile	字节集
pPF	整数型
pSL	整数型
IID_IShellLinkW	字节集
pszPath	整数型
szPath	字节集
dwSize	整数型

CLSID_ShellLink ＝ { 1, 20, 2, 0, 0, 0, 0, 0, 192, 0, 0, 0, 0, 0, 0, 70 }
IID_IPersistFile ＝ { 11, 1, 0, 0, 0, 0, 0, 0, 192, 0, 0, 0, 0, 0, 0, 70 }
CoInitialize ( #NULL )
hr ＝ CoCreateInstance1 (取指针_字节集型 (CLSID_ShellLink), #NULL, #CLSCTX_INPROC_SERVER, 取指针_字节集型 (IID_IPersistFile), pPF)
如果真 (hr ＝ #S_OK 且 pPF ≠ #NULL )
IID_IShellLinkW ＝ { 249, 20, 2, 0, 0, 0, 0, 0, 192, 0, 0, 0, 0, 0, 0, 70 }
hr ＝ COM_调用COM方法 (pPF, #IUnknown_QueryInterface, 取指针_字节集型 (IID_IShellLinkW), 取指针整数_ (pSL), , , , , , , , )
如果真 (hr ＝ #S_OK 且 pSL ≠ #NULL )
hr ＝ COM_调用COM方法 (pPF, #IPersistFile_Load, 取指针_字节集型 (lnk路径), #STGM_READ, , , , , , , , )
如果真 (hr ＝ #S_OK )
pszPath ＝ LocalAlloc ( #LMEM_ZEROINIT, #MAX_PATH × 2)
hr ＝ COM_调用COM方法 (pSL, #IShellLinkW_GetPath, pszPath, #MAX_PATH, #NULL, 0, , , , , , )
dwSize ＝ lstrlenW (pszPath)
如果真 (dwSize ＞ 0)
szPath ＝ 指针到字节集 (pszPath, dwSize × 2 ＋ 2)
LocalFree (pszPath)
COM_Release (pSL)
COM_Release (pPF)
CoUninitialize ()
返回 (szPath)

.版本 2<br /> .常量 IUnknown_QueryInterface, "0", , 从 COM 对象请求指向指定接口的指针。<br /> .常量 IPersistFile_Load, "5", , 打开指定的文件并从文件内容初始化一个对象。<br /> .常量 IShellLinkW_GetPath, "3", , 获取 Shell 链接对象目标的路径和文件名。<br /> .常量 STGM_READ, "0", , 文件将以只读访问权限创建或打开。<br /> .子程序 系统_取桌面快捷方式W, 字节集, 公开, 获取快捷方式的目标路径<br /> .参数 lnk路径, 字节集<br /> .局部变量 hr, 整数型<br /> .局部变量 CLSID_ShellLink, 字节集<br /> .局部变量 IID_IPersistFile, 字节集<br /> .局部变量 pPF, 整数型<br /> .局部变量 pSL, 整数型<br /> .局部变量 IID_IShellLinkW, 字节集<br /> .局部变量 pszPath, 整数型<br /> .局部变量 szPath, 字节集<br /> .局部变量 dwSize, 整数型<br /> CLSID_ShellLink ＝ { 1, 20, 2, 0, 0, 0, 0, 0, 192, 0, 0, 0, 0, 0, 0, 70 }<br /> IID_IPersistFile ＝ { 11, 1, 0, 0, 0, 0, 0, 0, 192, 0, 0, 0, 0, 0, 0, 70 }<br /> CoInitialize (#NULL)<br /> hr ＝ CoCreateInstance1 (取指针_字节集型 (CLSID_ShellLink), #NULL, #CLSCTX_INPROC_SERVER, 取指针_字节集型 (IID_IPersistFile), pPF)<br /> .如果真 (hr ＝ #S_OK 且 pPF ≠ #NULL)<br />     IID_IShellLinkW ＝ { 249, 20, 2, 0, 0, 0, 0, 0, 192, 0, 0, 0, 0, 0, 0, 70 }<br />     hr ＝ COM_调用COM方法 (pPF, #IUnknown_QueryInterface, 取指针_字节集型 (IID_IShellLinkW), 取指针整数_ (pSL), , , , , , , , )<br />     .如果真 (hr ＝ #S_OK 且 pSL ≠ #NULL)<br />         hr ＝ COM_调用COM方法 (pPF, #IPersistFile_Load, 取指针_字节集型 (lnk路径), #STGM_READ, , , , , , , , )<br />         .如果真 (hr ＝ #S_OK)<br />             pszPath ＝ LocalAlloc (#LMEM_ZEROINIT, #MAX_PATH × 2)<br />             hr ＝ COM_调用COM方法 (pSL, #IShellLinkW_GetPath, pszPath, #MAX_PATH, #NULL, 0, , , , , , )<br />             dwSize ＝ lstrlenW (pszPath)<br />             .如果真 (dwSize ＞ 0)<br />                 szPath ＝ 指针到字节集 (pszPath, dwSize × 2 ＋ 2)<br />             .如果真结束<br />             LocalFree (pszPath)<br />         .如果真结束<br />         COM_Release (pSL)<br />     .如果真结束<br />     COM_Release (pPF)<br /> .如果真结束<br /> CoUninitialize ()<br /> 返回 (szPath)

没有的自己下载精易模块源码~

大司命

  

子程序名	返回值类型	公开	备 注
系统_取桌面快捷方式W	字节集		取桌面快捷方式 成功返回文件路径,失败返回空文本
参数名	类 型	参考	可空	数组	备 注
快捷方式全路径	字节集				快捷方式全路径

变量名	类 型	静态	数组	备 注
对象	对象
sal	变体型

. ' 如果真 (寻找文本 (快捷方式全路径, “.lnk”, , 假) ＝ -1)
' 返回 (“”)
CoInitialize (0)
判断 (对象.创建 (“WshShell”, “wshom.ocx”))
sal.赋值 (快捷方式全路径, )
对象 ＝ 对象.对象型方法 (“CreateShortcut”, sal)
如果真 (对象.是否为空 ())
CoUninitialize ()
返回 ({  })
CoUninitialize ()
sal ＝ 对象.读属性 (“TargetPath”, )
返回 (sal.取字节集 () ＋ { 0, 0 })
CoUninitialize ()
返回 ({  })

.版本 2<br /> .子程序 系统_取桌面快捷方式W, 字节集, 公开, 取桌面快捷方式 成功返回文件路径,失败返回空文本<br /> .参数 快捷方式全路径, 字节集, , 快捷方式全路径<br /> .局部变量 对象, 对象<br /> .局部变量 sal, 变体型<br /> .' 如果真 (寻找文本 (快捷方式全路径, “.lnk”, , 假) ＝ -1)<br />     ' 返回 (“”)<br /> .如果真结束<br /> CoInitialize (0)<br /> .判断开始 (对象.创建 (“WshShell”, “wshom.ocx”))<br />     sal.赋值 (快捷方式全路径, )<br />     对象 ＝ 对象.对象型方法 (“CreateShortcut”, sal)<br />     .如果真 (对象.是否为空 ())<br />         CoUninitialize ()<br />         返回 ({  })<br />     .如果真结束<br />     CoUninitialize ()<br />     sal ＝ 对象.读属性 (“TargetPath”, )<br />     返回 (sal.取字节集 () ＋ { 0, 0 })<br /> .默认<br /> .判断结束<br /> CoUninitialize ()<br /> 返回 ({  })

sd3970566

大司命 发表于 2021-6-27 10:35
[e=5].版本 2
.子程序 系统_取桌面快捷方式W, 字节集, 公开, 取桌面快捷方式 成功返回文件路径,失败返回空 ...

这个我试了。在繁体电脑上奔溃· 在简体上可以。 我之前发过帖子 当时没有解决啊··也是你回答的！

大司命

sd3970566 发表于 2021-6-27 10:36
这个我试了。在繁体电脑上奔溃· 在简体上可以。 我之前发过帖子 当时没有解决啊··也是你回答的！ ...

那这一个代码就很多了！你要自己看图写了~

sd3970566

大司命 发表于 2021-6-27 10:39
那这一个代码就很多了！你要自己看图写了~

大佬能不能给个e文件啊·。 这里面很多常量  和 API 不知道是什么啊···

大司命

sd3970566 发表于 2021-6-27 10:44
大佬能不能给个e文件啊·。 这里面很多常量  和 API 不知道是什么啊···

sd3970566

大司命 发表于 2021-6-27 10:50

CLSCTX_INPROC_SERVER是多少

sd3970566

S_OK是多少

sd3970566

大司命 发表于 2021-6-27 12:21
照抄还没搞定？？？

[e=5].版本 2

大佬啊！牛逼这个 真的可以了。但是不太稳定啊。 两三次就会出现一次奔溃怎么解决！

补充内容 (2021-6-27 15:30):
简体电脑没有问题。随便几次都稳定。 繁体电脑上 用是能用。但是两三次会出现一次奔溃！

补充内容 (2021-6-27 15:40):
错了。是有的lnk可以  有的lnk奔溃··