分发 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...