andrestudio писал(а):
компонент от andrestudioА почему бы и нет?
--- Добавлено в 2019-01-26 12:12:15
Че-то у примера какая-то корявая реакция на закрытие формы после активации хука, пару секунд точно думает.
--- Добавлено в 2019-01-26 12:24:41
Интересно, а есть ли API, который выдает активность окна без всяких хуков, на уровне ядра, по типу активности файловой системы?
--- Добавлено в 2019-01-26 12:48:51
А можно еще и так определять активность своего приложения

Add(MainForm,10133415,455,469)
{
Width=407
Height=241
Point(Handle)
Point(onClose)
link(onCreate,769176:doFindName,[])
link(onClose,769176:doStopCPUUsage,[(529,496)(529,503)])
}
Add(EnumProcess,769176,546,462)
{
Point(Name)
Point(doFindName)
Point(doStartCPUUsage)
Point(doStopCPUUsage)
Point(onFind)
Point(onCPUUsage)
link(Name,10834283:GetData,[])
link(onFind,769176:doStartCPUUsage,[(585,475)(585,517)(536,517)(536,496)])
link(onCPUUsage,3487722:doConvert,[])
}
Add(Application,13015678,602,357)
{
}
Add(FilePartElm,15838806,602,406)
{
link(onPart,10834283:doData,[(655,412)(655,349)(543,349)(543,412)])
link(FileName,13015678:AppFileName,[])
}
Add(EventFromData,10834283,553,406)
{
link(onEvent,15838806:doPart,[])
}
Add(Convertor,3487722,602,476)
{
Mode=2
link(onResult,4376670:doEvent1,[])
}
Add(Hub,4376670,658,476)
{
link(onEvent1,15242821:doCompare,[])
link(onEvent2,10133415:doCaption,[(683,489)(683,524)(445,524)(445,475)])
}
Add(If_else,15242821,700,476)
{
Op2=Integer(0)
link(onTrue,2141830:doEvent1,[(739,482)(739,454)])
link(onFalse,11025862:doStop,[])
}
Add(Timer,11025862,791,476)
{
Interval=10000
Enable=1
AutoStop=1
Point(onStop)
link(onTimer,10133415:doClose,[(830,482)(830,531)(438,531)(438,496)])
link(onStop,4410278:doOff,[(844,489)(844,447)])
}
Add(Hub,2141830,749,448)
{
link(onEvent1,4410278:doOn,[])
link(onEvent2,11025862:doTimer,[(781,461)(781,482)])
}
Add(LED,4410278,868,434)
{
Left=25
Top=15
}