2012 年 11月 1 日随笔档案 - ftwsnow

2012年11月1日

摘要： //方法一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 阅读全文

posted @ 2012-11-01 14:02 ftwsnow 阅读(170) 评论(0) 推荐(0)