Fórum quot;Matarquot; Processo #268533

procedure GetDebugPrivs;
const
   // Query que o SO deve executar para obter privilégio de Debug
   SE_DEBUG_NAME = ´SeDebugPrivilege´;
var
   hToken: THandle;          // Handle do Token
   tkp   : TTokenPrivileges; // Privilégio
   retval: dword;            // Retorno
begin
   // Inicializa a transação para ajuste de privilégio e execução da query
   if OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or  TOKEN_QUERY, hToken ) then
   begin

      // Inicia a query de ajuste de privilégio
      LookupPrivilegeValue( nil, SE_DEBUG_NAME, tkp.Privileges[0].Luid );

      // Quantas queries vai executar
      tkp.PrivilegeCount := 1;

      // Indica que a query é de ajuste de privilégio
      tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

      // Finalmente executa a query
      AdjustTokenPrivileges( hToken, false, tkp, 0, nil, retval );
   end;
end;                                                                                  

var
   hProc: Cardinal;
begin
   hProc := OpenProcess( Process_all_access, True, ID_DO_PROCESSO );
   TerminateProcess( hProc, 0 ):
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, TLHelp32 ;

type
  TForm1 = class(TForm)
    Button2: TButton;
    ListView1: TListView;
    procedure Button2Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  aSnapshotHandle: THandle;
  aProcessEntry32: TProcessEntry32;


implementation

{$R *.dfm}

procedure privilegio;
const
   priv = ´SeDebugPrivilege´;
var 
   hToken: THandle;
   tkp   : TTokenPrivileges;
   retval: dword;
begin
   if OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or  TOKEN_QUERY, hToken ) then
   begin
      LookupPrivilegeValue( nil, priv, tkp.Privileges[0].Luid );
      tkp.PrivilegeCount := 1;
      tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      AdjustTokenPrivileges( hToken, false, tkp, 0, nil, retval );
   end; 
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  bContinue: BOOL;
  NewItem: TListItem;
begin
  privilegio;
  ListView1.Items.Clear;
  aSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  aProcessEntry32.dwSize := SizeOf(aProcessEntry32);
  bContinue := Process32First(aSnapshotHandle, aProcessEntry32);
  while Integer(bContinue) <> 0 do
  begin
    NewItem := ListView1.Items.Add;
    NewItem.Caption := ExtractFileName(aProcessEntry32.szExeFile);
    NewItem.subItems.Add(IntToHex(aProcessEntry32.th32ProcessID, 4));
    NewItem.subItems.Add(aProcessEntry32.szExeFile);
    bContinue := Process32Next(aSnapshotHandle, aProcessEntry32);
  end;
  CloseHandle(aSnapshotHandle);
end;

procedure TForm1.ListView1DblClick(Sender: TObject);
var
  Ret: BOOL;
  PrID: Integer; // processidentifier
  Ph: THandle;   // processhandle
begin
  with ListView1 do
  begin
     begin
       PrID := StrToInt(´$´ + ItemFocused.SubItems[0]);
       Ph := OpenProcess(1, BOOL(0), PrID);
       Ret := TerminateProcess(Ph, 0);
       if Integer(Ret) = 0 then
         MessageDlg(´Não foi possível terminar "´ + ItemFocused.Caption + ´"´,
                     mtInformation, [mbOK], 0)
       else
         ItemFocused.Delete;
     end;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Button2.Click;
end;

end.