Como meterle al firewall del xp un programa

[mierda]

Hola, buenos dias, querria meter un programa que lleva sockets en el firewall de windows como permitido.

Hay alguna forma de hacerlo?!

[roman]

Pues en panel de control, abres el Firewall y en la ficha de excepciones está un botón para agregar un programa.

// Saludos

[mierda]

Jejejejejeje, perdona ... no me explique con suficiente claridad ... quiero hacerlo desde codigo de delphi.

Pero gracias por contestar. Un saludo!

[[seoane]]

Vamos a ver, lo acabo de hacer y no te garantizo que este libre de fallos. Pero parece que funciona:

Código Delphi [-]
uses ComObj;

const
  NET_FW_SCOPE_ALL = 0;
  NET_FW_IP_VERSION_ANY = 2;

procedure Agregarme;
var
  fwMgr: Variant;
  Profile: Variant;
  App: Variant;
begin
  fwMgr:= CreateOleObject('HNetCfg.FwMgr');
  Profile:= fwMgr.LocalPolicy.CurrentProfile;
  App:= CreateOleObject('HNetCfg.FwAuthorizedApplication');
  // La ruta de nuestro programa
  App.ProcessImageFileName:= ParamStr(0);
   // El nombre que aparecera en la lista de excepciones
  App.Name:= 'TuNombre';
  App.Scope:= NET_FW_SCOPE_ALL;
  App.IpVersion:= NET_FW_IP_VERSION_ANY;
  // Esto nos permite agregar la excepcion deshabilitada utilizando FALSE
  App.Enabled:= TRUE;
  Profile.AuthorizedApplications.Add(App);
end;

Probarlo, y si vemos que funciona bien, lo añadimos a la sección de trucos.

[JuanErasmo]

seaone funciona.....tu sabes como hacer todo en windows!ha,ha,ha.Gracias

[[Lepe]]

Empezado por roman

Pues en panel de control, abres el Firewall y en la ficha de excepciones está un botón para agregar un programa.

Yo redacté un mensaje precioso paso a paso como darlo de alta.... hasta que me fijé bien... 40 mensajes y en el foro varios... mejor me abstengo jejeje. Al menos tu comentario ha servido para que explique mejor su duda .

seoane, lamento decirte que no puedes poner eso en trucos... porque eso no es código delphi, que yo conozco delphi muy bien y garantizo que no es código delphi....

Saludos

[[seoane]]

Empezado por Lepe

seoane, lamento decirte que no puedes poner eso en trucos... porque eso no es código delphi, que yo conozco delphi muy bien y garantizo que no es código delphi....

Debo estar un poco atontado Lepe ... pero no te entiendo.

[mierda]

Tio ... eres mi idolo .... y una autentica maquina ..... (como muchos de los que hay aqui) ... la verdad es q no dejais de sorprenderme.

Una autentica gozada. Os agradezco mucho que me saqueis de los apuros. Un saludo.

Para seguir aprendiendo .... como has llegado al codigo? por el sdk de microsoft? sabes utilizar mejor que yo el google? dame alguna pista.

pd: todavia estoy impresionado

[[seoane]]

Empezado por mierda

Para seguir aprendiendo .... como has llegado al codigo? por el sdk de microsoft? sabes utilizar mejor que yo el google? dame alguna pista.

He utilizado el ejemplo para VBScript que tiene microsoft en su página.

http://msdn.microsoft.com/library/de...pplication.asp

Y si, utilizo google de maravilla. A veces doy miedo

[kalisto]

Manipulando el registro de windows:

Código Delphi [-]

Procedure WriteRegData(RootKey: HKEY; Key,Name:String; Value: variant);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := RootKey;
    if Reg.OpenKey(Key, True) then
        Reg.WriteString(Name, Value );
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;
 
 
 
 
 
 

 
WriteRegData (HKEY_LOCAL_MACHINE ,'\SYSTEM\CurrentControlSet\Services
\SharedAccess\Parameters\FirewallPolicy\StandardProfile\
AuthorizedApplications\List',
MiDirectorio+'\Miprograma.exe',
MiDirectorio+'\Miprograma.exe:*:Enabled:Entorno UPnp');