跨进程插入button，关于回调函数怎么写？
Wnd := CreateWindowEx(0, {不使用扩展风格}
'button', {窗口类型名}
'PUSH ME', {标题}
WS_VISIBLE or WS_CHILD, {窗口的常规样式}
30,10,120,24,
AHandle, {父窗口}
0, {主菜单}
HInstance, {实例句柄}
nil
);

我插入一个'button'到线程里，现在想要做点击的函数，
以前用SetWindowLong(Wnd, GWL_WNDPROC, LongInt(MakeObjectInstance(wmicb1)));
在delphi 里用不好，谁给我写一下？

[解决办法]

Delphi(Pascal) code

var  Wnd: THandle;  OldWndProc: Pointer;function NewWndProc(hHwnd, Msg, wParam, lParam: LongWORD): Longint; stdcall;begin  { 这里添加你的处理代码}  Result := CallWindowProc(OldWndProc, hHwnd, Msg, wParam, lParam);end;