Вверх ↑
Ответов: 824
Рейтинг: 138
#1: 2014-04-26 11:44:05 ЛС | профиль | цитата
Tad, так правильно?
Add(MainForm,2953706,315,266)
{
Width=361
Height=422
Caption="Run or kill programm"
link(onCreate,10071604:doData,[])
}
Add(ListBox,10596146,672,203)
{
Left=5
Top=30
Width=335
Height=165
Point(Index)
Point(String)
}
Add(Label,1190846,784,154)
{
Left=5
Top=10
Width=72
Height=17
Caption="Programme list"
AddHint(63,9,83,13,Caption)
}
Add(Button,10636000,518,161)
{
Left=5
Top=195
Width=35
Caption="+"
Point(doEnabled)
link(onClick,10086203:doExecute,[])
AddHint(-54,10,21,13,Caption)
}
Add(Button,16149912,518,210)
{
Left=45
Top=195
Width=35
Caption="-"
Point(doEnabled)
link(onClick,13079235:doData,[])
AddHint(-52,8,18,13,Caption)
}
Add(Button,11723786,518,364)
{
Left=215
Top=195
Width=125
Caption="Save the list to a file"
Point(doEnabled)
link(onClick,2269005:doExecute,[])
AddHint(-149,10,110,13,Caption)
}
Add(Button,15690994,441,469)
{
Left=10
Top=335
Width=145
Height=40
Caption="Start"
Data=Integer(0)
Point(doEnabled)
link(onClick,7839215:doEvent1,[])
AddHint(-96,7,37,13,Caption)
AddHint(2,-38,21,13,Data)
}
Add(Button,15554622,441,511)
{
Left=185
Top=335
Width=150
Height=40
Enabled=1
Caption="Stop"
Data=Integer(1)
Point(doEnabled)
link(onClick,1050070:doEvent1,[])
AddHint(-95,8,37,13,Caption)
AddHint(2,52,21,13,Data)
}
Add(ODialog,10086203,602,161)
{
Filter="EXE|*.exe"
link(onExecute,10596146:doAdd,[(662,167)(662,209)])
}
Add(DoData,13079235,581,210)
{
link(onEventData,12401837:doEvent1,[])
link(Data,10596146:Index,[(587,152)(720,152)(720,257)(699,257)])
}
Add(ODialog,2269005,567,364)
{
Filter="TXT|*.txt"
FileName="ProgrammList.txt"
link(onExecute,10596146:doSave,[(637,370)(637,244)])
}
Add(Button,10022003,518,315)
{
Left=85
Top=195
Width=125
Caption="Load the list of file"
Point(doEnabled)
link(onClick,6784629:doExecute,[])
AddHint(-138,8,100,13,Caption)
}
Add(ODialog,6784629,567,315)
{
Filter="TXT|*.txt"
FileName="ProgrammList.txt"
link(onExecute,14407297:doWork3,[(620,321)])
}
Add(StyleXP,3735024,791,357)
{
}
Add(ArrayEnum,16642859,686,469)
{
link(onItem,384950:doPart,[])
link(Array,10596146:Array,[])
}
Add(EnumProcess,12333627,791,448)
{
Point(doFindName)
Point(onNotFind)
link(onNotFind,2760146:doShellExec,[])
}
Add(FilePartElm,384950,742,469)
{
link(onPart,12333627:doFindName,[])
}
Add(WinExec,2760146,840,448)
{
link(FileName,16642859:Item,[(846,439)(881,439)(881,509)(692,509)])
}
Add(InfoTip,2744328,616,427)
{
Info=#12:Run programs|
Width=295
Height=116
}
Add(InfoTip,4309546,504,133)
{
Info=#18:Configuration list|
Width=267
Height=277
}
Add(Hub,7839215,490,469)
{
link(onEvent1,7323332:doStart,[])
link(onEvent2,6710387:doWork2,[])
}
Add(Hub,1050070,490,511)
{
OutCount=3
link(onEvent1,6710387:doWork3,[(520,517)])
link(onEvent2,7323332:doStop,[(598,524)(598,482)])
link(onEvent3,16642859:doStop,[(669,531)(669,482)])
}
Add(MultiSetParam,10188232,539,476)
{
Parameters=#2:01|2:10|
Char=""
Count=2
link(onSet1,15690994:doEnabled,[(578,482)(578,461)(431,461)(431,475)])
link(onSet2,15554622:doEnabled,[(585,489)(585,454)(424,454)(424,517)])
}
Add(DoData,1825805,700,280)
{
link(onEventData,11362023:doPart,[])
link(Data,10596146:String,[])
}
Add(Hub,12401837,630,210)
{
link(onEvent1,1825805:doData,[(655,216)(655,286)])
link(onEvent2,10596146:doDelete,[])
}
Add(FilePartElm,11362023,819,280)
{
link(onPart,1218761:doFindName,[])
}
Add(EnumProcess,1218761,868,259)
{
Point(doFindName)
Point(onFind)
link(onFind,6433833:doData,[])
}
Add(DoData,6433833,917,266)
{
link(onEventData,1218761:doKill,[(956,272)(956,251)(858,251)(858,279)])
link(Data,1218761:CurrentID,[(923,257)(909,257)(909,299)(874,299)])
}
Add(HubEx,14407297,616,280)
{
Angle=3
link(onEvent,10596146:doLoad,[(620,237)])
}
Add(Check,5695868,525,280)
{
@Color=65365
Caption="AutoLoad"
link(onEvent,14407297:doWork2,[])
}
Add(Thread,7323332,630,469)
{
Delay=300
link(onExec,16642859:doEnum,[])
}
Add(HubEx,6710387,516,476)
{
link(onEvent,10188232:doSet,[])
}
Add(VisualStrings,1757045,406,245)
{
@Hint=#21:The default file name|
Lines=#16:ProgrammList.txt|
Width=95
AddHint(-146,-3,114,13,@Hint)
}
Add(InfoTip,5257476,784,224)
{
Info=#44:Killing a process when removed from the list|
Width=253
Height=116
}
Add(Label,6307834,840,357)
{
Left=5
Top=220
Width=335
Height=110
Font=[Times New Roman,10,0,255,204]
Caption="Create a list of applications by pressing "+".
Save the list to a file, the file name "ProgrammList.txt".
The next time you start - the list is loaded automatically from the file "ProgrammList.txt".
Click "Start". Select an item from the list and click the "-" button to remove it.
The program, which is removed from the list closes."
AutoSize=1
Alignment=2
}
Add(Label,2266846,889,357)
{
Left=105
Top=10
Width=232
Height=17
Caption="Note: The file name defaults - "ProgrammList.txt""
}
Add(DoData,10071604,406,280)
{
link(onEventData,5695868:doWork,[])
link(Data,1757045:Text,[])
}

Исправил
карма: 1

1
Голосовали:Tad