Tad писал(а):
Если ты к посту прицепил файл, нажал "Отправить", а потом вызвал пост на "Правку", передумал и нажал "Сбросить", то файл прицепится к твоему следующему посту не взирая на тему (в любой теме).Tad писал(а):
Правда есть ещё одна непонятка : Почему к кнопке Save прицеплен Odialog, а не Sdialog, в котором при необходимости есть возможность создать папку для хранения этих файлов. 
------------ Дoбавленo в 13.28:
Вот один из вариантов решения задачи озвученной в первом посте
Add(MainForm,15620741,210,126)
{
Width=361
Height=103
Caption="Run or kill programm"
link(onCreate,11954936:doLoad,[])
}
Add(Button,15690994,112,266)
{
Left=10
Top=15
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,112,308)
{
Left=185
Top=15
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(StyleXP,3735024,210,70)
{
}
Add(EnumProcess,12333627,756,343)
{
Point(doFindName)
Point(onNotFind)
link(onNotFind,2760146:doShellExec,[])
}
Add(FilePartElm,384950,707,364)
{
link(onPart,12333627:doFindName,[])
}
Add(WinExec,2760146,805,343)
{
link(FileName,2648071:Value,[(811,334)(846,334)(846,404)(664,404)])
}
Add(InfoTip,2744328,630,322)
{
Info=#12:Run programs|
Width=232
Height=88
}
Add(Hub,7839215,161,266)
{
link(onEvent1,7323332:doStart,[])
link(onEvent2,6710387:doWork2,[])
}
Add(Hub,1050070,161,308)
{
OutCount=4
link(onEvent1,6710387:doWork3,[(191,314)])
link(onEvent2,11439990:doStop,[])
link(onEvent3,467321:doStop,[(403,328)(403,363)])
link(onEvent4,7323332:doStop,[(263,335)(263,279)])
}
Add(MultiSetParam,10188232,210,273)
{
Parameters=#2:01|2:10|
Char=""
Count=2
link(onSet1,15690994:doEnabled,[(249,279)(249,258)(102,258)(102,272)])
link(onSet2,15554622:doEnabled,[(256,286)(256,251)(95,251)(95,314)])
}
Add(FilePartElm,11362023,651,273)
{
link(onPart,1218761:doFindName,[])
}
Add(EnumProcess,1218761,700,252)
{
Point(doFindName)
Point(onFind)
link(onFind,6433833:doData,[])
}
Add(DoData,6433833,749,259)
{
link(onEventData,1218761:doKill,[(788,265)(788,244)(690,244)(690,272)])
link(Data,1218761:CurrentID,[(755,250)(741,250)(741,292)(706,292)])
}
Add(Thread,7323332,301,266)
{
link(onExec,5790938:doEvent1,[])
}
Add(HubEx,6710387,187,273)
{
link(onEvent,10188232:doSet,[])
}
Add(InfoTip,5257476,630,217)
{
Info=#44:Killing a process when removed from the list|
Width=232
Height=102
}
Add(StrList,11954936,406,112)
{
Point(Index)
Point(doGetIndex)
link(FileName,6555265:Var2,[])
}
Add(ArrayEnum,467321,420,350)
{
link(onItem,4351713:doEvent1,[])
link(Array,11954936:Array,[])
}
Add(Hub,4351713,462,350)
{
link(onEvent1,4103274:doGetIndex,[(487,356)(487,286)])
link(onEvent2,9062628:doCompare,[])
}
Add(If_else,9062628,546,357)
{
Op2=Integer(-1)
link(onTrue,11362023:doPart,[(642,363)(642,279)])
link(onFalse,2648071:doValue,[])
link(Op1,4103274:Index,[])
}
Add(StrList,4103274,525,238)
{
Point(doGetIndex)
Point(Index)
link(FileName,6555265:Var3,[(538,87)])
}
Add(VisualStrings,8232201,413,54)
{
@Hint=#21:The default file name|
Lines=#16:ProgrammList.txt|
Width=95
AddHint(137,0,114,13,@Hint)
}
Add(Hub,5790938,357,266)
{
OutCount=3
link(onEvent1,4103274:doLoad,[])
link(onEvent2,11439990:doEnum,[(515,279)(515,314)])
link(onEvent3,467321:doEnum,[(410,286)(410,356)])
}
Add(GetDataEx,6555265,413,82)
{
link(Data,8232201:Text,[])
}
Add(Memory,2648071,658,364)
{
link(onData,384950:doPart,[])
}
Add(ArrayEnum,11439990,539,308)
{
link(onItem,123004:doEvent1,[(603,314)(603,224)(361,224)(361,160)])
link(Array,4103274:Array,[])
}
Add(If_else,14229364,427,182)
{
Op2=Integer(-1)
link(onTrue,11954936:doAdd,[(466,188)(466,104)(396,104)(396,118)])
link(Op1,11954936:Index,[])
}
Add(Hub,123004,371,154)
{
link(onEvent1,11954936:doGetIndex,[])
link(onEvent2,14229364:doCompare,[(396,167)(396,188)])
}
1. Создать файл с именем "ProgrammList.txt" в папке с программой.
2. Внести в него программы для запуска, типа так:
E:HiAsm ProjectTranslate.exe
E:HiAsm ProjectStart_Stop.exe
c:Windows
otepad.exe
C:Program FilesHaoZipHaoZip.exe
5. Нажать "Start".
6. Теперь отрываем наш "ProgrammList.txt" и добавляем или удаляет строки с программами. После каждого изменения файла обязательно сохраняем.