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

Question

　　用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光盘。

Answer 1

可以有好多方法实现你的愿望：
在这里我给你一种方法，并留给你一个题目：
方法：
Private Sub Command1_Click()
'Use Windows Script Host
' ------------------------------------------------------------------------
'               Copyright (C) Rosement CorporationDim 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也能实现，留给你了，哈哈！