delphi10.2 命令行编译x64脚本

@echo off

@echo delphi x64编译测试
@cd /d %~dp0
@echo 设置Delphi参数信息

@set SourcePath=%~dp0.\src
@set BinPath=%~dp0Bin

@echo 编译delphi x64
if exist %BinPath%\Test64.exe del /q %BinPath%\Test64.exe 

@set DCC64EXE="%systemdrive%\Program Files (x86)\Embarcadero\Studio\19.0\bin\DCC64.exe"
if not exist %DCC64EXE% set DCC64EXE="%systemdrive%\Program Files\Embarcadero\Studio\19.0\bin\DCC64.exe"
if not exist %DCC64EXE% set DCC64EXE="C:\Program Files (x86)\Embarcadero\Studio\19.0\bin\DCC64.exe"
@set BorlandPath=%systemdrive%\Program Files (x86)\Embarcadero\Studio\19.0
if not exist %BorlandPath% set BorlandPath=C:\Program Files (x86)\Embarcadero\Studio\19.0


@set UseBuild=/build
@set RPath="%BorlandPath%\lib"
@set IPATH="%BorlandPath%\lib"
@set UPATH="%BorlandPath%\lib"

set NameSpace="Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;REST;" 

echo.
@set OTYPE=-DCheckUpdate;RELEASE;
set EXEOUTPUT="%Binpath%"

@echo 开始编译Test64.dpr......%time%
cd /d %SourcePath%\
%DCC64EXE% -$D0 -$L- -$Y- -B -Q -GD -NS%NameSpace% -D%OTYPE% -U%UPATH% -I%IPath% -R%RPath% -E%EXEOUTPUT% %UseBuild% -W-SYMBOL_PLATFORM Test64.dpr
@cd /d %~dp0

@echo Test64.dpr编译完成...%time%
@echo.