| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как запретить завершать свой приложение? [D7, Win2k, WinXP]

dreamse ©   (2007-11-19 18:42:00) 

Пишу оболочку для ограничения запуска приложений и доступа пользователей к системным файлам.

Смысл в том что есть программы управления ( комп. клубы) которые при окончании сеанса выгружают все запущенные приложения.

т.е идёт метод terminated который и убивает оболочку.
Смысл сделать невозможным убить оболочку из других программ.
Элементарно перехватить метод Close можно поставив CanClose = false
но смысл перехватить именно метод terminate.

Была идея написать сервис который будет висеть в списке сервисов и загружать оболочку если её выгрузили, но программы блокировки выгружают все приложения по мере их запуска что приводит к постоянному миганию ( запуск - заверщение)

Это не зловредный код. Если не хотите подсказать здесь свяжитесь со мной через Email покажу и проект и оболочку :)

Жду ответов.

---

Сергей М.   (2007-11-20 14:29:00) [1]

> Вызываеться метод TerminateProcess


TerminateProcess - это не метод.


> Как не дать завершиться моему приложению ?


Реализовать приложение как сервис и стартовать его от имени системы.

---

Dreamse   (2007-11-20 14:26:00) [2]

Например другая программа хочет завершить мою программу следующем кодом :


var
 dwResult: Longint; // This example was converted from C source.
begin
 // Not tested. Some 'nil' assignments must be applied
 // as zero assignments in Pascal. Some vars need to
 // be declared (maxworktime, si, pi). AA.
 if CreateProcess(nil, CmdStr, nil, nil, FALSE,
   CREATE_NEW_CONSOLE, nil, nil, si, pi) then
 begin
   CloseHandle(pi.hThread);
   dwResult := WaitForSingleObject(pi.hProcess, maxworktime * 1000 * 60);
   CloseHandle(pi.hProcess);
   if dwResult <> WAIT_OBJECT_0 then
   begin
     pi.hProcess := OpenProcess(PROCESS_TERMINATE, FALSE, pi.dwProcessId);
     if pi.hProcess <> nil then
     begin
       TerminateProcess(pi.hProcess, 0);
       CloseHandle(pi.hProcess);
     end;
   end;
 end;
end;


Вызываеться метод TerminateProcess который и завершает моё приложение.
Вопрос : Как не дать завершиться моему приложению ?

---

Сергей М.   (2007-11-20 14:16:00) [3]

> при методе terminate


Методе какогообъекта ?)

---

dreamse   (2007-11-20 13:53:00) [4]

Не нужно так утвержжать. Знаю несколько приложений которые не выгружаються при методе terminate

> Сергей С.   (19.11.07 21:32) [1]

Не можешь подсказать лучше промолчи

---

tesseract   (2007-11-20 10:56:00) [5]

Перехватывать WmCloseQuery и говорить что ни в жисть. против Kill ничего не сделаешь - это все.

---

Сергей С.   (2007-11-19 21:32:00) [6]

> есть программы управления


> т.е идёт метод terminated


Галиматьища несусветная.


> Это не зловредный код


Да хоть доброполезный)

Логику - фтопку.

---

Наверх