Delphi调用c的可变参数函数(感谢小龙淫)

function aa(a: Integer): HWND; cdecl;varargs;
//关键就是这个varargs,必须是cdecl,而且必须是external
//因为Delphi自己不支持可变参数

implementation

{$R *.dfm}

function aa; external user32 name 'xx';

procedure TForm1.Button1Click(Sender: TObject);
begin
aa(1,2,3,4);
end;