[[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;