利用DCC32实现命令行批量编译

  1 [Compiler]
  2 
  3 A=1
  4 
  5 B=0
  6 
  7 C=1
  8 
  9 D=1
 10 
 11 E=0
 12 
 13 F=0
 14 
 15 G=1
 16 
 17 H=1
 18 
 19 I=1
 20 
 21 J=1
 22 
 23 K=0
 24 
 25 L=1
 26 
 27 M=0
 28 
 29 N=1
 30 
 31 O=1
 32 
 33 P=1
 34 
 35 Q=0
 36 
 37 R=0
 38 
 39 S=0
 40 
 41 T=0
 42 
 43 U=0
 44 
 45 V=1
 46 
 47 W=0
 48 
 49 X=1
 50 
 51 Y=1
 52 
 53 Z=1
 54 
 55 ShowHints=1
 56 
 57 ShowWarnings=1
 58 
 59 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 60 
 61  
 62 
 63 [Linker]
 64 
 65 MapFile=0
 66 
 67 OutputObjs=0
 68 
 69 ConsoleApp=1
 70 
 71 DebugInfo=0
 72 
 73 RemoteSymbols=0
 74 
 75 MinStackSize=16384
 76 
 77 MaxStackSize=1048576
 78 
 79 ImageBase=4194304
 80 
 81 ExeDescription=
 82 
 83  
 84 
 85 [Directories]
 86 
 87 OutputDir=
 88 
 89 UnitOutputDir=c:\dcu
 90 
 91 PackageDLLOutputDir=
 92 
 93 PackageDCPOutputDir=
 94 
 95 SearchPath=
 96 Packages=Vcl50;Vclx50;Vcldb50;vclado50;ibevnt50;Vclbde50;vcldbx50;TeeUI50;TeeDB50;Tee50;TeeQR50;……
 97 Conditionals=
 98 
 99 DebugSourceDirs=
100 
101 UsePackages=1
102 
103  
104 
105 [Parameters]
106 
107 RunParams=
108 
109 HostApplication=D:\conductor60\c_dsbin\LeaderWorkCenter.exe
110 
111  
112 
113 [Language]
114 
115 ActiveLang=
116 
117 ProjectLang=$00000804
118 
119 RootDir=
120 
121  
122 
123 [Version Info]
124 
125 IncludeVerInfo=1
126 
127 AutoIncBuild=1
128 
129 MajorVer=2
130 
131 MinorVer=2
132 
133 Release=2
134 
135 Build=2
136 
137 Debug=0
138 
139 PreRelease=0
140 
141 Special=0
142 
143 Private=0
144 
145 DLL=1
146 
147 Locale=2052
148 
149 CodePage=936
150 
151  
152 
153 [Version Info Keys]
154 
155 CompanyName=公司
156 
157 FileDescription=系统程序
158 
159 FileVersion=2.2.2.2
160 
161 InternalName=
162 
163 LegalCopyright=(C)2002
164 
165 LegalTrademarks=中国(中文简体)版
166 
167 OriginalFilename=
168 
169 ProductName=系统
170 
171 ProductVersion=6.0
172 
173  
174 
175 [Excluded Packages]
176 
177 $(DELPHI)\Bin\dcldss50.bpl=Borland Decision Cube Components
178 
179  
180 
181 [HistoryLists\hlUnitAliases]
182 
183 Count=1
184 
185 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
186 
187  
188 
189 [HistoryLists\hlUnitOutputDirectory]
190 
191 Count=1
192 
193 Item0=c:\dcu
194 
195  
196 
197 [HistoryLists\hlOutputDirectorry]
198 
199 Count=5
200 
201 Item0=d:\Conductor60\c_modi
202 
203 Item1=d:\gConductor60\c_modi
204 
205 Item2=d:\gConductor60\c_pkg
206 
207 Item3=\\10.4.1.12\GConductor60\c_Pkg
208 
209 Item4=d:\gConductor50\c_modi

 1 @echo off
 2 
 3 Echo 正在编译，请稍等......
 4 
 5  
 6 
 7 Echo. > "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"
 8 
 9 Echo. 2008-9-27 8:41:46 >> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"
10 
11 Echo. ===========PalMr51C ===========>> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"
12 
13  
14 
15 Echo 删除C:\Program Files\Borland\Delphi5\Bin\DCC32.Cfg
16 
17 Echo. "Del C:\Program Files\Borland\Delphi5\Bin\DCC32.Cfg" >> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"
18 
19 Del "C:\Program Files\Borland\Delphi5\Bin\DCC32.Cfg"
20 
21  
22 
23 Echo 创建C:\Program Files\Borland\Delphi5\Bin\DCC32.Cfg
24 
25 Echo. "Copy D:\本地工作\北方区\SX-沈信\SOURCE70\PALMR59\PalMr59C.Cfg to DCC32.Cfg" >> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"
26 
27 Copy "D:\本地工作\北方区\SX-沈信\SOURCE70\PALMR59\PalMr59C.Cfg" "C:\Program Files\Borland\Delphi5\Bin\DCC32.Cfg"
28 
29  
30 
31 Echo 切换目录至D:\本地工作\北方区\SX-沈信\SOURCE70\PALMR5932 
33 Echo. "CD D:\本地工作\北方区\SX-沈信\SOURCE70\PALMR59\" >> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"
34 
35 CD/D "D:\本地工作\北方区\SX-沈信\SOURCE70\PALMR59\" >> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"
36 
37  
38 
39 Echo 编译
40 
41 Echo. "编译" >> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"
42 
43 "C:\Program Files\Borland\Delphi5\Bin\DCC32.Exe"  "D:\本地工作\北方区\SX-沈信\SOURCE70\PALMR59\PalMr59C.dpr" >> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"
44 
45 Echo ……
46 
47  
48 
49 echo 编译完成！
50 
51 echo. & pause