delphi10.2 命令行编译x64脚本

Posted 2020-11-30 onlyou13

Build.bat

@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)EmbarcaderoStudio19.0inDCC64.exe"
if not exist %DCC64EXE% set DCC64EXE="%systemdrive%Program FilesEmbarcaderoStudio19.0inDCC64.exe"
if not exist %DCC64EXE% set DCC64EXE="C:Program Files (x86)EmbarcaderoStudio19.0inDCC64.exe"
@set BorlandPath=%systemdrive%Program Files (x86)EmbarcaderoStudio19.0
if not exist %BorlandPath% set BorlandPath=C:Program Files (x86)EmbarcaderoStudio19.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.

目录结构：