[其他] 批处理版pascal编译器

@echo off
echo =================================
echo  Free-Pascal 编译器
echo =================================
set "PATH=%PATH%;%~dp0Main"
if "%~x1"==".pas" (
	pushd "%~dp1"
	echo  编译运行...
	echo +++++++++++++++++++++++++++++++++
	fpc "%~nx1"
	if exist "%~n1.exe" (del /f /q "%~n1.o"&>NUL "%~n1.exe")
)
set/p=
复制代码