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.
In the main form class methods section: procedure AppOnActivate(Sender: TObject); procedure AppDeActivate(Sender: TObject); In public: procedure HotKey(onoff: boolean); in private kid4 : Integer; procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY; In OnCreate procedure for Main form Application.OnActivate:=AppOnActivate; Application.OnDeactivate:=AppDeActivate; Definitions of procedures: procedure T_form.WMHotKey(var Msg: TWMHotKey); begin if Msg.HotKey = kid4 then ToggleInOut; end; procedure T_form.HotKeys(onoff: Boolean); begin if onoff then begin kid4 := GlobalAddAtom('hk3'); BK:=RegisterHotKey(Handle, kid4, HK[3,0]+HK[3,1],HK[3,2]); end else begin UnRegisterHotKey(Handle, kid4); GlobalDeleteAtom(kid4); end; end; procedure T_form.AppOnActivate(Sender: TObject); begin HotKeys(true); Invalidate; end; procedure T_form.AppDeActivate(Sender: Tobject); begin HotKeys(false); end;
Add your voice to the tech community where 5M+ people just like you are talking about what matters.