Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
function LowOrderBitSet( Value: integer ): boolean;
begin
Result := (Value and 1 > 0);
end;
function CapsLock : boolean;
begin
if LowOrderBitSet(GetKeyState
else Result := False;
end;
function InsertOn: boolean;
{ Returns the status of the Insert key. }
begin
if LowOrderBitSet(GetKeyState
else Result := False;
end;
function NumLock : boolean;
begin
if LowOrderBitSet(GetKeyState
else Result := False;
end;
function ScrollLock : boolean;
begin
if LowOrderBitSet(GetKeyState
else Result := False;
end;
This is a way.
Regards, Zif.