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:

Código Delphi [-]
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:

Código Delphi [-]
uses ShellAPI;

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

[[cHackAll]]

Código Delphi [-]
uses ComObj;

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