delphi中使用FastScript执行pascal脚本的demo

FastScript独一无二的特性是能支持多种语言（PascalScript, C++Script, Jscript以及BasicScript），做脚本引擎好使。 uses FastScript, FastScriptUtils, Windows; procedure TForm1.Button1Click(Sender: TObject); var ScriptEngine: TfsScript; DLLHandle: HMODULE; AddFunc: function(a, b: Integer): Integer; stdcall; begin ScriptEngine := TfsScript.Create(nil); try // 加载 DLL DLLHandle := LoadLibrary('YourDLL.dll'); if DLLHandle <> 0 then begin try // 获取函数地址 @AddFunc := GetProcAddress(DLLHa