摘要:
//方法一procedure TForm1.Button1Click(Sender: TObject);var H_window: HWND; Text: array[0..255] of char;begin H_window := GetWindow(Handle,GW_HWNDFIRST); While H_window<>0 do begin if GETWindowText(H_window,@text,255)>0 then if((StrPas(@Text)='QQ2012'))then sendmessage(H_window,WM_SYSCO 阅读全文