Редактировалось 1 раз(а), последний 2017-03-03 00:08:32

Я знаю, что можно следить за процессами и отрубать их, как только они запустились. Может это поможет:
[code:1]Add(MainForm,7519817,105,238) {
Left=20
Top=105
Width=222
Height=151
}
Add(DoData,8248995,210,231)
{
Data=String(taskmgr.exe)
link(onEventData,11973333:doFindName,[])
link(Data,4299390:Text,[])
}
Add(EnumProcess,11973333,266,210)
{
Point(doFindName)
Point(onFind)
link(onFind,11973333:doKill,[(308,223)(308,200)(256,200)(256,230)])
}
Add(Timer,14573242,161,231)
{
Interval=10
link(onTimer,8248995:doData,[])
}
Add(Edit,4299390,210,182)
{
Left=70
Top=10
Width=85
Text="taskmgr.exe"
}
Add(Label,9082070,161,182)
{
Left=15
Top=15
Width=48
Height=17
Caption="Процесс"
}
Add(Edit,11031858,161,287)
{
Left=10
Top=40
Text=""
link(onChange,7926677:doCase,[])
}
Add(Case,7926677,210,287)
{
Value=Integer(123)
link(onTrue,14573242:doStop,[(252,300)(252,275)(151,275)(151,244)])
}
Add(Label,1288806,112,182)
{
Left=70
Top=40
Width=118
Height=37
Caption="Введи 123 и диспетчер задач можно будет запускать."
AutoSize=1
}[/code:1]

Редактировалось 1 раз(а), последний 2017-03-03 00:08:32