DelphiCodeCoverage/SetupEnvironment.bat at main · solussaude/DelphiCodeCoverage · GitHub

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
@echo off
:: setup following environment variables to point to correct location of external libraries

SET BASEDIR=%CD%
SET BUILD=%BASEDIR%\build
SET REPORTS=%BUILD%\reports
SET PRJDIR=%BASEDIR%\Test
SET PRJ=CodeCoverageTests

SET DPF=%PROGRAMFILES(X86)%
if "%DPF%"=="" (
	SET DPF="%PROGRAMFILES%"
)

IF EXIST "%DPF%\Embarcadero\Studio\22.0\bin\rsvars.bat" (
  ECHO Found Delphi 11 Alexandria
  CALL "%DPF%\Embarcadero\Studio\22.0\bin\rsvars.bat"
) ELSE (
IF EXIST "%DPF%\Embarcadero\Studio\21.0\bin\rsvars.bat" (
  ECHO Found Delphi 10.4 Sydney
  CALL "%DPF%\Embarcadero\Studio\21.0\bin\rsvars.bat"
) ELSE (
IF EXIST "%DPF%\Embarcadero\Studio\20.0\bin\rsvars.bat" (
  ECHO Found Delphi 10.3 Rio
  CALL "%DPF%\Embarcadero\Studio\20.0\bin\rsvars.bat"
) ELSE (
IF EXIST "%DPF%\Embarcadero\Studio\19.0\bin\rsvars.bat" (
  ECHO Found Delphi 10.2 Tokyo
  CALL "%DPF%\Embarcadero\Studio\19.0\bin\rsvars.bat"
) ELSE (
IF EXIST "%DPF%\Embarcadero\Studio\18.0\bin\rsvars.bat" (
  ECHO Found Delphi 10.1 Berlin
  CALL "%DPF%\Embarcadero\Studio\18.0\bin\rsvars.bat"
) ELSE (
IF EXIST "%DPF%\Embarcadero\Studio\17.0\bin\rsvars.bat" (
  ECHO Found Delphi 10 Seattle
  CALL "%DPF%\Embarcadero\Studio\17.0\bin\rsvars.bat"
) ELSE (
IF EXIST "%DPF%\Embarcadero\Studio\14.0\bin\rsvars.bat" (
  ECHO Found Delphi XE6
  CALL "%DPF%\Embarcadero\Studio\14.0\bin\rsvars.bat"
)
)
)
)
)
)
)