Kilyan
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
@Echo off
Echo ******* Building *******
FOR /F "tokens=3 delims= " %%a IN ('reg query "HKCU\Software\Borland\Delphi\7.0\library" /v "Search Path"') DO set serchpath=%%a
if exist .cfg ren .cfg .cf~
if exist DCC32.cfg ren DCC32.cfg DCC32.cf~
rem # Make console target, unless overridden later
echo -$A8 >> DCC32.cfg
echo -$B- >> DCC32.cfg
echo -$C+ >> DCC32.cfg
echo -$D+ >> DCC32.cfg
echo -$E->> DCC32.cfg
echo -$F- >> DCC32.cfg
echo -$G+ >> DCC32.cfg
echo -$H+ >> DCC32.cfg
echo -$I+ >> DCC32.cfg
echo -$J- >> DCC32.cfg
echo -$K- >> DCC32.cfg
echo -$L+ >> DCC32.cfg
echo -$M- >> DCC32.cfg
echo -$N+ >> DCC32.cfg
echo -$O+ >> DCC32.cfg
echo -$P+ >> DCC32.cfg
echo -$Q- >> DCC32.cfg
echo -$R- >> DCC32.cfg
echo -$S- >> DCC32.cfg
echo -$T- >> DCC32.cfg
echo -$U- >> DCC32.cfg
echo -$V+ >> DCC32.cfg
echo -$W- >> DCC32.cfg
echo -$X+ >> DCC32.cfg
echo -$YD >> DCC32.cfg
echo -$Z1 >> DCC32.cfg
echo -GD >> DCC32.cfg
echo -cg >> DCC32.cfg
echo -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; >> DCC32.cfg
echo -H+ >> DCC32.cfg
echo -W+ >> DCC32.cfg
echo -M >> DCC32.cfg
rem # Min/MaxStackSize
echo -M16384,1048576 >> DCC32.cfg
rem # ImageBase
echo -K$00400000 >> DCC32.cfg
echo -LE"c:\program files\borland\delphi7\Projects\bpl" >> DCC32.cfg
echo -LN"c:\program files\borland\delphi7\Projects\Bpl" >> DCC32.cfg
echo -DEUREKALOG;EUREKALOG_VER6 >> DCC32.cfg
rem # Packages
echo -LUvcl;vclx >> DCC32.cfg
rem # SearchPath
echo -U"%serchpath%" >> DCC32.cfg
rem # SearchPath
echo -R"%serchpath%" >> DCC32.cfg
rem # SearchPath
echo -O"%serchpath%" >> DCC32.cfg
rem # SearchPath
echo -I"%serchpath%" >> DCC32.cfg
rem # BuildAll
echo -B >> DCC32.cfg
"c:\Program Files\Borland\Delphi7\Bin\DCC32.EXE" *.dpr %1 %2 %3 %4 %5 %6 %7 %8 %9
if errorlevel 1 goto GotError
goto Finish
rem # Got an error. Wait for user input
:GotError
echo Error!
pause
:Finish
del DCC32.cfg
if exist DCC32.cf~ ren DCC32.cf~ DCC32.cfg
if exist .cf~ ren .cf~ .cfg
Echo ******* Done. *******
:End
|
Всего записей: 886 | Зарегистр. 04-09-2008 | Отправлено: 16:03 10-11-2008 | Исправлено: Kilyan, 16:08 10-11-2008 |
|
