15 replies to this topic

[Caral]

Hola
Se puede activar y desactivar el Firewall por código con delphi?.
Saludos
PD: No se si es API 

[enecumene]

Prueba con los siguientes:

Desactivar:

delphi

shellexecute(0,'open', 'net.exe',' stop sharedaccess',0,0);

Activar:

delphi

shellexecute(0,'open', 'net.exe',' start sharedaccess',0,0);

Saludos.

[Caral]

Hola
Amigo que uses tengo que poner para el shellexecute?
Saludos

[Caral]

Hola
Ya vi SellApi.
Otra cosa:
Esto desactiva el srvicio del firewall, pero me gustaria que solo lo dejara on o off sin desactivalo.
Se puede?
Saludos

[felipe]

Esto desactiva el srvicio del firewall, pero me gustaria que solo lo dejara on o off sin desactivalo.

Eso no lo entendí­ 


Saludos!

[Caral]

Hola
Bueno, en el firewall hay una pantalla.
En esa pantalla hay tres opciones, on, off y la otra de excepciones.
Lo que hace el codigo de Fernando es desactivar el servicio, o eso es lo que creo, por que si se quiere entrar en esa ventana sale un mensaje que dice que el servicio esta detenido y si quiere activarlo.
Yo pensaba en la posibilidad de únicamente cambiar el estado, on y off, pero que la ventana siga saliendo.
No se si se podrá o es lo mismo.
Saludos

[enecumene]

Amigo Caral, ¿cuál es la diferencia?, estoy seguro que al poner off en esa ventana detienes el servicio, la diferencia está en que agrega en el registro de windows un dato más donde no se salga esa ventana que comentas.

Saludos.

[Caral]

Hola
Si amigo, lo he notado, pero ya sabes, es para ponértela difí­cil jejeje.
Saludos

[seoane]

En windows XP llega con esto:

delphi

uses ComObj;
 
var
  objFirewall: Variant;
begin
  objFirewall:=  CreateOleObject('HNetCfg.FwMgr');
  objFirewall.LocalPolicy.CurrentProfile.FirewallEnabled:= FALSE;
end;

Pero lo acabo de probar en Vista y no me deja

[seoane]

Aquí­ la versión para Vista 

delphi

uses ComObj;
 
const
  NET_FW_PROFILE2_DOMAIN = 1;
  NET_FW_PROFILE2_PRIVATE = 2;
  NET_FW_PROFILE2_PUBLIC = 4;
 
var
  fwPolicy2: Variant;
begin
  fwPolicy2:=  CreateOleObject('HNetCfg.FwPolicy2');
  fwPolicy2.FirewallEnabled(NET_FW_PROFILE2_DOMAIN):= FALSE;
  fwPolicy2.FirewallEnabled(NET_FW_PROFILE2_PRIVATE):= FALSE;
  fwPolicy2.FirewallEnabled(NET_FW_PROFILE2_PUBLIC):= FALSE;
end;

PD: Hay que ejecutarlo  como administrador

[egostar]

Ah vaya

Que bien amigo seoane, un gusto ver tu code.

Salud OS

[Caral]

Hola
Muchas gracias Seoane, es exactamente lo que querí­a sin menospreciar lo de Fernando por supuesto.
Gracias a ambos.
Saludos

[luk2009]

Primero añadimos a uses:
uses
Windows, Messages, ..., WinSvc, ShellApi;


Este serí­a un el procedimiento que detiene el servicio:

delphi

        
 
procedure DeshabilitarCortafuegosXP;
var
SCM, hService: LongWord;
sStatus: TServiceStatus;
begin
SCM := OpenSCManager( nil, nil, SC_MANAGER_ALL_ACCESS );
hService := OpenService( SCM, PChar( 'SharedAccess' ),
SERVICE_ALL_ACCESS );
ControlService( hService, SERVICE_CONTROL_STOP, sStatus );
CloseServiceHandle( hService );
end;

Para volver a activarlo sólo hay que ir al panel de control y ponerlo en marcha
de nuevo. Esto no vale para otros cortafuegos (Panda, Norton, etc.)
Pruebas realizadas en Delphi 7


[glow=red,2,300]tomado de unos manuales llamados delphi al limite[/glow]

[felipe]

Gracias por los aportes.


Saludos!

[pcicom]

Creo que estos CODIGOS deben de ir a la SECCION de TRUCOS.... si es que la hay, y si no hay que plantear su APERTURA..

[escafandra]

Creo que estos CODIGOS deben de ir a la SECCION de TRUCOS.... si es que la hay, y si no hay que plantear su APERTURA..

Pues existe.

Saludos.