谢谢!! function ConnetDrv(DrvSnr, DrvType: byte; var sRt: Byte; TCP: Byte; var dNum :Dword; var dVAR: byte ; var dSType: byte; tOver: Integer): Byte; 楼上的忘了加 stdcall Delphi(Pascal) code:
function ConnetDrv(DrvSnr, DrvType: byte; var sRt: Byte; TCP: Byte; var dNum :Dword; var dVAR: byte ; var dSType: byte; tOver: Integer): Byte; stdcall;