PB生成快捷方式问题

r00_a2lBUR 2017-09-06 04:38:35

我想在程序里面自动生成快捷方式，参考网页：
https://zhidao.baidu.com/question/555870455.html
做了一个测试项目，部分代码如下：
s1 = "D:\temp" //快捷方式所在位置
s2 = "D:\temp\dl.lnk" //快捷方式的名称
s3 = "D:\temp\1.txt" //快捷方式的目标
s4 = "ABC" //快捷方式参数
lReturn = fCreateShellLink( s1, s2, s3, s4)
messagebox( "提示", lReturn)

fCreateShellLink函数声明：
Function long fCreateShellLink(String lpstrFolderName,String lpstrLinkName, String lpstrLinkPath,String lpstrLinkArgs) library "STKIT432.DLL"
STKIT432.dll在找dll那里下载，运行时，fCreateShellLink返回值总是0，没有创建快捷方式。在资源那里找也没有找到有现成的，各位有没有现成的demo可以分享一下？（我用的是PB11.5）

...全文

1145 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

WorldMobile 2017-09-07

打赏
举报

在pb10下测试通过，你参考一下，创建快捷方式



OLEObject lole_WshShell,lole_ShellLink

Integer li_rc



lole_WshShell = CREATE OLEObject

li_rc = lole_WshShell.ConnectToNewObject("WScript.Shell") 

IF li_rc < 0 THEN     

	DESTROY lole_WshShell

	MessageBox("连接OLE失败", "错误代号: " + String(li_rc)) 

	Return 

END IF



lole_ShellLink = lole_WshShell.CreateShortcut("D:\QQ.lnk")//快捷方式文件名称

lole_ShellLink.TargetPath = "C:\Program Files (x86)\Tencent\QQ\Bin\QQScLauncher.exe"//目标文件

lole_ShellLink.WindowStyle = 1

lole_ShellLink.Description = "QQ"//快捷方式描述

lole_ShellLink.WorkingDirectory = "C:\Program Files (x86)\Tencent\QQ\Bin\"//工作路径

lole_ShellLink.Save//保存快捷方式

         

destroy lole_ShellLink

DESTROY lole_WshShell