Foros Club Delphi - Ver Mensaje Individual

defcon1_es · #2 05-05-2008

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;