W
wp231957
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button2Click(Sender: TObject);<br>var<br> hdesktop,hfire:thandle;<br>begin<br> hdesktop:=getdesktopwindow();<br> hfire:=findwindow(nil,'Windows防火墙 ');<br> showmessage(inttostr(hfire)); //这里就是0了,不知道为什么<br> if hfire<>0 then begin<br> sendmessage(hfire,WM_CLOSE,0,0);<br> end;<br>end;