Hallo,
ich hatte ein ähnliches Problem und habe folgenden Code verwendet:
http://news.jrsoftware.org/news/innosetup/msg43799.html
Es funktioniert sehr zuverlässig. Wie man aber nun einen einzelnen Port freigibt, habe ich nicht herausgefunden. Den Scope kann man übrigens einschränken, indem man "NET_FW_SCOPE_LOCAL_SUBNET" verwendet:
Delphi-Quellcode:
// Scope
NET_FW_SCOPE_ALL = 0;
NET_FW_SCOPE_LOCAL_SUBNET = 1;
Gruß Remo