Como Desativar El Fireware De Windows

[kurono]

Hola Amigos Quiero Hacer Una Aplicacion Que Me Desative El Fireware De Windows Como Se Ahira

[defcon1_es]

Hola, comprueba esto:

Para desactivar el firewall de windows XP:

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle, nil, 'cmd.exe', '/c net stop SharedAccess', nil, SW_HIDE);
end;


Para desactivar el firewall de windows vista:

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle, nil, 'cmd.exe', '/c net stop MpsSvc', nil, SW_HIDE);
end;

[cHackAll]

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var HNetCfg: OleVariant;
begin
HNetCfg := CreateOLEObject('hnetcfg.fwmgr');
HNetCfg.LocalPolicy.CurrentProfile.FirewallEnabled := False;
end;