VC怎么转换成delphi,回调函数

Question

BOOL VSNET_ClientStartup(UINT m_nMessage,HWND m_hWnd，void (WINAPI *m_messagecallback)(LONG hHandle,int wParam,int lParam,void *context) = NULL,void *context = NULL)
说明：对客户端SDK初始化；
参数说明：
m_nMessage:应用程序的一个用户自定义消息；
m_hWnd:应用程序中一个窗口句柄；
m_messagecallback：消息回调函数接口
context:用户上下文
返回值：成功返回TRUE，失败返回FALSE；
void (WINAPI *m_messagecallback)(LONG hHandle,int wParam,int lParam,void *context)
hHandle：连接句柄，VSNET_ClientStart返回值
wParam:参数1
lParam:参数2
context:用户上下文

Answer 1

type
  m_messagecallback = procedure(hHandle: LongInt; wParam: Integer; lParam: Integer; context: Pointer); stdcall;function VSNET_ClientStartup(m_nMessage: UINT; m_hWnd: HWND; T:m_messagecallback = nil; context: Pointer = nil): Boolean; cdecl;
beginend;