- type
- TspeakCallParam = packed record
- //str: PWideChar;
- len: integer;
- str: array[1..255] of widechar;
- end;
- PspeakCallParam = ^TspeakCallParam;
- //发言函数
- procedure speakCall(p: PspeakCallParam); stdcall;
- var
- address, s1: Pointer;
- str3: array[1..255] of wid