PB创建桌面快捷方式

PB创建桌面快捷方式  

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 + "\pb9.lnk")//快捷方式文件名称
lole_ShellLink.TargetPath = "C:\Program Files\Sybase\PowerBuilder 9.0\pb90.exe"//目标文件
lole_ShellLink.WindowStyle = 1
lole_ShellLink.Hotkey = "CTRL+SHIFT+F"//快捷键
lole_ShellLink.IconLocation = ''//图标文件(如果为空,从目标文件本省取,否则取自指定文件)
lole_ShellLink.Description = "PowerBuilder 9.0"//快捷方式描述
lole_ShellLink.WorkingDirectory = ls_desktop_dir//工作路径
lole_ShellLink.Save//保存快捷方式
         
destroy lole_ShellLink
DESTROY lole_WshShell