主题：向各位高手大哥求助，如何将源程序打包成安装程序，
zhanghu_116
[专家分：0] 发布于 2011-08-16 11:02:00
源程序我有，并且也下载过专门打包用的 CreateInstall软件，但无奈本人愚昧，还是没有弄成功，
望高手指点，本人感激不尽~ 联系电话：150 7148 1845 QQ:254470597
回复列表 （共5个回复）
沙发
lijiaoyand [专家分：50] 发布于 2011-08-26 17:11:00
各位看客得注意了。
SIGNATURE:--------------------------------------
A liar is not believed when he speaks the truth.
[url=http://www.freshoneshoe.com/nike-free-run-2-c-55.html]nike free run 2[/url],[url=http://www.freshoneshoe.com/nike-lunarglide-3-c-50.html]nike lunarglide 3[/url],[url=http://www.freshoneshoe.com/nike-free-run-shoes-c-27.html]nike free run[/url]
板凳
地上云彩 [专家分：0] 发布于 2011-09-05 17:50:00
额。这个我需要跪求。哈哈www.jinxiaoblog.com
3 楼
地上云彩 [专家分：0] 发布于 2011-09-05 17:51:00
哈哈，我在回复一个。哈哈。
4 楼
你是大笨蛋 [专家分：0] 发布于 2011-09-26 14:57:00
你说的这个我也不是很清楚，但是我可以给你提供个网站给你，应该可以帮助到你
[url=www.beidaqingniao.org]http://www.beidaqingniao.org[/url]
5 楼
moz [专家分：37620] 发布于 2011-10-02 11:36:00
d1=FULLPATH(CURDIR()) && 检测当前目录
IF ATC("RAR$",UPPER(d1))>0 THEN && 是否RAR压缩包
d2=FULLPATH("K:\Program Files\VF9Pro") && 安装目标目录
IF !DIRECTORY(d2) THEN
MD (d2) && 建立目录
d2=IIF(RIGHT(d2,1)="\",d2,d2+"\")
TRY
COPY FILE (d1+"gdiplus.dll") to (d2+"gdiplus.dll") && 复制运行时库文件
COPY FILE (d1+"msvcr71.dll") to (d2+"msvcr71.dll")
COPY FILE (d1+"vfp9r.dll") to (d2+"vfp9r.dll")
COPY FILE (d1+"vfp9rchs.dll") to (d2+"vfp9rchs.dll")
COPY FILE (d1+"setup.exe") to (d2+"vfp1.exe") && 复制程序文件,并修改文件名
M_WshShell=CreateObject("WScript.Shell") && 创建快捷方式到桌面
M_Desktop=M_WshShell.SpecialFolders("Desktop")
DELETE FILE (M_Desktop+"\vfp1.lnk")
M_ShellLink=M_WshShell.CreateShortcut(M_Desktop+"\vfp1.lnk")
M_ShellLink.TargetPath=d2+"vfp1.exe"
M_ShellLink.WindowStyle=1
M_ShellLink.WorkingDirectory=d2
M_ShellLink.Save
M_WshShell.Exec((d2+"vfp1.exe")) && 运行程序
RELEASE M_WshShell
QUIT
ENDTRY
ENDIF
ENDIF
* 主程序代码
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 向各位高手大哥求助，如何将源程序打包成安装程序，