Вверх ↑
Ответов: 824
Рейтинг: 138
#1: 2014-04-24 23:26:35 ЛС | профиль | цитата
Add(MainForm,2953706,672,147)
{
Width=361
Height=406
Caption="Run or kill programm"
}
Add(ListBox,10596146,560,147)
{
Left=5
Top=30
Width=335
Height=255
Point(Index)
}
Add(Label,1190846,721,147)
{
Left=5
Top=10
Width=72
Height=17
Caption="Programme list"
AddHint(56,8,83,13,Caption)
}
Add(Button,10636000,399,105)
{
Left=5
Top=285
Width=35
Caption="+"
link(onClick,10086203:doExecute,[])
AddHint(-100,10,21,13,Caption)
}
Add(Button,16149912,399,161)
{
Left=45
Top=285
Width=35
Caption="-"
link(onClick,13079235:doData,[])
AddHint(-98,8,18,13,Caption)
}
Add(Button,11723786,399,259)
{
Left=215
Top=285
Width=125
Caption="Save the list to a file"
link(onClick,2269005:doExecute,[])
AddHint(-186,5,110,13,Caption)
}
Add(RadioButton,9211144,399,364)
{
Left=10
Top=310
Width=100
HintManager=""
Caption="Kill the program"
AddHint(-157,8,87,13,Caption)
}
Add(RadioButton,9086420,399,406)
{
Left=10
Top=335
Width=100
HintManager=""
Selected=0
Caption="Run programs"
AddHint(-151,8,81,13,Caption)
}
Add(Button,15690994,238,462)
{
Left=140
Top=315
Width=90
Height=40
Caption="Start"
Data=Integer(0)
Point(doEnabled)
link(onClick,7839215:doEvent1,[])
AddHint(-96,7,37,13,Caption)
AddHint(1,47,21,13,Data)
}
Add(Button,15554622,238,581)
{
Left=240
Top=315
Width=90
Height=40
Enabled=1
Caption="Stop"
Data=Integer(1)
Point(doEnabled)
link(onClick,1050070:doEvent1,[])
AddHint(-105,5,37,13,Caption)
AddHint(-2,-25,21,13,Data)
}
Add(ODialog,10086203,455,105)
{
Filter="EXE|*.exe"
link(onExecute,10596146:doAdd,[(550,111)(550,153)])
}
Add(DoData,13079235,455,161)
{
link(onEventData,10596146:doDelete,[])
link(Data,10596146:Index,[(461,152)(499,152)(499,207)(587,207)])
}
Add(ODialog,2269005,455,259)
{
Filter="TXT|*.txt"
FileName="ProgrammList.txt"
link(onExecute,10596146:doSave,[(515,265)(515,188)])
}
Add(Button,10022003,399,210)
{
Left=85
Top=285
Width=125
Caption="Load the list of file"
link(onClick,6784629:doExecute,[])
AddHint(-176,8,100,13,Caption)
}
Add(ODialog,6784629,455,210)
{
Filter="TXT|*.txt"
FileName="ProgrammList.txt"
link(onExecute,10596146:doLoad,[(508,216)(508,181)])
}
Add(EnumProcess,9376209,686,441)
{
Point(doFindName)
Point(onFind)
link(onFind,15041322:doData,[])
}
Add(ArrayEnum,6080836,574,462)
{
link(onItem,12025425:doPart,[])
link(Array,14986163:Var2,[])
}
Add(IndexToChanel,16115637,399,462)
{
Point(Index)
link(onEvent1,13068766:doTimer,[])
link(onEvent2,10117551:doTimer,[(438,475)(438,594)])
link(Index,9086420:Selected,[])
}
Add(StyleXP,3735024,672,196)
{
}
Add(ArrayEnum,16642859,553,588)
{
link(onItem,384950:doPart,[])
link(Array,14986163:Var1,[(559,376)])
}
Add(GetDataEx,14986163,574,371)
{
link(Data,10596146:Array,[])
}
Add(FilePartElm,12025425,630,462)
{
link(onPart,9376209:doFindName,[])
}
Add(DoData,15041322,735,448)
{
link(onEventData,9376209:doKill,[(774,454)(774,433)(676,433)(676,461)])
link(Data,9376209:CurrentID,[(741,439)(727,439)(727,481)(692,481)])
}
Add(EnumProcess,12333627,658,567)
{
Point(doFindName)
Point(onNotFind)
link(onNotFind,2760146:doShellExec,[])
}
Add(FilePartElm,384950,609,588)
{
link(onPart,12333627:doFindName,[])
}
Add(WinExec,2760146,707,567)
{
link(FileName,16642859:Item,[(713,558)(755,558)(755,628)(559,628)])
}
Add(Timer,13068766,504,462)
{
Interval=100
Enable=1
link(onTimer,6080836:doEnum,[])
}
Add(Timer,10117551,504,588)
{
Interval=100
Enable=1
link(onTimer,16642859:doEnum,[])
}
Add(Hub,13890218,399,588)
{
link(onEvent1,13068766:doStop,[(424,594)(424,587)(445,587)(445,475)])
link(onEvent2,10117551:doStop,[])
}
Add(InfoTip,7534852,490,413)
{
Info=#16:Kill the program|
Width=351
Height=102
}
Add(InfoTip,2744328,490,539)
{
Info=#12:Run programs|
Width=351
Height=109
}
Add(InfoTip,10901362,364,343)
{
Info=#16:Select an action|
Width=106
Height=109
}
Add(InfoTip,4309546,371,77)
{
Info=#18:Configuration list|
Width=253
Height=235
}
Add(Hub,7839215,287,462)
{
link(onEvent1,16115637:doEvent,[])
link(onEvent2,14206612:doWork1,[(326,475)])
}
Add(Hub,1050070,287,581)
{
link(onEvent1,14206612:doWork3,[(326,587)])
link(onEvent2,13890218:doEvent1,[])
}
Add(MultiSetParam,10188232,336,525)
{
Parameters=#2:01|2:10|
Char=""
Count=2
link(onSet1,15690994:doEnabled,[(375,531)(375,454)(228,454)(228,468)])
link(onSet2,15554622:doEnabled,[(375,538)(375,622)(228,622)(228,587)])
}
Add(HubEx,14206612,322,525)
{
link(onEvent,10188232:doSet,[])
}
карма: 1

0
файлы: 1code_33472.txt [4.3KB] [242]