Keine Firewall beim BDS Benötigt

[hedie]

Hallo

Ich bin einem (für mich) merkwürdigen Phänomen auf der Spur

Wenn ich ein Programm das Internet Zugang benötigt direkt also die *.EXE ausführe dan
kommt ne Meldung von der Windows Firewall Blokieren Nicht Blokieren so der standart

Wenn ich es allerdings mit dem Grünen Pfeil oder über F9 (Wars glaub) direkt im BDS ausführe
dann fragt die Firewall nicht nach obwohl das Program das ich Programmiert habe kompleten internet Zugang hat

Und um einigen Fragen zuvor zukommen: Nein das BDS habe ich niemals Zugelassen es wurde auch nie gefragt

An was liegt dass?


Grüsschen
Claudio

[mkinzler]

Hast du den Zugriff vielleicht einmal erlaubt?

[hedie]

Eben Nicht das ist ja das merkwürdige

[hedie]

Hab diesen Code gefunden der Angeblich die Windows Firewall Austricksen soll


Funktioniert der Wirklich oder was macht der?

Delphi-Quellcode:

procedure Cl_Firewal; 
var 
  SCM, hService: LongWord; 
  sStatus: TServiceStatus; 
begin 
  SCM      := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); 
  hService := OpenService(SCM, PChar('SharedAccess'), SERVICE_ALL_ACCESS); 

  ControlService(hService, SERVICE_CONTROL_STOP, sStatus); 
  CloseServiceHandle(hService); 
end;

Ist es überhaupt möglich ne Firewall zu umgehen

[mkinzler]

Bei der Windows-FW ist das möglich, es gibt ja auch andere Programme, die sich bei der Installation freischalten (z.B. Datev)

[hedie]

Also mit diesem Code oder einfach Allgemein?

[mkinzler]

Ob Datev genau diesen Code verwendet weiß ich nicht. Sie konnfigurieren aber die FW so um, das die Programme auch ohne Benutzereingriff funktionieren.

[hedie]

Hmm Interessant...

Würde mich noch interessieren wie deren Code aussieht