Applikáció aktivitásának figyelése

Sokszor kérdés , hogy hogyan figyelhetem, hogy egy applikáció aktív,
vagy nem aktív

private
procedure xakk(var mmm:TwmSysCommand); message wm_activate;
. . .
procedure Tform1.xakk;
begin
if mmm.CmdType<>0 then application.Title:='Aktív'
else application.Title:='Nem aktív';
end;