Inno Setup, Firebird, Firewall

[Rainer Wolff]

Hallo,

kann mir jemand einen Tipp geben, wie ich in einem Inno-Setup-Script die Windows-Firewall für den Firebird-Server freischalten kann.

Betriebssystem Windows 7 (unter XP ging das mit einem Registry-Eintrag, der anscheinend jetzt nicht mehr funktioniert).

Gruß Rainer

[Satty67]

Soll kein Vorwurf sein... aber Produkt-Support ist im Produkt-Forum meist besser

Vielleicht hilft der Thread weiter?

[Rainer Wolff]

Zitat von Satty67:

Soll kein Vorwurf sein... aber Produkt-Support ist im Produkt-Forum meist besser

Vielleicht hilft der Thread weiter?

Das dort angeführte Script habe ich schon gefunden, aber da fehlen mir einige Quelltexte (FirewallRestrict2Local) und so ließ sich das ganze nicht builden.

Und bei der Kombi Inno/Firebird dachte ich, die dürfte doch der ein oder andere hier im Forum auch haben.
Den netsh-Befehl von dort werde ich wohl versuchen, aber in dem Thread wurde ja schon die negative Sache mit den Popups erwähnt.

Gruß Rainer

[Morphie]

Könnte man den netsh-Befehl nicht über Exec starten und als ShowCmd SW_HIDE verwenden?

[DelphiBandit]

Hallo,

weil ich die Funktion, eben gerade für Firebird interessant fand, habe ich eben mal beim Autor des Posts im InnoSetup-Forum nachgefragt und fast verzugslos eine Antwort bekommen.

Das FirewallRestrict2Local ist eine boolean-Variable, die angibt, ob es nur für das lokale Netz oder für alle Schnittstellen umgesetzt werden soll. In seinem Script kann man das auf einer Custom-Page auswählen, ob global (False) oder nur für die aktive Netzwerk-Schnittstelle. Muß man also einfach nur als var FirewallRestrict2Local: boolean; deklarieren und mit dem gewünschten Wert vorbelegen.

Vielleicht hilft das weiter, den Scripting Schnipsel lauffähig zu bekommen.

[rwalper]

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