有没有同时熟悉vc和delphi的朋友?帮我翻译这一段代码
LRESULT CALLBACK GetMsgProc(int code, WPARAM wParam,LPARAM lParam)
{
CWPSTRUCT* pStr;
pStr=(CWPSTRUCT*)lParam;
if(pStr->message==WM_SHOWWINDOW)
{
HWND hEdit=GetDlgItem(pStr->hwnd,0x00000480);
if(hEdit==NULL)
{
//::MessageBox(NULL,"Edit NULL","",MB_OK);
return 1;
}
::SendMessage(hEdit,WM_SETTEXT,(WPARAM)0,(LPARAM)buf);
HWND hButton=GetDlgItem(pStr->hwnd,0x00000001);
if(hButton==NULL)
{
return 1;
}
::SendMessage(hButton,WM_LBUTTONDOWN,(WPARAM)0,(LPARAM)0);
::SendMessage(hButton,WM_LBUTTONUP,(WPARAM)0,(LPARAM)0);
}
return CallNextHookEx(hHook,code,wParam,lParam);
}
int SetHook(HWND hwnd,LPCTSTR lTranText)
{
hHook=SetWindowsHookEx(WH_CALLWNDPROC,GetMsgProc,hinstance,0);
if(hHook==NULL)
MessageBox(NULL,"2","",MB_OK);
ZeroMemory(buf,100);
strcpy(buf,lTranText);
return 1;
}