dll可不可以一次返回两个返回值？

Question

如题

Answer 1

可以把要返回的信息作为参数传入呀！！当然，这里要注意采用引用传递的方法，而不是值传递。
如定义以下函数：
function GetID(lpVar: Integer; var loVar1, loVar2: String): Integer;
假设lpVar是要传入的参数，loVar1和loVar2是要传出的值（前面加var表示引用传递）。
这样，只要在函数内部给这两个传出参数赋值就行了。

Answer 2

用OleVariant作参数，想传几个都可以。
var
  YourVar:OleVariant;
begin
  YourVar:=VarArrayCreate([0..n],VarVariant);
  GetID(YourVar);
  YourParam0:=YourVar[0];
  YourParam1:=YourVar[1];
  YourParam2:=YourVar[2];
  YourParam3:=YourVar[3];
  ...
  YourParamn:=YourVar[n];
end;