正在阅读：Delphi:Daily build实践Delphi:Daily build实践

　　set ProjectName=Project1

　　::LibPath

　　Set LibPath="C:\Program files\Borland\Delphi7\Lib; "

　　::Begin Code

　　for /F "tokens=2-4 delims=/- " %%A in ('date/T') do set strdate=%%C%%A%%B

　　mkdir %ArchivePath%\%strdate%\ABC0DEF

　　cd %ArchivePath%\%strdate%

　　%VSSPath% get %SSProject% -Y%Username%,%Password% -R -I-

　　%DelphiPath% -u%LibPath% -nc:\Project\build\dcu  %ArchivePath%\%strdate%\%ProjectName%

　　::archive

　　::move to release location

　　::Label the files

　　%VSSPath% label %SSProject% -L%strdate% -Y%Username%,%Password%  -I-

　　::send emails to all to report