680
社区成员
发帖
与我相关
我的任务
分享如何用PB创建快报捷方式???
我最近用PB做一个安装程序，但是在创建桌面快捷方式时无法实现
哪位高人有好的办法或是之前实现过和，请多指点。
在此先谢过！
望大家参加讨论!!
哪位高人有好的办法或是之前实现过和，请多指点。
在此先谢过！
望大家参加讨论!!
...全文
请发表友善的回复…
发表回复
zxxitsoft 2004-12-06
- 打赏
- 举报
有没有谁有做好的例子，给我一个PBL最好！！！
lovemoreh 2004-11-16
- 打赏
- 举报
用这几个与COM有关的API函数：
CoInitialize()
CoCreateInstance()
SetPath()
SaveAs()
及
SHGetSpecialFolderLocation()
等。
CoInitialize()
CoCreateInstance()
SetPath()
SaveAs()
及
SHGetSpecialFolderLocation()
等。
mittee 2004-11-04
- 打赏
- 举报
你的想法很好啊，支持
lovemoreh 2004-11-04
- 打赏
- 举报
用VC API写过，不过要转成PB的要一些时间，可惜现在缺的就是时间。
要用到CoCreateInstance（）、SHGetSpecialFolderLocation()、
要用到CoCreateInstance（）、SHGetSpecialFolderLocation()、
balloonman2002 2004-11-03
- 打赏
- 举报
借助OLE对象Windows Script Host ，详见：
http://community.rising.com.cn/Forum/msg_read.asp?FmID=55&SubjectID=3081534&page=1
http://community.rising.com.cn/Forum/msg_read.asp?FmID=55&SubjectID=3081534&page=1
linwdm2002 2004-11-03
- 打赏
- 举报
关注
zhangjiecsdn 2004-11-03
- 打赏
- 举报
干吗不用installshield，自找苦吃。
如果练兵，去学学api吧。
如果练兵，去学学api吧。
ygjn_2000 2004-11-02
- 打赏
- 举报
顶
打雷啦的专栏 2004-11-02
- 打赏
- 举报
to----> balloonman2002 那段代码能否解释一下呢？
青锋-SS 2004-11-02
- 打赏
- 举报
up.
gjd111686 2004-11-02
- 打赏
- 举报
SHGetSpecialFolderLocation这个API可以取到desktop以及start menu等特殊文件夹的位置SHFileOperation这个API可以建快捷方式
zxxitsoft 2004-11-01
- 打赏
- 举报
还有没有谁能提供好点的方案，小弟急用呀1
balloonman2002 2004-11-01
- 打赏
- 举报
转贴：
Create a Shortcut
oleobject ws, loo_shortcut
string ls_desktop
ws = CREATE oleobject
ws.ConnectToNewObject("WScript.Shell")
// other "specialfolder" of interest
// AllUsersDesktop
// AllUsersStartMenu
// AllUsersPrograms
// AllUsersStartup
// Desktop
// Favorites
// MyDocuments
// Programs
// Recent
// SendTo
// StartMenu
// Startup
ls_desktop = ws.SpecialFolders("Desktop")
loo_shortcut = ws.CreateShortcut(ls_desktop +"\realhowto.lnk")
loo_shortcut.TargetPath = "http://www.rgagnon.com/howto.html";
loo_shortcut.WorkingDirectory = ls_desktop
// 1 Activates and displays a window.
// If the window is minimized or maximized, the system restores it to
// its original size and position.
// 3 Activates the window and displays it as a maximized window.
// 7 Minimizes the window and activates the next top-level window.
loo_shortcut.WindowStyle = 1
loo_shortcut.IconLocation = ws.ExpandEnvironmentStrings("%WINDIR%\SYSTEM\url.dll , 0")
loo_shortcut.Save
原贴见：
http://cpb.cn/distopic.asp?id=15860&page=5
Create a Shortcut
oleobject ws, loo_shortcut
string ls_desktop
ws = CREATE oleobject
ws.ConnectToNewObject("WScript.Shell")
// other "specialfolder" of interest
// AllUsersDesktop
// AllUsersStartMenu
// AllUsersPrograms
// AllUsersStartup
// Desktop
// Favorites
// MyDocuments
// Programs
// Recent
// SendTo
// StartMenu
// Startup
ls_desktop = ws.SpecialFolders("Desktop")
loo_shortcut = ws.CreateShortcut(ls_desktop +"\realhowto.lnk")
loo_shortcut.TargetPath = "http://www.rgagnon.com/howto.html";
loo_shortcut.WorkingDirectory = ls_desktop
// 1 Activates and displays a window.
// If the window is minimized or maximized, the system restores it to
// its original size and position.
// 3 Activates the window and displays it as a maximized window.
// 7 Minimizes the window and activates the next top-level window.
loo_shortcut.WindowStyle = 1
loo_shortcut.IconLocation = ws.ExpandEnvironmentStrings("%WINDIR%\SYSTEM\url.dll , 0")
loo_shortcut.Save
原贴见：
http://cpb.cn/distopic.asp?id=15860&page=5
jb99334 2004-10-24
- 打赏
- 举报
http://www.delfan.com/language/delphi/self/createlink.html
希望对你有所帮助
希望对你有所帮助
zxxitsoft 2004-10-24
- 打赏
- 举报
怎么没有人发言了呀！！
sywen 2004-10-21
- 打赏
- 举报
好問題，不會，頂一下
嘘嘘兔 2004-10-21
- 打赏
- 举报
其实打包工具自己就可以实现，比如setup factory
kirao 2004-10-21
- 打赏
- 举报
用安裝工具就可以了，干嗎要用pb自己寫呢？
如果真要這麼寫那就用api來實現應該是可以的。
zhengshouquan 2004-10-21
- 打赏
- 举报
有意思的问题。
关注。。。。。
关注。。。。。
ddy_dhj 2004-10-21
- 打赏
- 举报
我也很关注这个问题！
加载更多回复（3）
