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

*.dof

 [Compiler]

 A=1

 B=0

 C=1

 D=1

 E=0

 F=0

 G=1

 H=1

 I=1

 J=1

 K=0

 L=1

 M=0

 N=1

 O=1

 P=1

 Q=0

 R=0

 S=0

 T=0

 U=0

 V=1

 W=0

 X=1

 Y=1

 Z=1

 ShowHints=1

 ShowWarnings=1

 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

 [Linker]

 MapFile=0

 OutputObjs=0

 ConsoleApp=1

 DebugInfo=0

 RemoteSymbols=0

 MinStackSize=16384

 MaxStackSize=1048576

 ImageBase=4194304

 ExeDescription=

 [Directories]

 OutputDir=

 UnitOutputDir=c:\dcu

 PackageDLLOutputDir=

 PackageDCPOutputDir=

 SearchPath=
 Packages=Vcl50;Vclx50;Vcldb50;vclado50;ibevnt50;Vclbde50;vcldbx50;TeeUI50;TeeDB50;Tee50;TeeQR50;……
 Conditionals=

 DebugSourceDirs=

 UsePackages=1

 [Parameters]

 RunParams=

 HostApplication=D:\conductor60\c_dsbin\LeaderWorkCenter.exe

 [Language]

 ActiveLang=

 ProjectLang=$00000804

 RootDir=

 [Version Info]

 IncludeVerInfo=1

 AutoIncBuild=1

 MajorVer=2

 MinorVer=2

 Release=2

 Build=2

 Debug=0

 PreRelease=0

 Special=0

 Private=0

 DLL=1

 Locale=2052

 CodePage=936

 [Version Info Keys]

 CompanyName=公司

 FileDescription=系统程序

 FileVersion=2.2.2.2

 InternalName=

 LegalCopyright=(C)2002

 LegalTrademarks=中国(中文简体)版

 OriginalFilename=

 ProductName=系统

 ProductVersion=6.0

 [Excluded Packages]

 $(DELPHI)\Bin\dcldss50.bpl=Borland Decision Cube Components

 [HistoryLists\hlUnitAliases]

 Count=1

 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

 [HistoryLists\hlUnitOutputDirectory]

 Count=1

 Item0=c:\dcu

 [HistoryLists\hlOutputDirectorry]

 Count=5

 Item0=d:\Conductor60\c_modi

 Item1=d:\gConductor60\c_modi

 Item2=d:\gConductor60\c_pkg

 Item3=\\10.4.1.12\GConductor60\c_Pkg

 Item4=d:\gConductor50\c_modi

*.Cfg

-B

-Q

Y-

-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

-E"C:\Documents and Settings\chengjiea\桌面\新建文件夹"

-LN"C:\Documents and Settings\chengjiea\桌面\新建文件夹"

-LE"C:\Documents and Settings\chengjiea\桌面\新建文件夹"

-N"c:\dcu"

-U"C:\Documents and Settings\chengjiea\桌面\新建文夹;O:\CLASS\SOURCE;O:\LIB\SOURCE;O:\VCL\SOURCE;O:\VCL\SOURCE\quickrpt;O:\VCL\SOURCE\DesignVR5;O:\VCL\SOURCE\ip2000-O"C:\Documents and Settings\chengjiea\桌面\新建文件夹;O:\CLASS\SOURCE;O:\LIB\SOURCE;O:\VCL\SOURCE;O:\VCL\SOURCE\quickrpt;O:\VCL\SOURCE\DesignVR5;O:\VCL\SOURCE\ip2000

-R"C:\Documents and Settings\chengjiea\桌面\新建文件夹;O:\CLASS\SOURCE;O:\LIB\SOURCE;O:\VCL\SOURCE;O:\VCL\SOURCE\quickrpt;O:\VCL\SOURCE\DesignVR5;O:\VCL\SOURCE\ip2000

-I"C:\Documents and Settings\chengjiea\桌面\新建文件夹;O:\CLASS\SOURCE;O:\LIB\SOURCE;O:\VCL\SOURCE;O:\VCL\SOURCE\quickrpt;O:\VCL\SOURCE\DesignVR5;O:\VCL\SOURCE\ip2000

-LUVcl50;Vclx50;VclSmp50;Vcldb50;vclado50;ibevnt50;……

（请酌情修改）

*.bat

 @echo off

 Echo 正在编译，请稍等......

 Echo. > "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"

 Echo. 2008-9-27 8:41:46 >> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"

 Echo. ===========PalMr51C ===========>> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"

 Echo 删除C:\Program Files\Borland\Delphi5\Bin\DCC32.Cfg

 Echo. "Del C:\Program Files\Borland\Delphi5\Bin\DCC32.Cfg" >> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"

 Del "C:\Program Files\Borland\Delphi5\Bin\DCC32.Cfg"

 Echo 创建C:\Program Files\Borland\Delphi5\Bin\DCC32.Cfg

 Echo. "Copy D:\本地工作\北方区\SX-沈信\SOURCE70\PALMR59\PalMr59C.Cfg to DCC32.Cfg" >> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"

 Copy "D:\本地工作\北方区\SX-沈信\SOURCE70\PALMR59\PalMr59C.Cfg" "C:\Program Files\Borland\Delphi5\Bin\DCC32.Cfg"

 Echo 切换目录至D:\本地工作\北方区\SX-沈信\SOURCE70\PALMR59\

 Echo. "CD D:\本地工作\北方区\SX-沈信\SOURCE70\PALMR59\" >> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"

 CD/D "D:\本地工作\北方区\SX-沈信\SOURCE70\PALMR59\" >> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"

 Echo 编译

 Echo. "编译" >> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"

 "C:\Program Files\Borland\Delphi5\Bin\DCC32.Exe"  "D:\本地工作\北方区\SX-沈信\SOURCE70\PALMR59\PalMr59C.dpr" >> "C:\Documents and Settings\chengjiea\桌面\CompileHouseLog.Txt"

 Echo ……

 echo 编译完成！

 echo. & pause