Add(MainForm,2953706,112,119)
{
 Width=354
 Height=266
 Caption="Пример использования EnumProcess"
 BorderStyle=1
 link(onCreate,12754746:doEnum,[])
}
Add(EnumProcess,12754746,224,133)
{
 Point(doFindName)
 Point(onFind)
 Point(onNotFind)
 link(onProcess,7035838:doAdd,[])
 link(onFind,9164094:doText,[(266,146)(266,188)(214,188)(214,202)])
 link(onNotFind,8965265:doMessage,[])
}
Add(Edit,9164094,224,196)
{
 Left=205
 Top=185
 link(Str,12754746:CurrentID,[])
}
Add(Edit,13348222,161,147)
{
 Left=70
 Top=185
 Text="svchost.exe"
 link(onEnter,12754746:doFindName,[])
}
Add(Memo,7035838,336,133)
{
 Left=5
 Top=5
 Width=325
 Height=145
 ScrollBars=3
}
Add(Message,8965265,287,147)
{
 Message="error find"
}

Add(MainForm,5282615,77,56)
{
 Width=366
 Height=295
 Caption="Пример использования EnumProcess"
}
Add(WinExec,8313212,133,126)
{
 Param="C:\WINDOWS\ie7.log"
 FileName="notepad.exe"
 Point(onConsoleTerminate)
 link(onExec,2654887:doTimer,[])
}
Add(Button,6671266,77,126)
{
 Left=85
 Top=95
 link(onClick,8313212:doExec,[])
}
Add(Message,10067890,301,112)
{
 Message="Все пропало ШЕФ! Алёёёё!!! Нотепад закрыт!!!"
 link(onMessage,2654887:doStop,[(348,118)(348,169)(184,169)(184,139)])
}
Add(EnumProcess,10869016,252,105)
{
 Point(Name)
 Point(doFindName)
 Point(onNotFind)
 link(Name,2213985:Caption,[])
 link(onNotFind,10067890:doMessage,[])
}
Add(Timer,2654887,196,126)
{
 Interval=2000
 Enable=1
 link(onTimer,10869016:doFindName,[])
}
Add(Label,2213985,259,56)
{
 Left=180
 Top=95
 Caption="notepad.exe"
}