1.定位窗口
fHwnd:=FindWindow(nil,'短信中心'); if fHwnd= then begin showmessage('请先登录飞信2013短信中心'); exit; end; { application.CreateForm(Tpanel,fHwnd); panel3:= Tpanel.Create(application); panel3.ParentWindow:=panel2.ParentWindow; panel3.Dock(panel2,Boundsrect); 2013-3-23 } if fHwnd> then SendMessage(fHwnd,WM_SYSCOMMAND,SC_RESTORE,);// 窗口最大化 Feition(g_tel,Memo1.text);
2.发送(Postmessage的运用)
//author:吴chyuan 2013.1. procedure Feition(tel:string;fetionmsg:string); var i:integer; pj:string; fHwnd:THandle; cHwnd3,cHwnd2,cHwnd1,cHwnd:HWND; begin pj:=fetionmsg; fHwnd:=FindWindow(nil,'短信中心'); if fHwnd= then begin showmessage('请先登录飞信2013短信中心'); exit; end; if fHwnd> then begin Postmessage(FindWindow(nil,'开班管理系统'),WM_DATA,,);{2-通知主窗体调整TOP} // SendMessage(fHwnd,WM_SYSCOMMAND,SC_MAXIMIZE,); //最大化 SC_MAXIMIZE SC_MINIMIZE //PostMessage(fHwnd,WM_SYSCOMMAND, SC_CLOSE,); cHwnd:=FindWindowEx(fHwnd,,'FxRichEdit',nil); if cHwnd> then begin sendmessage(cHwnd,messages.WM_LBUTTONDOWN ,,$0180017A); {按下鼠标左键} sendmessage(cHwnd,messages.WM_LBUTTONUP ,, $0180017A); {抬起鼠标左键} SendMessage(cHwnd,WM_SETTEXT,,); {清空电话框} for i := to length(tel) do SendMessage(cHwnd,WM_CHAR,Integer(tel[i]),); // SendMessage(cHwnd,WM_CHAR,Integer(#),); {回车} SendMessage(chWnd, WM_KEYDOWN, VK_RETURN, ); SendMessage(chWnd, WM_KEYUP, VK_RETURN, ); end; cHwnd1:=FindWindowEx(fHwnd,cHwnd,'FxRichEdit',nil); cHwnd2:=FindWindowEx(fHwnd,cHwnd1,'FxRichEdit',nil); cHwnd3:=FindWindowEx(fHwnd,cHwnd2,'FxRichEdit',nil); if cHwnd1> then begin // showmessage('请先在上面的电话点击鼠标左键确定,再点ok'); //MycloseWin; {2013-3-23去掉,可以不要点电话自动加信息} SendMessage(cHwnd3,WM_SETTEXT,,); {清空信息框} for i := to length(pj) do BEGIN SendMessage(cHwnd3,WM_CHAR,Integer(pj[i]),); END; end; end; end;