En este truco se muestra como agregar nuestra aplicación a las excepciones del firewall de windows.
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');
App.ProcessImageFileName:= ParamStr(0);
App.Name:= 'TuNombre';
App.Scope:= NET_FW_SCOPE_ALL;
App.IpVersion:= NET_FW_IP_VERSION_ANY;
App.Enabled:= TRUE;
Profile.AuthorizedApplications.Add(App);
end;
Basado en un ejemplo mostrado en la pagina de microsoft.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ics/ics/wf_adding_an_application.asp