Программа-невидимка на Delphi - Помощь студентам - Страница 2

profi · 14.07.2009, 14:57

Ну я же написал выше пост по созданию сервиса. New->Other->Service Application

Neeter · 14.07.2009, 15:02

Цитата:

Но в момент запуска окно всё же вылатает на экран, т.е. программу видно, но в процессах она висит.

У вас, случаем, не делфи 2009?
Если да, то удалите строчку

Код:

Application.MainFormOnTaskBar := true;

из кода проекта (Project\View Source...)

Ronder · 14.07.2009, 15:25

profi, большое спасибо! То, что нужно!
Neeter, нет, у меня делфи 7 от 2002 года. Приведённой вами строки кода у себя не обнаружил.

Теперь осталось подумать как постоянно проверять наличие файла.

Есть ли в Delphi что-то похожее на setTimeout в Javascript, т.е. постоянные запуск заданной функции через определённый промежуток времени?

Neeter · 14.07.2009, 15:30

Цитата:

Есть ли в Delphi что-то похожее на setTimeout в Javascript, т.е. постоянные запуск заданной функции через определённый промежуток времени?

Используйте цикл и после нужной процедуры напишите например:

Код:

Sleep(10000)

это остановит работу программы на 10 секунд.

Stilet · 14.07.2009, 15:40

Цитата:

Ronder

Если не секрет. почему избран именно такой путь? В чем полная задача?

Ronder · 14.07.2009, 15:52

Neeter, спасибо, попробую!
Stilet, сейчас задача освоить Delphi. Вот и придумываю всякие программки :-) Вообще пытаюсь создать программу, которая будет защищать файлы от удаления.

Stilet · 14.07.2009, 15:54

Цитата:

Вообще пытаюсь создать программу, которая будет защищать файлы от удаления.

Ну тогда сделай как задумал, но в коде пропиши открытие файла с SHARE DENY параметрами на запись

Mixasik · 14.07.2009, 22:16

Ronder, для таймера могу порекомендовать API таймер, также его называют мультимедиа таймером - в инете много инфа и в MSDN есть, работает прекрасно и 1мс вполне нормально держит и никаких циклов вещающих систему, ничего) хотя и sleep вариант наверное...

Mr.Qwerty · 14.07.2009, 22:28

Ronder, интересно каким путем ты можешь осуществить защиту файлов от удаления, хотя года полтора назад мне попался вирус такой, вообще его суть состоит в том что два полноценных взаимодополняющих файлов, после убийства одного, другой его регенерирует, итак "по кругу", фишка его была в том, что "КАспер" не убил, Сканер Двебовский тоже, помогла такая вещь:
Windows Process Manager (WPM)
Чуклинов Евгений aka Cj
г.Хабаровск (это не реклама)
В чем именно заключалась суть процесса - WPM заблокировал один процесс и далее убил другой, собственно за несколько минут проблема была устранена..

Ronder · 15.07.2009, 11:23

Stilet, у меня файл копируется на место после удаления функцией CopyFile. Как использовать SHARE DENY я не знаю :-(

В ообщем, программу написал. Спасибо всем за помощь!

Хотелось бы узнать, возможно ли сделать файл неудаляемым? На данный момент моя программа восстанавливает файл после удаления, а хотелось бы сделать так, чтобы файл вообще не удалялся. Есть идея написать службу, которая будет держать нужный файл постоянно открытым, следовательно, до остановки службы файл удалить будет невозможно. Только вот вопрос, есть ли в Delphi функции, который позволяют держать exe или dll файл открытыми?

14.07.2009, 22:16	#18
Mixasik New Delphi Coder Форумчанин Подтвердите свой е-майл Регистрация: 20.07.2008 Сообщений: 874	Ronder, для таймера могу порекомендовать API таймер, также его называют мультимедиа таймером - в инете много инфа и в MSDN есть, работает прекрасно и 1мс вполне нормально держит и никаких циклов вещающих систему, ничего) хотя и sleep вариант наверное... Страх это слабость и потому, кто испугался уже побежден.

14.07.2009, 22:28	#19
Mr.Qwerty Что? Где? Когда? Форумчанин Регистрация: 14.07.2009 Сообщений: 220	Ronder, интересно каким путем ты можешь осуществить защиту файлов от удаления, хотя года полтора назад мне попался вирус такой, вообще его суть состоит в том что два полноценных взаимодополняющих файлов, после убийства одного, другой его регенерирует, итак "по кругу", фишка его была в том, что "КАспер" не убил, Сканер Двебовский тоже, помогла такая вещь: Windows Process Manager (WPM) Чуклинов Евгений aka Cj г.Хабаровск (это не реклама) В чем именно заключалась суть процесса - WPM заблокировал один процесс и далее убил другой, собственно за несколько минут проблема была устранена.. Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили "Титаник".

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
программа в Delphi	Селякова Елена	Помощь студентам	0	22.04.2009 19:03
Программа-тест в Delphi) скиньте))а то програмку здавать преподу надо,и самой хочется понять Delphi	Верчик	Помощь студентам	9	02.03.2009 17:46
невидимка :(	san72	Общие вопросы Delphi	6	14.02.2009 18:23
Программа на Delphi	МедведЪ	Общие вопросы Delphi	5	21.05.2007 20:33
программа на Delphi 7.0	manisha	Фриланс	6	23.04.2007 20:29

14.07.2009, 14:57	#11
profi Участник клуба Подтвердите свой е-майл Регистрация: 19.11.2007 Сообщений: 1,022	Ну я же написал выше пост по созданию сервиса. New->Other->Service Application

14.07.2009, 15:25	#13
Ronder Пользователь Регистрация: 14.07.2009 Сообщений: 28	profi, большое спасибо! То, что нужно! Neeter, нет, у меня делфи 7 от 2002 года. Приведённой вами строки кода у себя не обнаружил. Теперь осталось подумать как постоянно проверять наличие файла. Есть ли в Delphi что-то похожее на setTimeout в Javascript, т.е. постоянные запуск заданной функции через определённый промежуток времени?

14.07.2009, 15:52	#16
Ronder Пользователь Регистрация: 14.07.2009 Сообщений: 28	Neeter, спасибо, попробую! Stilet, сейчас задача освоить Delphi. Вот и придумываю всякие программки :-) Вообще пытаюсь создать программу, которая будет защищать файлы от удаления.

15.07.2009, 11:23	#20
Ronder Пользователь Регистрация: 14.07.2009 Сообщений: 28	Stilet, у меня файл копируется на место после удаления функцией CopyFile. Как использовать SHARE DENY я не знаю :-( В ообщем, программу написал. Спасибо всем за помощь! Хотелось бы узнать, возможно ли сделать файл неудаляемым? На данный момент моя программа восстанавливает файл после удаления, а хотелось бы сделать так, чтобы файл вообще не удалялся. Есть идея написать службу, которая будет держать нужный файл постоянно открытым, следовательно, до остановки службы файл удалить будет невозможно. Только вот вопрос, есть ли в Delphi функции, который позволяют держать exe или dll файл открытыми?