Завершение процесса

[Terran]

Уважаемые программисты! Подскажите пожалуста, как можно завершить процесс через Ring 0 в Делфи?

[Ins]

А TerminateProcess, стесняюсь спросить, разве не через Ring 0 процесс завершает?

[rpy3uH]

Ring 0 это режим ядра. написание на Delphi драйверов режима ядра - извращение.(не хотел никого обидеть)
привожу код который работает из Ring 3, но будет работать и из Ring 0.

var
  CID:TClientID;
  ObjAttrs:TObjectAttributes;
  hProcess:THandle;
begin
  ZeroMemory(@ObjAttrs,sizeof(ObjAttrs));
  CID.UniqueProcess:=ProcessID;  
  CID.UniqueThread:=0;
  RES:=ZwOpenProcess(@hProcess,PROCESS_TERMINATE,@ObjAttrs,@CID);
  if RES<>STATUS_SUCCESS then
    exit;
  RES:=ZwTerminateProcess(hProcess,0);

но тем не менее советую писать драйверы на С/С++ или ассемблере.

[Terran]

Спасибо !!!