如何将快捷方式放到“快速启动”中?

shaosx 2000-03-13 11:31:00
...全文
234 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
Lin 2000-03-13
  • 打赏
  • 举报
回复
  用Windows Shell API实现:SHGetSpecialFolderLocation结合SHGetSpecialFolderPath,定义如下:
WINSHELLAPI HRESULT WINAPI SHGetSpecialFolderLocation(
HWND hwndOwner,
int nFolder,
LPITEMIDLIST *ppidl
);
WINSHELLAPI HRESULT WINAPI SHGetSpecialFolderPath(
HWND hwndOwner,
LPTSTR lpszPath,
int nFolder,
BOOL fCreate
);
  先用其得到Quick Lanch的目录,最后将快捷方式文件放到此目录即可。详情请参照MSDN光盘。
rosement 2000-03-13
  • 打赏
  • 举报
回复
可以有好多方法实现你的愿望:
在这里我给你一种方法,并留给你一个题目:
方法:
Private Sub Command1_Click()
'Use Windows Script Host
' ------------------------------------------------------------------------
' Copyright (C) Rosement Corporation

Dim WSHShell As New IWshShell_Class
Dim MyShortcut
Set MyShortcut = WSHShell.CreateShortcut(Your locate path& "\Shortcut to notepad.lnk")
' Set shortcut object properties and save it
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe")
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
MyShortcut.WindowStyle = 4
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe, 0")
MyShortcut.Save
End Sub
在编程中必须引用WINDOWS SCRIPTING HOST OBJECT MODEL
问题:你用REGISTERY也能实现,留给你了,哈哈!
shaosx 2000-03-13
  • 打赏
  • 举报
回复


请写出 VB 实例!多谢!

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧