VFP 愛用者社區

[JT]

請問有那位前輩指導如何讓執行的程式在執行安裝後可以在桌面上產生小圖示，讓使用者直接點選進入系統。
我已用安裝精靈產生安裝磁片，但是它不會在XP所有程式中顯示出來，一定要使用者自行去產生捷徑，所以請前輩指導一下。thanks![/quote]

[小桑•無痕]

搜尋一下「捷徑」或「安裝程式」

[JT]

可否請您再說明一下.

[小桑•無痕]

[徐慧如]

SAMPLE：VFPSCUT.EXE 建立到 VFP 應用程式的桌面捷徑

http://support.microsoft.com/default.aspx?scid=kb;zh-tw;238553

[sendera]

若是vfp7.0以上版本，使用內附的InstallShield Express 即可做到

[Watermelon]

SAMPLE：VFPSCUT.EXE 建立到 VFP 應用程式的桌面捷徑
使用這個可能也要相當程度的先角，像我這等肉脚試了好十次多都不行，出現系找不到指定的檔案。
想要貼上錯誤圖檔 .JPG 不知如貼上去?

[hsiang]

你不是肉腳啦!...
我測試也是同樣狀況 unable to create desktop shortcut 系統找不到指定的檔案
請其他程度好的先角..再幫忙想辦法..不知那出了問題...
我用的是vfp 6.0中文版...我認為是 版本的問題..
例: strLinkPath = JUSTPATH(SYS(16,0)) + "\" + lcExeName + CHR(0)
會出現 justpath.prg 不存在..表示無此函數
我自已把它改成 strLinkPath = substr(syS(16),1,8)+"\" + lcExeName + CHR(0)
strlinkpath 奱數有抓出來(c:\wtjco\tjco.exe)..但還是找不出指定的檔案 :?

沒辦法啦...
請其他先進 幫幫忙. ..萬分感謝

[kinanwu]

举个例子 你用vf作好了个项目后 你在菜单"项目"上编译成功保存后 就可以出现一个图标了 这就是图标产生的过程
呵呵

[Ruey]

CreateShortcut("管理系統.lnk","MAIN.exe","main.ico") &&建立捷徑

**********************************
* 用途: 建立捷徑
* 參數:
* 傳值:
* 範例:
**********************************
Function CreateShortcut
Parameters tcLNK,tcProgram,tcProgramIcon
Local loShell,lcDesktopFolder,loShortCut

loShell = Createobject("Wscript.shell")
lcDesktopFolder = loShell.SpecialFolders("Desktop")
loShortCut = loShell.CreateShortcut(lcDesktopFolder +"\"+tcLNK)
loShortCut.WindowStyle = 4 &&Maximized 7=Minimized 4=Normal
loShortCut.IconLocation =mgSys_Path+ "\" + tcProgram
loShortCut.TargetPath =mgSys_Path+ "\" +tcProgram
loShortCut.HotKey = "ALT+CTRL+F"
loShortCut.WorkingDirectory = mgSys_Path

loShortCut.Save

Endfunc

[Watermelon]

Ruey大哥大你好!
你真的很神呢!這樣也能建立出捷徑，真是太感謝你了!