环境互换

echo off
cls
reg delete HKCU\Software\Borland /f
echo 1.启动 3000+ 开发环境
echo 2.启用  ERP3 开发环境
echo 请输入你的选择并按回车结束
set /p a=
cls
if "%a%"=="1" goto a
if "%a%"=="2" goto b
:a
reg import D:\regedit\3000+.reg
cd "C:\Delphi\Bin\"
delphi32.exe
exit
:b
reg import D:\regedit\ERP3.reg
cd "C:\Program Files (x86)\Borland\Bin\"
delphi32.exe
exit