使用VFP開(kāi)發(fā)一個(gè)應(yīng)用軟件，最后一步是制作發(fā)布磁盤(pán)。使用VFP安裝向?qū)е谱鞯陌l(fā)布磁盤(pán)在安裝時(shí)一般只在“開(kāi)始\程序\Visual FoxPro 應(yīng)用程序”組中建立快捷方式。如果希望在安裝時(shí)把快捷方式建在桌面上、開(kāi)始菜單中或啟動(dòng)組中，該怎么辦呢？
解決思路
下面是筆者的解決辦法。大體可分兩步進(jìn)行：
1．使用VFP編制一個(gè)用來(lái)建立快捷方式的程序（設(shè)程序名為CreateShortCut.exe）；
2．在安裝向?qū)А安襟E4-安裝選項(xiàng)”的“執(zhí)行程序”標(biāo)簽下的文本框中填入前面建立的程序文件名及其路徑（通過(guò)瀏覽“…”按鈕查找）。
這里的關(guān)鍵是第一步，如果有了第一步建立的程序CreateShortCut.exe，后一步是十分簡(jiǎn)單的。接下來(lái)具體說(shuō)明用VFP編制建立快捷方式程序的方法。
具體實(shí)現(xiàn)
建立快捷方式的程序中需要使用DLL函數(shù)fCreateShellLink，該函數(shù)在STKIT432.DLL中（STKIT432.DLL可在Visual Basic 4.0 for Windows的Setup Kit中找到）。在VFP中聲明fCreateShellLink函數(shù)的命令是：
declare long fCreateShellLink in “STKIT432.DLL” String p1, String p2, String p3, String p4
其中：
● p1: 用來(lái)指出快捷方式要加入的文件夾及其相對(duì)于Windows\Programs文件夾的路徑；
● p2: 用來(lái)指出快捷方式的名稱(chēng)；
● p3: 用來(lái)指出程序文件名(含擴(kuò)展名)及其路徑;
● p4: 用來(lái)指出執(zhí)行程序的命令行參數(shù)，一般為空串。
例如，要想把程序“C:\Windows\command
.com”的快捷方式以“DOS窗口”為名建立在附件中，可用命令：
fCreateShellLink(“.\附件”,“DOS窗口”, “C:\Windows\command.com”, “”)
下面創(chuàng)建前面所述的CreateShortCut.exe程序，先檢查Windows\System文件夾中是否存在STKIT432.DLL文件，如果存在（否則，找到該文件將其復(fù)制到Windows\System文件夾），執(zhí)行如下操作:
1．打開(kāi)VFP，新建一個(gè)名為CreateShortCut的項(xiàng)目。
2. 在CreateShortCut項(xiàng)目中新建一個(gè)名為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=“本程序使用方法：”+cl;
+“先把本程序復(fù)制到要建立快捷方式的程序所在的文件夾，然后，”+cl ;
+“從“開(kāi)始”菜單中單擊“運(yùn)行”，在“運(yùn)行”對(duì)話(huà)框中，通過(guò)”+cl ;
+““瀏覽”按鈕找到本程序，再在“打開(kāi)”組合框中本程序名之后”+cl ;
+“輸入命令行參數(shù)： <程序文件名(含擴(kuò)展名)> <快捷方式標(biāo)題>，”+cl ;
+“最后，按“確定”按鈕執(zhí)行。”
messagebox(sTs,64, “提示”)
Cancel
endif
sPn=fullpath(sPn)
do form frmCreateShortCut with sPn,sPd
read events
3. 在CreateShortCut項(xiàng)目中新建一個(gè)文件名為frmCreateShortCut的表單（如下圖）。各復(fù)選框的名稱(chēng)自上而下依次為: chkProgram、chkDeskTop、chkStartMenu、chkStartUp、chkQuickLaunch。
解決思路
下面是筆者的解決辦法。大體可分兩步進(jìn)行：
1．使用VFP編制一個(gè)用來(lái)建立快捷方式的程序（設(shè)程序名為CreateShortCut.exe）；
2．在安裝向?qū)А安襟E4-安裝選項(xiàng)”的“執(zhí)行程序”標(biāo)簽下的文本框中填入前面建立的程序文件名及其路徑（通過(guò)瀏覽“…”按鈕查找）。
這里的關(guān)鍵是第一步，如果有了第一步建立的程序CreateShortCut.exe，后一步是十分簡(jiǎn)單的。接下來(lái)具體說(shuō)明用VFP編制建立快捷方式程序的方法。
具體實(shí)現(xiàn)
建立快捷方式的程序中需要使用DLL函數(shù)fCreateShellLink，該函數(shù)在STKIT432.DLL中（STKIT432.DLL可在Visual Basic 4.0 for Windows的Setup Kit中找到）。在VFP中聲明fCreateShellLink函數(shù)的命令是：
declare long fCreateShellLink in “STKIT432.DLL” String p1, String p2, String p3, String p4
其中：
● p1: 用來(lái)指出快捷方式要加入的文件夾及其相對(duì)于Windows\Programs文件夾的路徑；
● p2: 用來(lái)指出快捷方式的名稱(chēng)；
● p3: 用來(lái)指出程序文件名(含擴(kuò)展名)及其路徑;
● p4: 用來(lái)指出執(zhí)行程序的命令行參數(shù)，一般為空串。
例如，要想把程序“C:\Windows\command
.com”的快捷方式以“DOS窗口”為名建立在附件中，可用命令：
fCreateShellLink(“.\附件”,“DOS窗口”, “C:\Windows\command.com”, “”)
下面創(chuàng)建前面所述的CreateShortCut.exe程序，先檢查Windows\System文件夾中是否存在STKIT432.DLL文件，如果存在（否則，找到該文件將其復(fù)制到Windows\System文件夾），執(zhí)行如下操作:
1．打開(kāi)VFP，新建一個(gè)名為CreateShortCut的項(xiàng)目。
2. 在CreateShortCut項(xiàng)目中新建一個(gè)名為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=“本程序使用方法：”+cl;
+“先把本程序復(fù)制到要建立快捷方式的程序所在的文件夾，然后，”+cl ;
+“從“開(kāi)始”菜單中單擊“運(yùn)行”，在“運(yùn)行”對(duì)話(huà)框中，通過(guò)”+cl ;
+““瀏覽”按鈕找到本程序，再在“打開(kāi)”組合框中本程序名之后”+cl ;
+“輸入命令行參數(shù)： <程序文件名(含擴(kuò)展名)> <快捷方式標(biāo)題>，”+cl ;
+“最后，按“確定”按鈕執(zhí)行。”
messagebox(sTs,64, “提示”)
Cancel
endif
sPn=fullpath(sPn)
do form frmCreateShortCut with sPn,sPd
read events
3. 在CreateShortCut項(xiàng)目中新建一個(gè)文件名為frmCreateShortCut的表單（如下圖）。各復(fù)選框的名稱(chēng)自上而下依次為: chkProgram、chkDeskTop、chkStartMenu、chkStartUp、chkQuickLaunch。