Показать сообщение отдельно
  #2  
Старый 01.06.2011, 07:34
foka2002 foka2002 вне форума
Прохожий
 
Регистрация: 01.06.2011
Сообщения: 10
Репутация: 10
По умолчанию

batch файл такой попробуй
Код:
if exist .cfg ren .cfg .cf~
 if exist DCC32.cfg ren DCC32.cfg DCC32.cf~
 rem #0Make console target, unless overridden later
 echo -M -CC >> DCC32.cfg
 echo -$A+ >> DCC32.cfg
 echo -$B- >> DCC32.cfg
 echo -$C+ >> DCC32.cfg
 echo -$D- >> DCC32.cfg
 echo -$G+ >> DCC32.cfg
 echo -$H+ >> DCC32.cfg
 echo -$I+ >> DCC32.cfg
 echo -$J- >> DCC32.cfg
 echo -$L- >> DCC32.cfg
 echo -$M- >> DCC32.cfg
 echo -$O+ >> DCC32.cfg
 echo -$P+ >> DCC32.cfg
 echo -$Q- >> DCC32.cfg
 echo -$R- >> DCC32.cfg
 echo -$T- >> DCC32.cfg
 echo -$U- >> DCC32.cfg
 echo -$V+ >> DCC32.cfg
 echo -$W- >> DCC32.cfg
 echo -$X+ >> DCC32.cfg
 echo -$Y2 >> DCC32.cfg
 rem #0ShowHints
 echo -H >> DCC32.cfg
 rem #0ShowWarnings
 echo -W >> DCC32.cfg
 rem #0ImageBase
 echo -K$41000000 >> DCC32.cfg
 rem #0OutputDir
 echo -E"%OpusTools%" >> DCC32.cfg
 rem #0OutputDir
 echo -LN"%OpusTools%" >> DCC32.cfg
 rem #0Packages
 echo -LUvcl50;vclx50 >> DCC32.cfg
 rem #0SearchPath
 echo -U"" >> DCC32.cfg
 rem #0SearchPath
 echo -R"" >> DCC32.cfg
 rem #0SearchPath
 echo -O"" >> DCC32.cfg
 rem #0SearchPath
 echo -I"" >> DCC32.cfg
 rem #0BuildAll
 echo -B >> DCC32.cfg
 rem #0Min/MaxStackSize
 echo -M16384,1048576 >> DCC32.cfg

 "\Bin\DCC32.exe" .dpr %1 %2 %3 %4 %5 %6 %7 %8 %9
 if errorlevel 1 goto GotError
 goto Finish

 rem #0Got 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
 ==================================================================
 Nun mьssen nur noch folgende Anpassungen gemacht werden:
 Now just adjust the following things:
 => Projekt Datei/ Project file
 Ex / Bsp: Project1
 => Delphi Pfad/ Delphi path
 Ex / Bsp: C:\Programme\Borland\Delphi5
 => Suchpfad fьr Units/ Search path for units
 Ex / Bsp: "C:\Dev\Lib;C:\Dev\Lib\Base"
Ответить с цитированием