如何获得qq的句柄?请各位帮忙看一下(20分)

  • 主题发起人 主题发起人 dgjunjie
  • 开始时间 开始时间
D

dgjunjie

Unregistered / Unconfirmed
GUEST, unregistred user!
我用了以下代码,但不起作用,
wintext:='QQ 用户登录';
hwnd := findwindow(nil,wintext);
if hwnd<>0 then
sendmessage(hwnd,WM_CLOSE,0,0);
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
hwindow,hwindow1:Thandle;
begin
hwindow:=findwindow(nil,pchar('腾讯QQ系统广播'));
sendmessage(hwindow,WM_CLOSE,0,0);
hwindow1:=findwindow(pchar('#32770'),nil);
sendmessage(hwindow1,WM_CLOSE,0,0);
end;
我关闭QQ广告的办法,你看是否有用?
 
楼上的可以,试了
 
不太好吧,
窗体类是#32770得太多了,容易关错
 
对呀,特别是vc的程序
大部分类名都是#32770
 
wintext:='QQ用户登录';//没有空格
hwnd := findwindow(nil,wintext);
if hwnd<>0 then
sendmessage(hwnd,WM_CLOSE,0,0);

wintext:='xxxxxx'; //新版QQ用这个
hwnd := findwindow(nil,wintext);
if hwnd<>0 then
sendmessage(hwnd,WM_CLOSE,0,0);
 
我试了一下BeginDelphi的程序,好用了
能否解释一下为什么新版的要用xxxxxx
刚接触名柄一类的东西,有很多东西不明白,
望不吝赐教
 
他是老手了~~~
 
呵~~,一群坏人
 
为什么没有详细解释的,如果分不够可是再加,要多少可以说个数
?
 
多人接受答案了。
 
呵呵!好久没有来DFW咯.
有人说我是坏人.....[:(!]

愿意和我交个朋友的DFW,可以在QQ上和我交流这个问题.8468307.
 

Similar threads

后退
顶部