主题：[分享] 生成快捷方式

发布前后的文件名，请保持一致。

下面的代码，发布前后均有效。

登录窗口的确定按钮：

If e.Form.Controls("CheckBox快捷方式").Checked Then
     Dim x As New mylnk.mylnk
     Dim fl As String = FileSys.GetParentPath(ProjectPath) & "\" & FileSys.GetName(ProjectFile).Replace("FoxEx","exe")
     If FileSys.FileExists(fl) Then
           x.CreateShortCut(FileSys.GetName(fl),fl)
     Else
           x.CreateShortCut(FileSys.GetName(ProjectFile),ProjectFile)
     End If

End If

对不起，忘了：

将mylnk.dll文件拷贝到狐表安装文件夹。
外部引用：mylnk.dll

执行代码:

Dim x As New mylnk.mylnk
x.CreateShortCut(FileSys.GetName(ProjectFile),ProjectFile)

第一个参数为快捷方式名字,第二个参数为你的系统名字

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:创建快捷方式.rar

好东西哦

顶