不要乱写，神马Type，那是函数指针，调用不了，用下面的声明方法function A1(X1: Integer; X2: PAnsiChar; X3: PAnsiChar; X4: PAnsiChar): Integer; stdcall; external '***地址.dll' name 'A1';
