是否可以从 IActiveScript 调用具有可变数量参数的 Delphi 方法？

uses ActiveX, ComObj;

function InvokeMethodWithVarArgs(const script: string; const methodName: string; const args: array of Variant): Variant;
var
  scriptControl: IActiveScript;
  scriptEngine: IUnknown;
  scriptError: IActiveScriptError;
  scriptDispatch: IDispatch;
  scriptProcedure: IDispatch;
  scriptParams: TDispParams;
  scriptResult: Variant;
  dispId: Integer;
  i: Integer;
begin
  // 创建脚本引擎
  scriptControl := CreateOleObject('ScriptControl') as IActiveScript;
  scriptControl.Language := 'JScript';

  // 加载脚本
  scriptControl.AddCode(script);

  // 获取脚本的 IDispatch 接口
  scriptControl.GetScriptDispatch('', scriptDispatch);

  // 获取方法的 IDispatch 接口
  OleCheck(scriptDispatch.GetIDsOfNames(IID_NULL, methodName, 1, LOCALE_USER_DEFAULT, @dispId));
  OleCheck(scriptDispatch.Invoke(dispId, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, scriptParams, @scriptResult, nil, nil));

  // 设置参数
  scriptParams.cArgs := Length(args);
  scriptParams.rgvarg := @args[0];

  // 调用方法
  OleCheck(scriptDispatch.Invoke(dispId, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, scriptParams, @scriptResult, nil, nil));

  Result := scriptResult;
end;