Закрытие программы через ДЗ

[-Jack-]

Всем доброго времени суток. Возможно ли сделать так, чтобы программу было нельзя завершить через диспетчер задач ( убить процесс), а только завершить через (х) или выход ?

Вспомнил про ring0, но он у меня работать отказался ... Хотя win xp 32...

для скрытия процесса использую

var
  MyPid: dword;
  MyEPROCESS: dword;
  InitType: dword;
  Init: boolean;
begin
  InitType := DRIVER_GATE;
  Init := InitialzeRing0Library(InitType);
  MyPid := GetCurrentProcessId();
  MyEPROCESS := HideProcess(MyPid);

[Stilet]

Какая ХР? Есть ли разделение на сеансы админа и простого юзера?

[hon]

Я задавал такую тему. Но в ответ тишина. Хотя может неправильно раскодировал тишину ().

[Человек_Борща]

зачем вам в ядро лезть? Да ещё из паскаля?
Ставьте хук на TerminateProcess и не программист уже не найдет самостоятельного решения прибития вашего процесса.

[-Jack-]

Сообщение от Stilet

Какая ХР? Есть ли разделение на сеансы админа и простого юзера?

win Xp SP3 x32. Разделения никакого нет, только 1 учетка админа.

По поводу работоспособности, я обратил внимание на вот что: если использовать уже скомпилированный драйвер ( он на С написан) то программа прячется, но вот когда пользоваться компонентами, которые на delphi, то они как то не особо хотят работать ...

Сообщение от Человек_Борща

зачем вам в ядро лезть? Да ещё из паскаля?
Ставьте хук на TerminateProcess и не программист уже не найдет самостоятельного решения прибития вашего процесса.

а можно чуть по подробней ?