delphi函数Function ReadNum(Cardkind:PChar;CloseNum:PLongint;Price:PWord;Status:PByte):longint;stdcall;在c中怎么调用?