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

分发 VFP 应用时自动建立快捷方式 使用 VFP 开发一个应用软件，最后一步是制作发布磁盘。使用 VFP 安装向导制作的发布磁盘在安装时一般只在“开始\程序\Visual FoxPro 应用程序”组中建立快捷方式。假如希望在安装时把快捷方式建在桌面上、开始菜单中或启动组中，该怎么办呢？ 解决思路 下面是笔者的解决办法。大体可分两步进行： 1．使用 VFP 编制一个用来建立快捷方式的程序（设程序名为 CreateShortCut.exe）； 2．在安装向导“步骤 4-安装选项”的“执行程序”标签下的文本框中填入前面建立的程序文件名及其路径（通过浏览“…”按钮查找）。 这里的关键是第一步，假如有了第一步建立的程序 CreateShortCut.exe，后一步是十分简单的。接下来具体说明用 VFP 编制建立快捷方式程序的方法。 具体实现 建立快捷方式的程序中需要使用 DLL 函数 fCreateShellLink，该函数在 STKIT432.DLL 中（STKIT432.DLL 可在 Visual Basic 4.0 for Windows 的 Setup Kit 中找到）。在 VFP 中声明fCreateShellLink 函数的命令是： declare long fCreateShellLink in “STKIT432.DLL” String p1, String p2, String p3, String p4 其中： ● p1: 用来指出快捷方式要加入的文件夹及其相对于 Windows\Programs 文件夹的路径； ● p2: 用来指出快捷方式的名称； ● p3: 用来指出程序文件名(含扩展名)及其路径; ● p4: 用来指出执行程序的命令行参数，一般为空串。 例如，要想把程序“C:\Windows\command .com”的快捷方式以“DOS 窗口”为名建立在附件中，可用命令： fCreateShellLink(“.\附件”,“DOS 窗口”, “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 type(‘sPn’)=‘L’ sPn=“CreateShortCut.exe” sPd=“建立快捷方式” endif if upper(sPn)= “CREATESHORTCUT.EXE” cl=chr(13)+chr(10)+chr(13)+chr(10) sTs=“本程序使用方法：”+c...