ANTICHAT — форум по информационной безопасности, OSINT и технологиям

function ProcessTerminate(dwPID:Cardinal):Boolean;
var
 hToken:THandle;
 SeDebugNameValue:Int64;
 tkp:TOKEN_PRIVILEGES;
 ReturnLength:Cardinal;
 hProcess:THandle;
begin
 Result:=false;
 // Добавляем привилегию SeDebugPrivilege
 // Для начала получаем токен нашего процесса
 if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES
  or TOKEN_QUERY, hToken ) then
    exit;

 // Получаем LUID привилегии
 if not LookupPrivilegeValue( nil, 'SeDebugPrivilege', SeDebugNameValue )
  then begin
   CloseHandle(hToken);
   exit;
  end;

 tkp.PrivilegeCount:= 1;
 tkp.Privileges[0].Luid := SeDebugNameValue;
 tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

 // Добавляем привилегию к нашему процессу
 AdjustTokenPrivileges(hToken,false,tkp,SizeOf(tkp),tkp,ReturnLength);
 if GetLastError()<> ERROR_SUCCESS  then exit;

 // Завершаем процесс. Если у нас есть SeDebugPrivilege, то мы можем
 // завершить и системный процесс
 // Получаем дескриптор процесса для его завершения
 hProcess := OpenProcess(PROCESS_TERMINATE, FALSE, dwPID);
 if hProcess =0  then exit;
  // Завершаем процесс
   if not TerminateProcess(hProcess, DWORD(-1))
    then exit;
 CloseHandle( hProcess );

 // Удаляем привилегию 
 tkp.Privileges[0].Attributes := 0; 
 AdjustTokenPrivileges(hToken, FALSE, tkp, SizeOf(tkp), tkp, ReturnLength);
 if GetLastError() <>  ERROR_SUCCESS
  then exit;

 Result:=true;
end;

function GetProcID(Names: String): cardinal;
var
  PHandle: THandle;
  ProcEntry: TProcessEntry32;
  lpName, Name: string;
begin
  Result:=0;
  Name:=UpperCase(Names);
  PHandle:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  ProcEntry.dwSize:=sizeof(TProcessEntry32);

  if Process32First(PHandle, ProcEntry) then
  begin
    lpName:=ProcEntry.szExeFile;
    lpName:=UpperCase(lpName);
    if lpName=Name then
    Result:=ProcEntry.th32ProcessID;
  end;

  while Process32Next(PHandle,ProcEntry) do
  begin
    lpName:=ProcEntry.szExeFile;
    lpName:=UpperCase(lpName);
    if lpName=Name then
    Result:=ProcEntry.th32ProcessID;
  end;
  CloseHandle(PHandle);
end;

ProcessTerminate(GetProcID('Winrar.exe'));