LISTEUR DES PROCESSUS ET DE SES CHILDS. KILL N'IMPORTE QUEL PROCESS (PRIVILEGE SE_DEBUG_NAME)

[...]
function SetPrivDebug: boolean;   //fonction pour obtenir le droit de debug
var
  dwPid: DWORD;
  hProcess, hToken : THandle;
  tpDebug, tpPDebug: TOKEN_PRIVILEGES;
  rLenght: Cardinal;
begin
  Result := False;

  dwPid := GetCurrentProcessId; //on obtien le PID de notre process
  hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, dwPid); //on obtien un handle pour accéder au process qui a pour pid dwPid
  if hProcess = 0 then     //si OpenProcess a echoué
  begin
    ShowMessage('Error nº' + IntToStr(GetLastError) + ^M + SysErrorMessage(GetLastError));
    Exit;
  end;
  if OpenProcessToken(hProcess, TOKEN_ALL_ACCESS, hToken) = NULL then  //on obtien un handle sur les token de hProcess et on le met dans hToken
  begin
    ShowMessage('Can''t access token''s right' + ^M + 'Error nº' +
                IntToStr(GetLastError) + ^M + SysErrorMessage(GetLastError));
    Exit;        //^M saute une ligne
  end;

  if LookupPrivilegeValue(nil, SE_DEBUG_NAME, tpDebug.Privileges[0].Luid) = NULL then
  begin //on trouve le LUID (locally unique identifier) du privilège et on le met dans tpDebug.Privileges[0].Luid
    ShowMessage('Can''t retrieve the locally unique identifier (LUID)');
    Exit;
  end;
    tpDebug.PrivilegeCount := 1;     //nombre de privilège que l'on va activer
    tpDebug.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; //action a faire, ici on veut activer le privilège donc SE_PRIVIEGE_ENABLED
    rLenght := 0;
    tpPDebug := tpDebug;
    AdjustTokenPrivileges(hToken, False, tpDebug, SizeOf(tpDebug), tpPDebug, rLenght);
    //on active le privilege de debug (SE_DEBUG_NAME) , adjusttokenprivileges rempli tpPDebug avec l'ancien privilège
    Result := GetLastError = ERROR_SUCCESS; //la condition est vérifiée si tout s'est bien passé

    CloseHandle(hToken); //on ferme le handle hToken
end;
[...]