Question

C的函数定义，转换成Delphi

DWORD ReadWord(LPCTSTR lpszNodeName, LPCTSTR lpszDeviceName, LPWORD lpData, DWORD dwCount, LPDWORD lpdwReadCount);
谁帮忙把这个转换成Delphi的函数调用下，谢谢

Answer 1

function ReadWord(lpszNodeName, lpszDeviceName: PAnsiChar; lpData: PDWORD; dwCount: DWORD; lpdwReadCount: PDWORD): DWORD;

追问

我想问下，PDWORD是什么类型呢，能转换成string么，可以的话，怎么转换呢

追答

PDWORD, 是指针类型，跟String不一样的；
var
pdw: PDWORD;
pdw指向的数据可以用pdw^取得, IntToStr(pdw^)。

Answer 2

function ReadWord(lpszNodeName,lpszDeviceName: PChar; lpData: PWord; dwCount: DWORD; lpdwReadCount: PWord): DWORD;