Вверх ↑
Этот топик читают: Гость
Ответов: 30
Рейтинг: 1
#1: 2014-04-24 15:35:59 ЛС | профиль | цитата


Хочу сделать такое приложение которое читала файл тхт раз в 20-30 минут проверяла соответствие запущенных программ согласно файла если нет то запускала её если вдруг программу исключали из списка тхт то она её останавливала . Если можно то пожалуйста ссылки где эта тема подымалась.


карма: 0

0
Ответов: 704
Рейтинг: 44
#2: 2014-04-24 17:52:02 ЛС | профиль | цитата
lazudhic писал(а):
Хочу сделать такое приложение которое читала файл тхт раз в 20-30 минут проверяла соответствие запущенных программ согласно файла если нет то запускала её если вдруг программу исключали из списка тхт то она её останавливала . Если можно то пожалуйста ссылки где эта тема подымалась.

На ваш оч-понятный вопрос я отвечу так: берете strList заполняете его списком подключаете таймер который будет проверяй ваш список на удаление данных и з вашего файла запускаете процесс на проверку запущенных приложений сверяете со свои списком если не совпадает то запускаете.



Теперь хочу сказать, как вам без знаков препинание и конца предложения читается.? Думаю вам все понятно, почему вам не отвечает.
карма: 0

0
Ответов: 1343
Рейтинг: 31
#3: 2014-04-24 18:24:34 ЛС | профиль | цитата
а по мне норм читается, просто надо все языки понимать
карма: 2

0
Ответов: 8926
Рейтинг: 823
#4: 2014-04-24 19:08:53 ЛС | профиль | цитата
Kazbek17,
Кино писал(а):
..ВасильИваныч, ну а в мировом масштабе смогёшь?
Нет, Петька, языков не знаю!

карма: 19

0
Ответов: 30
Рейтинг: 1
#5: 2014-04-24 21:09:18 ЛС | профиль | цитата
Блин!!!!!!!!!!!!!!!!!!!!!!!!!(ну с восклицательными знаками я не переборщил вроде). благодарю вас о гуру хиасома ! что вы наставили меня на истесанный путь !!!! (эх хорошо хоть русский немного знаю! а то бы такое написал!которое я пишу через переводчик на иностранный конструктор ). а вот сылочек нет, немного печалька. хорошо бы на примерчик взглянуть. но походу беру топор и со словами е-ге-гейЙЙЙЙЙ пошёл в конструктор не знаю, что получиться . если что вместе посмеёмся .
------------ Дoбавленo в 21.09:
ну первое strList позволяет работать с файлом техт- тут всё понятно. а вот что позволит закрыть работующее приложение в Windows или Linux ?
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#6: 2014-04-24 21:16:32 ЛС | профиль | цитата
lazudhic писал(а):
а вот что позволит закрыть работующее приложение
первое, что пришло - сделать приложение активным и ... иммитировать нажатие Alt+F4
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 30
Рейтинг: 1
#7: 2014-04-24 21:34:17 ЛС | профиль | цитата
ух ты ловко! вопрос всё таки интересный жду ещё идей !!!!! запуск других программ ведь не проблема для многих конструкторов и сред программирования. а вот как закрыть его тут уже вопрос. а вдруг оно выкинет окно - не желаете сохранить последнее изменение? и как тут быть?
------------ Дoбавленo в 21.29:
охота чтоб всё автоматом сработало

------------ Дoбавленo в 21.34:
тэд а ты не тот тэд который работал над грабером?
карма: 0

0
Ответов: 8926
Рейтинг: 823
#8: 2014-04-24 23:00:53 ЛС | профиль | цитата
lazudhic писал(а):
..а вдруг оно выкинет окно..

code_33471.txt
excel1.jpg
карма: 19

0
файлы: 2excel1.jpg [104.8KB] [385], code_33471.txt [467B] [110]
Ответов: 824
Рейтинг: 138
#9: 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]
Ответов: 30
Рейтинг: 1
#10: 2014-04-25 19:33:37 ЛС | профиль | цитата
в последнем примере ответ оказался ближе к тому что я хочу сделать и о том что просил . спасибки !!! вечером попробую разобраться может что прикручу или перекручу

------------ Дoбавленo в 19.33:
беда не приходит одна . есть замечательный блок listBox(как только на один из входов попадает название файла как он тут же его открывает) но проблема в том что не какой из блоков не может дать ему полный путь который я записываю c:1.txt он выдаёт при запуске с: .txt
Add(MainForm,2953706,21,105)
{
Width=830
Height=504
Font=[Roman,8,0,0,255]
link(onCreate,2320420:doEvent1,[(69,125)(69,104)])
}
Add(LED,4739384,112,119)
{
Left=5
Top=45
}
Add(Hub,2320420,84,98)
{
link(onEvent1,15562005:doSetFocus,[(234,104)(234,335)])
link(onEvent2,4739384:doOn,[(105,111)(105,139)])
}
Add(ListBox,10596146,406,238)
{
Left=105
Top=25
Width=140
Height=255
Strings=#8:C:1.txt|
Point(Index)
}
Add(Edit,15562005,371,315)
{
Left=30
Top=55
Width=70
Height=150
Text="C:1.txt"
Point(doSetFocus)
link(onChange,10596146:doLoad,[(436,321)(436,307)(394,307)(394,272)])
}


карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#11: 2014-04-25 19:46:54 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2017-06-15 02:51:11
карма: 0

0
Ответов: 30
Рейтинг: 1
#12: 2014-04-25 20:11:47 ЛС | профиль | цитата
кажется у меня только этой версии хиасома нет!!!
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#13: 2014-04-25 20:16:51 ЛС | профиль | цитата
lazudhic писал(а):
c:1.txt
В любой версии
Главное окно писал(а):
В текстовых параметрах вы можете использовать специальные символы от до 255 и
. В случае, когда часть текста совпадает с написанием специального символа и его замена не нужна(например, строка c:windows
otepad.exe содержит спец символ
), вы можете использовать удвоенный и замена не будет произведена (например, c:windows\notepad.exe). -
т.е. в твоём случае нужно писать c:\1.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Гость
Ответов: 17029
Рейтинг: 0
#14: 2014-04-25 20:40:24 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2017-06-15 02:51:16
карма: 0

0
Ответов: 30
Рейтинг: 1
#15: 2014-04-25 21:49:17 ЛС | профиль | цитата
первый автоматический кусочек готов . если что считаете можно поправить, я спорить не буду . для проверки требуется заранние создать файл на диске с: 1.txt
code_33477.txt
карма: 0

0
файлы: 1code_33477.txt [579B] [167]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)