1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Button2Click(Sender: TObject);
var
MyHandle: THandle;
Struct: TProcessEntry32;
begin
 Listbox1.Items.Clear;
try
 MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
 Struct.dwSize:=Sizeof(TProcessEntry32);
  if Process32First(MyHandle, Struct) then ListBox1.Items.Add(Struct.szExeFile);
 while Process32Next(MyHandle, Struct) do begin
  ListBox1.Items.Add(Struct.szExeFile + GetProcessMemorySize(Struct.th32ProcessID));
 end;
except on exception do
 ShowMessage('Error showing process list');
end;

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function TForm1.GetProcessMemorySize(ProcessID: Integer): String;
var
  Process: THandle;
  MemInfo: TProcessMemoryCounters;
begin
  Process := OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID);
  if (GetProcessMemoryInfo(Process, @MemInfo, SizeOf(MemInfo))) then
    Result := '-'+floatToStr(MemInfo.WorkingSetSize / 1024)
  else
    Result := '-0';
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

{*******************************************************************************
Function: SetDebugPrivilege

@pmfunc Setzt die Privilegien des aktuellen Threads auf "Debug-Privileg",
dadurch wird der Zugriff auf Systemgeschützte Prozesse gewährt. Ist der Übergabe-
parameter = false wird dem Thread dieses Recht wieder entzogen. (<- Sicherheit)

Erstellt: BlackDragon (30.11.2007)
Geändert: BlackDragon (30.11.2007)

@rdesc True bei Erfolg.
*******************************************************************************}

function TForm1.SetDebugPrivilege(
  bEnable: Boolean  {@pparm Privileg setzen = true/ entziehen = false }
): Boolean;
var
  hToken: THandle;
const
  SE_DEBUG_NAME = 'SeDebugPrivilege';
begin
  ImpersonateSelf(SecurityImpersonation);  { den Sicherheitsrahmen "imitieren" }
  { ThreadToken öffnen }
  if OpenThreadToken(GetCurrentThread(), {aktueller Thread}
            TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, {gewünschter Zugriff}
            false,
            hToken) then
  begin
    SetPrivilege(hToken, SE_DEBUG_NAME, bEnable); {Privileg setzen bzw. nehmen}
    CloseHandle(hToken);
    Result := true;
  end else
  begin
    Result := false;
  end;
end;

{*******************************************************************************
Procedure: SetPrivilege

@pmproc Setzt das in "sPrivilege" übergebene Privileg bzw. entzieht es.

Erstellt: BlackDragon (30.11.2007)
Geändert: BlackDragon (30.11.2007)
*******************************************************************************}

procedure TForm1.SetPrivilege(
  hToken: THandle; {@pparm Handle auf ein Token }
  sPrivilege: String; {@pparm Name des Privilegs }
  bEnable: Boolean {@pparm Setzen = true / entziehen = false }
);
var
  tp: TTokenPrivileges;
  tpPrev: TTokenPrivileges;
  luid: Int64;
  BufferLength: Cardinal;
  ReturnValue: Cardinal;
begin
  BufferLength := SizeOf(TTokenPrivileges);
  LookupPrivilegeValue(nil,PAnsiChar(sPrivilege),luid); { Wert der LUID anhand von sPrivilege bekommen }
  tp.PrivilegeCount := 1;
  tp.Privileges[0].Luid := luid;
  {* Privileg setzen *}
  if bEnable then
  begin
    tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
  end else
  begin
    tp.Privileges[0].Attributes := 0;
  end;
  AdjustTokenPrivileges(hToken,false,tp,BufferLength,tpPrev,ReturnValue);
end;                    

1:

SetDebugPrivilege(true);                    

1:

SetDebugPrivilege(false);