[求助]：请教：怎样给程序打包？

wweien

我用arx编了一段程序，并且定制了专业的菜单。我想问一下怎样才能给我的程序打包。使之整个成为一个可执行文件一点击就可以自动的装载到CAD中去，并且打开CAD。
请各位大侠不吝指教，

binbin

做一个.exe,用com技术打开CAD,load你的ARX,只要你懂com,一切简单!!

秋枫

给你一个我写的VBS程序作为例子。

这个是XD工具箱早期版本的安装程序中的一部份源代码。
你将其保存成setup.vbs 双击即可执行。

用其它语言的写法大致相同。

2. 
   
3. [FONT=courier new]
   
4. Option Explicit
   
5. 
   
6. Const AcadID = "AutoCAD.Application.15"
   
7. 
   
8. Sub AddSearchPath(PathName)
   
9.         Dim AcadSearchPath
   
10.         AcadSearchPath = AcadPrefiles.SupportPath
    
11.         If InStr(UCase(AcadSearchPath), UCase(PathName))=0 Then
    
12.                 AcadPrefiles.SupportPath = AcadSearchPath & ";" &PathName
    
13.         End If
    
14. End Sub
    
15. 
    
16. Dim AcadApp, AcadPrefiles, AcadDoc, FSO, CurrentDir
    
17. Dim AcadWorking, XDmenuGroup
    
18. 
    
19. ' ----------------------------------------Start AutoCAD
    
20. On Error Resume Next  'Track Error
    
21. AcadWorking = true
    
22. Set AcadApp = GetObject(,AcadID)
    
23. If Err Then
    
24.     Err.Clear
    
25.            Set AcadApp = CreateObject(AcadID)
    
26.            If Err Then  ' 当前的autocad版本没装
    
27.                    WScript.Quit()
    
28.            End If
    
29.            AcadApp.visible = False
    
30.     AcadApp.WindowState = 2
    
31.     AcadWorking = false
    
32. End If
    
33. On Error Goto 0   ' Clear Error Track
    
34. 
    
35. ' -----------------------------------------AutoCAD Launched
    
36. 
    
37. Set AcadPrefiles = AcadApp.Preferences.Files
    
38. Set AcadDoc = AcadApp.ActiveDocument
    
39. Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
    
40. CurrentDir = FSO.GetParentFolderName(WScript.scriptFullName)
    
41. CurrentDir = FSO.GetParentFolderName(CurrentDir)
    
42. 
    
43. AddSearchPath CurrentDir
    
44. AddSearchPath CurrentDir & "\LISP"
    
45. AddSearchPath CurrentDir & "\BIN"
    
46. AddSearchPath CurrentDir & "\SYS"
    
47. AddSearchPath CurrentDir & "\LIB"
    
48. 
    
49. ' AcadApp.ActiveDocument.SendCommand "(load ""XDLoadMenu"")" & vbCr
    
50. On Error Resume Next
    
51. Set XDMenuGroup = AcadApp.MenuGroups.Load("XDSoft.MNU")
    
52. If Err Then
    
53.         Set XDMenuGroup = AcadApp.MenuGroups.item("XDSoft")
    
54.     XDMenuGroup.Unload
    
55.     XDMenuGroup = AcadApp.MenuGroups.Load("XDSoft.MNU")
    
56.     Err.Clear
    
57. End if
    
58. XDmenuGroup.Menus.InsertMenuInMenuBar "XDSoft", AcadApp.MenuBar.Count - 2
    
59. On Error Goto 0
    
60. 
    
61. if not AcadWorking Then
    
62.         AcadApp.quit
    
63. End if       
    
64. [/FONT]

<br /> [FONT=courier new]<br /> Option Explicit<br /> <br /> Const AcadID = "AutoCAD.Application.15"<br /> <br /> Sub AddSearchPath(PathName)<br />         Dim AcadSearchPath<br />         AcadSearchPath = AcadPrefiles.SupportPath<br />         If InStr(UCase(AcadSearchPath), UCase(PathName))=0 Then<br />                 AcadPrefiles.SupportPath = AcadSearchPath & ";" &PathName<br />         End If<br /> End Sub<br /> <br /> Dim AcadApp, AcadPrefiles, AcadDoc, FSO, CurrentDir<br /> Dim AcadWorking, XDmenuGroup<br /> <br /> ' ----------------------------------------Start AutoCAD<br /> On Error Resume Next  'Track Error<br /> AcadWorking = true<br /> Set AcadApp = GetObject(,AcadID)<br /> If Err Then<br />     Err.Clear<br />            Set AcadApp = CreateObject(AcadID)<br />            If Err Then  ' 当前的autocad版本没装<br />                    WScript.Quit()<br />            End If<br />            AcadApp.visible = False<br />     AcadApp.WindowState = 2<br />     AcadWorking = false<br /> End If<br /> On Error Goto 0   ' Clear Error Track<br /> <br /> ' -----------------------------------------AutoCAD Launched<br /> <br /> Set AcadPrefiles = AcadApp.Preferences.Files<br /> Set AcadDoc = AcadApp.ActiveDocument<br /> Set FSO = WScript.CreateObject("Scripting.FileSystemObject")<br /> CurrentDir = FSO.GetParentFolderName(WScript.scriptFullName)<br /> CurrentDir = FSO.GetParentFolderName(CurrentDir)<br /> <br /> AddSearchPath CurrentDir<br /> AddSearchPath CurrentDir & "\LISP"<br /> AddSearchPath CurrentDir & "\BIN"<br /> AddSearchPath CurrentDir & "\SYS"<br /> AddSearchPath CurrentDir & "\LIB"<br /> <br /> ' AcadApp.ActiveDocument.SendCommand "(load ""XDLoadMenu"")" & vbCr<br /> On Error Resume Next<br /> Set XDMenuGroup = AcadApp.MenuGroups.Load("XDSoft.MNU")<br /> If Err Then<br />         Set XDMenuGroup = AcadApp.MenuGroups.item("XDSoft")<br />     XDMenuGroup.Unload<br />     XDMenuGroup = AcadApp.MenuGroups.Load("XDSoft.MNU")<br />     Err.Clear<br /> End if<br /> XDmenuGroup.Menus.InsertMenuInMenuBar "XDSoft", AcadApp.MenuBar.Count - 2<br /> On Error Goto 0<br /> <br /> if not AcadWorking Then<br />         AcadApp.quit<br /> End if        <br /> [/FONT]

秋枫

这是前帖的反安装程序。反向代码。XD工具箱卸载时执行的代码。

2. 
   
3. [FONT=courier new]
   
4. Option Explicit
   
5. 
   
6. ' 这个函数split是为win98的wscript host 1.0定义的，2.0以上的版本vbs中含有这个标准函数
   
7. ' 来自明经通道, 修改成vbscript版本
   
8. Function Split(Str, Delim)
   
9.      Dim tokens(), pos, i
   
10. 
    
11.     pos = InStr(1, Str, Delim, vbTextCompare)
    
12.     i = 0
    
13. 
    
14.     Do While pos > 0
    
15.       ReDim Preserve tokens(i)
    
16.       tokens(i) = Mid(Str, 1, pos - 1)
    
17.       If tokens(i) = Delim Then tokens(i) = ""
    
18.       Str = Mid(Str, pos + Len(Delim))
    
19.       i = i + 1
    
20.       pos = InStr(1, Str, Delim, vbTextCompare)
    
21.     Loop
    
22. 
    
23.     If Len(Str) > 0 Then
    
24.       ReDim Preserve tokens(i)
    
25.       tokens(i) = Str
    
26.     End If
    
27. 
    
28.     Split = tokens
    
29. 
    
30. End Function
    
31. 
    
32. 
    
33. Const AcadID = "AutoCAD.Application.15"
    
34. 
    
35. Dim AcadApp, AcadPrefiles, AcadDoc, FSO, CurrentDir
    
36. Dim AcadWorking, AcadSearchPath, PathArray, TempStr, XDMenuGroup
    
37. 
    
38. ' ----------------------------------------Start AutoCAD
    
39. On Error Resume Next  'Track Error
    
40. AcadWorking = true
    
41. Set AcadApp = GetObject(,AcadID)
    
42. If Err Then
    
43.     Err.Clear
    
44.            Set AcadApp = CreateObject(AcadID)
    
45.            If Err Then  ' 当前的autocad版本没装
    
46.                    WScript.Quit()
    
47.            End If
    
48.            AcadApp.visible = false
    
49.     AcadApp.WindowState = 2
    
50.     AcadWorking = false
    
51. End If
    
52. On Error Goto 0   ' Clear Error Track
    
53. ' -----------------------------------------AutoCAD Launched
    
54. 
    
55. Set AcadPrefiles = AcadApp.Preferences.Files
    
56. Set AcadDoc = AcadApp.ActiveDocument
    
57. Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
    
58. CurrentDir = FSO.GetParentFolderName(WScript.scriptFullName)
    
59. CurrentDir = FSO.GetParentFolderName(CurrentDir)
    
60. AcadSearchPath = AcadPrefiles.SupportPath
    
61. PathArray = Split(AcadSearchPath, ";")
    
62. 
    
63. ' AcadApp.ActiveDocument.SendCommand "(load ""XDUnLoadMenu"")" & vbCr
    
64. On Error Resume Next
    
65. Set XDMenuGroup = AcadApp.MenuGroups.item("XDSoft")
    
66. if not Err then XDMenuGroup.Unload
    
67. AcadApp.UnloadARX("xdrx_api15.arx")
    
68. On Error Goto 0
    
69. 
    
70. AcadSearchPath = ""
    
71. For Each TempStr In PathArray
    
72.         If (UCase(TempStr)<>UCase(CurrentDir)) And _
    
73.            (UCase(TempStr)<>UCase(CurrentDir & "\LISP")) And _
    
74.            (UCase(TempStr)<>UCase(CurrentDir & "\BIN")) And _
    
75.            (UCase(TempStr)<>UCase(CurrentDir & "\LIB")) And _
    
76.            (UCase(TempStr)<>UCase(CurrentDir & "\SYS")) Then
    
77.                 If  AcadSearchPath = ""  Then
    
78.                         AcadSearchPath = TempStr
    
79.                 Else
    
80.                         AcadSearchPath = AcadSearchPath & ";" & TempStr
    
81.                 End If
    
82.         End If
    
83. Next
    
84. 
    
85. AcadPrefiles.SupportPath = AcadSearchPath
    
86. 
    
87. if not AcadWorking Then
    
88.         AcadApp.quit
    
89. End if       
    
90. [/FONT]

<br /> [FONT=courier new]<br /> Option Explicit<br /> <br /> ' 这个函数split是为win98的wscript host 1.0定义的，2.0以上的版本vbs中含有这个标准函数<br /> ' 来自明经通道, 修改成vbscript版本<br /> Function Split(Str, Delim)<br />      Dim tokens(), pos, i<br /> <br />     pos = InStr(1, Str, Delim, vbTextCompare)<br />     i = 0<br /> <br />     Do While pos > 0<br />       ReDim Preserve tokens(i)<br />       tokens(i) = Mid(Str, 1, pos - 1)<br />       If tokens(i) = Delim Then tokens(i) = ""<br />       Str = Mid(Str, pos + Len(Delim))<br />       i = i + 1<br />       pos = InStr(1, Str, Delim, vbTextCompare)<br />     Loop<br /> <br />     If Len(Str) > 0 Then<br />       ReDim Preserve tokens(i)<br />       tokens(i) = Str<br />     End If<br /> <br />     Split = tokens<br /> <br /> End Function<br /> <br /> <br /> Const AcadID = "AutoCAD.Application.15"<br /> <br /> Dim AcadApp, AcadPrefiles, AcadDoc, FSO, CurrentDir<br /> Dim AcadWorking, AcadSearchPath, PathArray, TempStr, XDMenuGroup<br /> <br /> ' ----------------------------------------Start AutoCAD<br /> On Error Resume Next  'Track Error<br /> AcadWorking = true<br /> Set AcadApp = GetObject(,AcadID)<br /> If Err Then<br />     Err.Clear<br />            Set AcadApp = CreateObject(AcadID)<br />            If Err Then  ' 当前的autocad版本没装<br />                    WScript.Quit()<br />            End If<br />            AcadApp.visible = false<br />     AcadApp.WindowState = 2<br />     AcadWorking = false<br /> End If<br /> On Error Goto 0   ' Clear Error Track<br /> ' -----------------------------------------AutoCAD Launched<br /> <br /> Set AcadPrefiles = AcadApp.Preferences.Files<br /> Set AcadDoc = AcadApp.ActiveDocument<br /> Set FSO = WScript.CreateObject("Scripting.FileSystemObject")<br /> CurrentDir = FSO.GetParentFolderName(WScript.scriptFullName)<br /> CurrentDir = FSO.GetParentFolderName(CurrentDir)<br /> AcadSearchPath = AcadPrefiles.SupportPath<br /> PathArray = Split(AcadSearchPath, ";")<br /> <br /> ' AcadApp.ActiveDocument.SendCommand "(load ""XDUnLoadMenu"")" & vbCr<br /> On Error Resume Next<br /> Set XDMenuGroup = AcadApp.MenuGroups.item("XDSoft")<br /> if not Err then XDMenuGroup.Unload<br /> AcadApp.UnloadARX("xdrx_api15.arx")<br /> On Error Goto 0<br /> <br /> AcadSearchPath = ""<br /> For Each TempStr In PathArray<br />         If (UCase(TempStr)<>UCase(CurrentDir)) And _<br />            (UCase(TempStr)<>UCase(CurrentDir & "\LISP")) And _<br />            (UCase(TempStr)<>UCase(CurrentDir & "\BIN")) And _<br />            (UCase(TempStr)<>UCase(CurrentDir & "\LIB")) And _<br />            (UCase(TempStr)<>UCase(CurrentDir & "\SYS")) Then<br />                 If  AcadSearchPath = ""  Then<br />                         AcadSearchPath = TempStr<br />                 Else<br />                         AcadSearchPath = AcadSearchPath & ";" & TempStr<br />                 End If<br />         End If<br /> Next<br /> <br /> AcadPrefiles.SupportPath = AcadSearchPath<br /> <br /> if not AcadWorking Then<br />         AcadApp.quit<br /> End if        <br /> [/FONT]

binbin

vbs文件能编译吗?我不懂,也就是说加密.

秋枫

不能编译。

ms有一个encode程序，可以加密。但只是对源代码加密执行。解释执行。XD工具箱原来的安装程序是全明码的。但由于有的win95/98没有自带vbscript 解释器，所以执行有点问题。后来还是改用exe方式了。

土土土

1. 选定一个基本软件,如installshield, wiseinstall,等;
2. 将要打包的文件打进去, 如果用了控件,要将控件包进来并设为自动注册
3.如果用了微软的数据库联接, 要将相应的库包含进来
4.如果用到加密DOG,要将相应的驱动程序包进来并自动安装.
5.用VB或VC写一个EXE来对AutoCAD进行初始化. 初始化可以有以下内容:
5.1 )  自动查找AutoCAD的版本\配置, 如果目标机上有多个AutoCAD, 要选一个出来;
5.2 )  在当前的CAD用户下配置支持路径
5.3 )  配置AutoCAD安装方式,  在何时以及如何load你的文件到AutoCAD中;
5.4 ) 桌面图标启动,可以改变AutoCAD的启动方式, 也可以设一个全新的图标来启动.

6. 这样, 整个安装将只是SETUP 就可以了. Every thing is OK.

xfh78

用VB或VC写了对AutoCAD进行初始化的EXE， 如 何 使 其 在SETUP 时 自 动 运 行， 我 用 的 是installshield

qren25

诸位见题所示问题，有试过的吗？

yoursmile

这个问题我也想问哦！