熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

WinAPI編程關閉QQ登錄窗體

2013-11-11 21:06:50  來源: Delphi編程 

  記得在上學的時候自己一人買了台機器可是其他同學總會我的電腦上QQ聊天於是自己編了個小程序只要這個程序運行則別的同學一打開QQ的登錄如果把鼠標放到登錄窗體的話窗體自動關閉!其實這個功能用Delphi或者C++ Builder來實現是很簡單的以下我用Delphi原代碼來說明

  在Delphi中新建一個Project在Form上添加一個Timer設置Interval為ms然後編寫下面的代碼即可

procedure TFormTimerTimer(Sender: TObject);
var
  handlehchildhchild:THandle;
  point:TPoint;
  temp:array[] of char;
begin

 ://取得當前鼠標的位置
  GetCursorPos(point);
 //取得當前鼠標所在窗體的句柄

 handle:=WindowFromPoint(point);
  GetClassName(handletemp);
  //#是對話框的類名QQ窗體的類名就是#


  if temp=# then

  begin

  //為了確保是QQ登陸窗體再檢查有沒有登陸注冊向導兩個按扭
    hchild:=FindWindowEx(handleButton登錄);
    hchild:=FindWindowEx(handleButton注冊向導);
    if (hchild<>) and (hchild<>) then
       SendMessage(handleWM_CLOSE);
  end;
end;

  呵呵! 很簡單吧!要注意的是QQ窗體的QQ用戶登陸這個標題是畫上去的不能簡單的用FindWindow(窗體句柄QQ用戶登陸)來判斷


From:http://tw.wingwit.com/Article/program/Delphi/201311/8528.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.