请大家帮帮忙,,生成快捷方式怎么做

Question

生成快捷方式怎么做,我的程序只编译成exe文件,没有打包,,请问当别人一拷贝我的exe文件的时候,,让
它生成一份快捷方式图标

Answer 1

可以在程序里加上
Private Declare Function fCreateShellLink Lib "STKIT432.DLL"(ByVal lpstrFolderName As String ,ByVal lpstrLinkName As String ,ByVal lpstrLinkPath As String,ByVal lpstrLinkArgs As String) as Longsub Command1Click()Dim lReturn As Long '添加到桌面lReturn=fCreateShellLink("..\..\Desktop","Shortcut to Calculator","c:\windows\calc.exe","")'添加到程序组lReturn=fCreateShellLink("\Startup","Shortcut to Calculator","c:\windows\calc.exe","")End Sub