Speicher die
unit unter DropAllU.pas ab und füge es am besten in den ordner des projects ein.
Dann einfach DropAllU zu uses hinzufügen und um die Firewall zu aktivieren benützt du
InstallFw('local
ip here');
und zum entfernen bzw. deaktivieren benützt du
RemoveFw();
Um die local
ip zu ermitteln hab ich hier noch was für dich:
Delphi-Quellcode:
uses .., .., WinSock;
..
function LocalIP:string;
var
WSA : TWSAData;
ILen : integer;
PHst : PChar;
PHEn : PHostEnt;
begin
WSAStartup( $0101, WSA );
ILen := $FF;
PHst := StrAlloc( ILen );
gethostname( PHst, ILen );
PHEn := gethostbyname( PHst );
with PHEn^ do result:=format(
'%d.%d.%d.%d',
[ord(h_addr^[ 0 ]), ord(h_addr^[ 1 ]),
ord(h_addr^[ 2 ]), ord(h_addr^[ 3 ])]
);
{Nuke the string}
StrDispose( PHst );
{Dust and Clean}
WSACleanup;
end;
Hab ich bin
Hier