自动单击按钮

Delphi中FindWindow,FindWindowEx,SendMessage妙用:

var
   i,j,k:integer;
begin
      i:=FindWindow(nil,'与 ●┌哒!ňg 聊天中');    //查找主窗口
      j:=FindWindowEx(i,0,'#32770','');
      k:=FindWindowEx(j,0,'Button','消息模式(&T)');
     SendMessage(k,BM_CLICK,0,0);   //模拟单击此按钮
     ShowWindow(k,SW_HIDE);   //隐藏此按钮