环境互换

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