согласно тхт файла остановка или запуск программы

Вверх ↑

Форумы Помощь по пакетусогласно тхт файла остановка или запуск программы ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 824

Рейтинг: 138

#16: 2014-04-25 23:59:20 ЛС | профиль | цитата

code_33478.txt

карма: 1

Голосовали:

Galkov

Ответов: 16884

Рейтинг: 1239

#17: 2014-04-26 00:27:47 ЛС | профиль | цитата

Да-а-а...

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 824

Рейтинг: 138

#18: 2014-04-26 00:32:15 ЛС | профиль | цитата

[flood]

Tad писал(а):

Да-а-а...

A почему нет?

[/flood]
[flood]Мой сын уже меня достал своими играми. ВААПЧЕ учится не хочет, все в ноуте сидит и когото там "мочит"....И это тема для меня интересна в том плане, что хочу подобный сервис сделать для убийства игр в незапланированное время...[/flood]

карма: 1

Ответов: 9906

Рейтинг: 351

#19: 2014-04-26 08:56:29 ЛС | профиль | цитата

Правильней подключаться к onSyncExec .....

карма: 9

Ответов: 824

Рейтинг: 138

#20: 2014-04-26 10:46:36 ЛС | профиль | цитата

Galkov писал(а):

Правильней подключаться к onSyncExec .....

Пробовал, но в этом случае форма при перетаскивании "дергается"...

карма: 1

Ответов: 16884

Рейтинг: 1239

#21: 2014-04-26 10:52:35 ЛС | профиль | цитата

sashaoli писал(а):

A почему нет?

Не знаю.
Согласен с Galkov-ым : "На схему приятно смотреть." И всё.
Может быть я что-то пропустил, но если на точке ListBox.FileName определено "ProgrammList.txt" (The default file name), то ODialog-и на кнопках "Load the list of file" и "Save the list of file" совершенно лишние.
Называется - Приоритет точек. Описано - F1->Hiasm->Оболочка->Основы.
Это азы.
Так что моё "Да-а-а..." - это совсем мягко.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 824

Рейтинг: 138

#22: 2014-04-26 11:20:02 ЛС | профиль | цитата

Tad писал(а):

Это азы.

Это понятно Вам и мне, а lazudhic может быть и не совсем... Почему-то, он, пытается загрузить в ListBox файл с:1.txt, и столкнулся с проблемой....
Вы ведь заметили, что "ProgrammList.txt" (The default file name) там не нужен или скорее не "так" реализован? Будем надеяться, что автор темы тоже заметит и примет соответствующие меры.
Это только пример, который не претендует на полноту или совершенство.

карма: 1

Ответов: 16884

Рейтинг: 1239

#23: 2014-04-26 11:40:49 ЛС | профиль | цитата

sashaoli писал(а):

Это понятно Вам и мне, а lazudhic может быть и не совсем...

Мне понятно, а Вам ? - я не увидел. Приведённая Вами схема, почему-то убеждает в обратном.
Тем более - не надо путать lazudhic-а.

sashaoli писал(а):

Будем надеяться, что автор темы тоже заметит

Не заметит. 100%

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Голосовали:

foksov

Ответов: 824

Рейтинг: 138

#24: 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

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

Ответов: 16884

Рейтинг: 1239

#25: 2014-04-26 11:50:04 ЛС | профиль | цитата

sashaoli, ERROR.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 824

Рейтинг: 138

#26: 2014-04-26 11:57:05 ЛС | профиль | цитата

[flood]Какая то ерунда с форумом происходит...[/flood]

карма: 1

файлы: 1

code_33478.txt [4.8KB] [218]

Ответов: 16884

Рейтинг: 1239

#27: 2014-04-26 12:19:53 ЛС | профиль | цитата

sashaoli писал(а):

Исправил

Ось тепер схоже на людей

Но я бы сделал так :

Правда есть ещё одна непонятка : Почему к кнопке Save прицеплен Odialog, а не Sdialog, в котором при необходимости есть возможность создать папку для хранения этих файлов.

sashaoli писал(а):

Какая то ерунда с форумом происходит...

Это не ерунда, а "твои шаловливые ручки".

Если ты к посту прицепил файл, нажал "Отправить", а потом вызвал пост на "Правку", передумал и нажал "Сбросить", то файл прицепится к твоему следующему посту невзирая на тему (в любой теме).

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 1

sashaoli_3.gif [7.5KB] [417]

Ответов: 824

Рейтинг: 138

#28: 2014-04-26 13:28:31 ЛС | профиль | цитата

Tad писал(а):

Если ты к посту прицепил файл, нажал "Отправить", а потом вызвал пост на "Правку", передумал и нажал "Сбросить", то файл прицепится к твоему следующему посту не взирая на тему (в любой теме).

Спасибо! Будем знать!

Tad писал(а):

Честно? А хрн его знает...

------------ Д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

3. Сохранить.4. Запустить программу.
5. Нажать "Start".
6. Теперь отрываем наш "ProgrammList.txt" и добавляем или удаляет строки с программами. После каждого изменения файла обязательно сохраняем.

карма: 1

Ответов: 16884

Рейтинг: 1239

#29: 2014-04-26 13:58:39 ЛС | профиль | цитата

sashaoli писал(а):

После каждого изменения файла обязательно (выделено мной) сохраняем.

Обоснуй. Почему ?

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 824

Рейтинг: 138

#30: 2014-04-26 20:19:58 ЛС | профиль | цитата

Tad писал(а):

Обоснуй. Почему ?

[flood]"А как-жа? Мы без сохранения никак, токмо так!"
Или - "Такова природа сего явления"
Или - "Это есть великая тайна"[/flood]

карма: 1

Форумы Помощь по пакетусогласно тхт файла остановка или запуск программы ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)