分发VFP应用时自动建立快捷方式

用VFP开发一个应用软件，最后一步是做一个发布盘。VFP安装向导制作的分发盘，安装时一般只在“开始\程序\Visual FoxPro应用程序”组中建立快捷方式。如果我想在安装过程中在桌面、开始菜单或启动组中建立快捷方式，该怎么办？

解决方案想法

以下是作者的解决方案。它通常可以分两步进行:

1.用VFP编译一个创建快捷方式的程序(名为create shortcut . exe)；

2.在安装向导的“步骤4-安装选项”的“执行程序”选项卡下的文本框中填入文件名及其路径(通过浏览“…”按钮查找)。

这里的关键是第一步。如果你有CreateShortCut.exe在第一步建立的程序，第二步就非常简单了。下面详细说明用VFP创建快捷程序的方法。

具体实现

快捷方式程序中需要使用DLL函数fCreateShellLink，该函数位于STKIT432.DLL(可以在Visual Basic 4.0 for Windows的安装工具包中找到STKIT432.DLL)。在VFP中声明fCreateShellLink函数的命令是:

在“STKIT432”中声明long fCreateShellLink。DLL”字符串p1、字符串p2、字符串p3、字符串p4

其中包括:

● p1:用于表示添加快捷方式的文件夹及其相对于Windows\Programs文件夹的路径；

● p2:用于表示快捷方式的名称；

● p3:用于表示程序文件名(包括扩展名)及其路径；

● p4:用于指出要执行的程序的命令行参数，通常是空的字符串。

例如，如果你想把程序“C:\Windows\command”

的捷径。com”设置在附件名为“DOS窗口”下。您可以使用以下命令:

FCreateshelllink("。\ attachment "，" DOS window "，" C:\Windows\command.com "，"")

要创建前面提到的CreateShortCut.exe程序，首先检查Windows\System文件夹中是否有STKIT432.DLL文件，如果有(否则，找到该文件并将其复制到Windows\System文件夹中)，执行以下操作:

1.打开VFP并创建一个名为CreateShortCut的新项目。

2.在CreateShortCut项目中创建一个名为prgCreateShortCut的新程序。程序列表如下:

●程序prgCreateShortCut。PRG

LPARAMETERS sPn，sPd

application.visible=.f

if类型(' sPn')='L '

sPn=" CreateShortCut.exe "

SPd= "创建快捷方式"

结束条件

if upper(sPn)= "创建快捷方式。EXE "

cl =铬(13)+铬(10)+铬(13)+铬(10)

STs= "如何使用这个程序:"+cl；

+"将此程序复制到创建快捷方式的程序所在的文件夹中，然后，"+cl；

+"从开始菜单中单击运行，在运行对话框中，遍历"+cl；

+“浏览”按钮找到该程序，然后在“打开”组合框中该程序名称后加“+cl”；

+"输入命令行参数:，"+cl；

+"最后，按“确定”按钮执行。"

Messagebox(sTs，64，“提示”)

取消

结束条件

sPn =完整路径

用sPn，sPd做窗体frmCreateShortCut

读取事件

3.在CreateShortCut项目中创建一个名为frmCreateShortCut的新表单(如下所示)。复选框的名称从上到下依次为:chkProgram、chkDeskTop、chkStartMenu、chkStartUp、chkQuickLaunch。