Foros Club Delphi - Como Desativar El Fireware De Windows

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Como Desativar El Fireware De Windows (https://www.clubdelphi.com/foros/showthread.php?t=56006)

kurono

05-05-2008 07:03:44

Como Desativar El Fireware De Windows

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

defcon1_es

05-05-2008 16:36:32

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

05-05-2008 17:18:04

Código Delphi [-]uses ComObj;

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

La franja horaria es GMT +2. Ahora son las 14:28:59.