pb创建快捷方式，在pb环境里运行没问题，但是编译成exe后yunxing无法创建快捷方式。
pb创建快捷方式，在pb环境里运行没问题，但是编译成exe后无法创建快捷方式。
代码如下：
OLEObject lole_WshShell,lole_ShellLink
Integer li_rc
string ls_desktop_dir
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
ls_desktop_dir = lole_WshShell.SpecialFolders("Desktop")//取桌面路径
lole_ShellLink = lole_WshShell.CreateShortcut(ls_desktop_dir +'\' +gs_titles +'.lnk' ) //快捷方式文件名称
lole_ShellLink.TargetPath = gs_dir +'\' + gs_exename + '.exe' //目标文件(目标)
lole_ShellLink.WindowStyle = 1 //运行方式(窗口)
lole_ShellLink.Hotkey = "CTRL+SHIFT+F"//(快捷键 )
lole_ShellLink.IconLocation = gs_dir + '\' + gs_exename + '.exe' // 图标文件(如果为空,从目标文件本省取,否则取自指定文件)
lole_ShellLink.Description = gs_titles //快捷方式描述(备注)
lole_ShellLink.WorkingDirectory = gs_dir //工作路径(起始位置
lole_ShellLink.Save //保存快捷方式
destroy lole_ShellLink
DESTROY lole_WshShell
pb 创建快捷方式 WSH 编译
[解决办法]
加几个messagebox，看一下运行到哪个地方出错了或者函数未执行成功
然后再分析一下问题所在
