关闭天网防火墙(大虾来一下,我只有50分了没办法,谢谢了)(50)

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,shellapi,registry;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var reg:tregistry;begin reg:=Tregistry.Create; reg.RootKey:=HKEY_LOCAL_MACHINE; try//去掉天网防火墙的自启动 if reg.OpenKey('software/microsoft/windows/CURRENTVersion/run',false)then begin reg.DeleteValue('SKYNET Personal FireWall'); reg.CloseKey; end; finally //最后,终于 reg.Free; end; if findwindow(nil,pchar('frmConsole'))>0 then //找到天网防火墙的窗口句柄,然后发送 //消息关闭 sendmessage(findwindow(nil,pchar('frmConsole')),wm_close,0,0)end;end.可以实现关闭开机自启动,不能实现关闭防火墙.原现:首先删除天网防火墙的注册表启项,避免了下次系统启动时天网防火墙的自启动,然后通过sendmessage函数向天网防火墙的窗口句柄发送wm_close消息,来达到关闭天网防火墙的目的.如下给分:首先可以实现关闭天网防火墙任务,解释一下,PFW是怎么来的,如果我想关闭风云防火墙,那个这个句柄又应该是怎么样的还有findwindow这个东东啊, HWND FindWindow(获取属性窗口的句柄 LPCTSTR lpClassName, // 通过查找窗口类名 获取句柄 nil LPCTSTR lpWindowName // 通过查找窗口标题如何PFW是不是窗口标题,唉,太多了,真的很伤哦,好多地方看不懂哦,要把一个知识点完全搞懂好难哦

首先告诉你，findwindow 是去找一个窗口，关闭这个窗口是不是就关闭了防火墙呢？我想应该不是，防火墙程序还是在的，所以你要去关闭防火墙对应的进程，这样就可以了