Apr 172014

Since I work on several projects that require multiple Delphi installations, I needed a way to start the correct Delphi IDE and call the correct command line compiler for each of these projects. There apparently is no way to automatically detect the Delphi version from the .dof,.dpr or .dproj file (or at least this is limited), so I added batch files to these projects that call the correct Delphi version.

One of the things that irked me was that I had to adapt these batch files whenever I was working on a different computer and Delphi was not installed in the default installation directory. Finally I found a solution for this: The required information is stored in the registry at


And the place where this is stored does not vary. I set out to find a way to read the registry from a batch file and found this answer on stackoverflow.

So, here is the result. A batch file that, when called with a Delphi version as parameter, returns the directory it is installed in:

@rem set the DelphiPath variable for various Delphi versions


set DelphiVersion=%1

rem Support for Windows 7/8, 64 Bit
set ProgFiles=%ProgramFiles(x86)%
if not "%ProgFiles%"=="" goto Win64Bit
set ProgFiles=%ProgramFiles%

set DelphiPath=

rem this is equivalent to a case/switch statement
rem call :Delphi%DelphiVersion% resolves into call :Delphi6 etc.
call :Delphi%DelphiVersion%
goto DelphiEndCase
  call :ReadReg Borland\Delphi\6.0
  goto :eof
  call :ReadReg Borland\Delphi\7.0
  goto :eof
  call :ReadReg Borland\BDS\3.0
  goto :eof
  call :ReadReg Borland\BDS\4.0
  goto :eof
  call :ReadReg Borland\BDS\5.0
  goto :eof
  call :ReadReg CodeGear\BDS\6.0
  goto :eof
  call :ReadReg CodeGear\BDS\7.0
  goto :eof
  call :ReadReg Embarcadero\BDS\8.0
  goto :eof
  call :ReadReg Embarcadero\BDS\9.0
  goto :eof
  call :ReadReg Embarcadero\BDS\10.0
  goto :eof
  call :ReadReg Embarcadero\BDS\11.0
  goto :eof
  call :ReadReg Embarcadero\BDS\12.0
  goto :eof
  call :ReadReg Embarcadero\BDS\14.0
  goto :eof

echo DelphiPath: "%DelphiPath%"
if exist "%DelphiPath%" goto allok
echo *** Error: Directory "%DelphiPath%" does not exist. ***
goto :eof

endlocal & set DelphiPath=%DelphiPath%
rem echo DelphiPath: "%DelphiPath%"
goto :eof

rem read the registry entry
set DelphiPath=
FOR /F "usebackq skip=2 tokens=3,*" %%A IN (`REG QUERY HKCU\Software\%1 /v RootDir 2^>nul`) DO (
  set DelphiPath=%%A %%B
rem remove one trailing space which might have been added because %%B was empty
rem remove any quotes
set DelphiPath=%DelphiPath:"=%
rem add quotes
set DelphiPath="%DelphiPath%"
rem remove space before the closing quote
set DelphiPath=%DelphiPath: "="%
rem remove any quotes
set DelphiPath=%DelphiPath:"=%
goto :eof

On this particular computer …

call delphipath.cmd XE6
echo %DelphiPath%

… writes …


… and this …

call delphipath.cmd XE4
echo %DelphiPath%

… writes …

C:\Program Files (x86)\Embarcadero\RAD Studio\11.0\

This batch file is now part of my collection of build tools.

Sorry, the comment form is closed at this time.

%d bloggers like this: