Запретить удаление процесса

Posted by micher under Delphi

Как запретить убивать процесс через диспетчер задач?

Stilet

На примере блокнота:

unit Unit1;

interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;
type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
implementation
{$R *.dfm}

   function CreateNoKillProcess(EXEProg:pchar):boolean;

const

 ACL_REVISION = 2;

var

 ACL      : _ACL;

 SD       : _SECURITY_DESCRIPTOR;

 SA       : _SECURITY_ATTRIBUTES;

 si       : _STARTUPINFOA;

 pinfo       : PROCESS_INFORMATION;
 begin

  result:=false;
 // Инициализация структуры ACL (Access Control List)

 // В случае удачи у нас будет ACL, не содержащая ни одного элемента

 // защиты, т.е. запрещающая доступ к объекту всем.

 if not InitializeAcl(ACL,SizeOf(_ACL),ACL_REVISION)

  then; //ShowMessage('InitializeAcl'+#13#10+SysErrorMessage(GetLastError));
 //  Проверяем ACL на корректность (не обязательно)

 if not IsValidAcl(ACL) then exit;
 // Инициализация структуры SD (Security Descriptor)

 // После инициализации SD будет разрешать доступ к объекту для всех

 if not InitializeSecurityDescriptor(@SD,SECURITY_DESCRIPTOR_REVISION)

  then ;//ShowMessage('InitializeSecurityDescriptor'+#13#10+SysErrorMessage(GetLastError));
 // Добавляем к описателю безопасности наш ACL

 // Теперь SD запрещает доступ всем

 if not SetSecurityDescriptorDacl(@SD,true,@ACl,true)

  then ;//ShowMessage('SetSecurityDescriptorDacl'+#13#10+SysErrorMessage(GetLastError));
 // Опять проверка на корректность структуры

 if not IsValidSecurityDescriptor(@SD) then exit;
 // Заполняем структуру SA (Security Attributes)

 ZeroMemory(@sa,SizeOf(sa));

 sa.nLength:=SizeOf(sa);

 sa.bInheritHandle:=false;

 // Ссылка на наш дескриптор безопасности

 sa.lpSecurityDescriptor:=@SD;
 // Ну и наконец, создаем новый процесс с новыми атрибутами безопасности

 ZeroMemory(@si,SizeOf(si));

 si.cb:=SizeOf(si);

 if not CreateProcess(nil,EXEProg,@sa,@sa,false,0,nil,nil,si,pinfo)

  then ;//ShowMessage('CreateProcess'+#13#10+SysErrorMessage(GetLastError));

 result:=true
end;

procedure TForm1.FormCreate(Sender: TObject);

begin

CreateNoKillProcess('c:\windows\notepad.exe');

end;
end.

Учесть следует что убить из диспетчера такой запуск можно только с правами админа, но все таки можно.

тема на форуме

Похожие статьи

• Как запретить убивать процесс через диспетчер задач?