@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
SET ROOTDIR=%~dp0
ECHO ROOTDIR=!ROOTDIR!
SET DCC32="C:\Program Files\Borland\Delphi7\Bin\dcc32.exe"
SET DCC7_32="C:\Program Files\Borland\Delphi7\Bin\dcc32.exe"
SET DCCR_32="C:\Program Files\Embarcadero\Studio\20.0\bin\dcc32.exe"
CD %ROOTDIR%
SET DPR="NOVALUE"
SET DIRNAME="NODIR"
FOR /D %%D IN (.\*) DO (
ECHO Enter %%D
CD %%D
SET DIRNAME=%%D
FOR %%F IN (.\*.dpr) DO (
SET DPR=%%F
IF "!DPR:~-3!" == "dpr" (
ECHO Building !DPR! with !DPR:~0,-3!cfg in !DIRNAME!
IF "!DIRNAME:~-3!" == "_D7" (
%DCC7_32% "%%F"
IF !ERRORLEVEL! NEQ 0 GOTO END
) ELSE (
IF "!DIRNAME:~-4!" == "_FMX" (
%DCCR_32% "%%F"
IF !ERRORLEVEL! NEQ 0 GOTO END
) ELSE (
IF "!DIRNAME!" == ".\JsonPersistent" (
%DCCR_32% "%%F"
IF !ERRORLEVEL! NEQ 0 GOTO END
) ELSE (
IF "!DIRNAME!" == ".\XMLPersistent" (
REM Can NOT Compile This Project.
) ELSE (
%DCC32% "%%F"
IF !ERRORLEVEL! NEQ 0 GOTO END
)
)
)
)
)
)
CD ..
)
ECHO Build Examples Complete.
:END
CD %ROOTDIR%
PAUSE
|
