Ну вот одна схема на обе проги имена сам пропишиш
Galkov а процессы могут и не иметь форм
[code:1]Add(MainForm,4113066,21,105) {
Left=20
Top=105
}
Add(EnumProcess,13035522,217,91)
{
Point(doFindName)
Point(onFind)
link(onFind,11445138:doReset,[(264,104)(264,202)])
}
Add(Timer,16705026,21,175)
{
Interval=500
link(onTimer,5844130:doEvent1,[])
}
Add(DoData,11680851,147,112)
{
Data=String(Project2.exe)
link(onEventData,13035522:doFindName,[])
}
Add(Hub,5844130,84,175)
{
OutCount=3
link(onEvent1,11680851:doData,[(131,181)(131,118)])
link(onEvent2,11445138:doNext,[])
link(onEvent3,8026929:doCompare,[(205,195)(205,237)])
}
Add(If_else,8026929,280,231)
{
Type=2
Op2=Integer(1)
link(onTrue,4341535:doMessage,[])
link(Op1,11445138:Count,[])
}
Add(Counter,11445138,280,182)
{
Max=9999
}
Add(Message,4341535,350,231)
{
Message="Процесс завершон"
}
Add(InfoTip,6683242,119,84)
{
Info=#12:Имя процесса|
Width=85
Height=74
}
[/code:1]