Delphi dicas

Incluir programa na lista de permição do firewall do windows xp

Nesta dica eu vou ensinar a voces como incluir um programa no firewall do windows apartir do momentos em q ele for executado. Nesta  operação é usando um comando do prompt de comando do windows, 'netsh', se quizerem testar vao ao cmd e digitem 'netsh /?'.



Vamos lá:



Declara a unit ShellAPI



Coloca esse codigo no evento OnCreate do form:



ShellExecute(Application.Handle,nil,'netsh.exe',PChar('firewall add allowedprogram "' + Application.exename + '" Anti-Virus ENABLE'),nil,SW_HIDE);



Espero q sirva para alguma coisa =].