forked from RRUZ/delphi-dev-shell-tools
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Build_x64Debug.bat
32 lines (29 loc) · 956 Bytes
/
Build_x64Debug.bat
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
@echo off
set dll=%CD%\Win64\Debug\DelphiDevShellTools.dll
if exist %dll% (
echo Unregistering
powershell -Command "start-process cmd \"/c regsvr32 %dll% /u \" -Verb RunAs"
del %dll%
pause
)
if exist %dll% (
echo DLL was locked by explorer so restarting explorer.
taskkill /F /IM explorer.exe
del %dll%
start explorer.exe
)
BRCC32 VersionInfo.rc
call "C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\rsvars.bat"
msbuild.exe "DelphiDevShellTools.dproj" /target:Clean;Build /p:Platform=Win64 /p:config=debug
set BUILD_STATUS=%ERRORLEVEL%
if %BUILD_STATUS%==0 GOTO Updater
pause
EXIT
:Updater
msbuild.exe Updater\Updater.dproj /target:Clean;Build /p:Platform=Win32 /p:config=release
set BUILD_STATUS=%ERRORLEVEL%
if %BUILD_STATUS%==0 GOTO GUI
:GUI
msbuild.exe GUI\GUIDelphiDevShell.dproj /target:Clean;Build /p:Platform=Win32 /p:config=release
copy GUI\GUIDelphiDevShell.exe Win64\Debug\GUIDelphiDevShell.exe
pause