OpenThread schlägt außerhalb von Delphi fehl

[Neutral General]

Hallo,

Ich lasse mir mit CreateToolhelp32Snapshot alle Prozesse und deren Threads auflisten.
Was mir eben aufgefallen ist, ist, dass ich von einigen Threads/Prozessen von "System-Prozessen" kein Handle bekomme, wenn ich mein Programm NICHT aus Delphi heraus starte. Wenn ich es aus Delphi heraus starte komme ich eigentlich an fast alle Handles ran.

Weiß jemand woran das liegen könnte?
Hab mal 2 Screenshots angehangen. Threads von Prozessen mit dem grauen Fragezeichen davor kann ich nicht öffnen (OpenThread).

Info: Ich versuche die Threads mit dem Recht THREAD_SUSPEND_RESUME zu öffnen.

Gruß
Neutral General

[Bernhard Geyer]

Iste Delphi mit Adminrechten (Stichwort UAC) gestartet?

[Neutral General]

Hallo,

Ich benutze Vista und die UAC ist abgeschaltet (bitte nicht hauen ).
Habe das Programm auch schonmal explizit (außerhalb von Delphi) als Admin gestartet.
Das hat aber nichts geändert.

[himitsu]

Eventuell erbt dein Programm in der IDE die Debugging-Rechte des Debuggers?

Und nein, selbst ein Admin-Programm muß nicht alle möglichen Rechte besitzen.

[Neutral General]

Zitat von himitsu:

Eventuell erbt dein Programm in der IDE die Debugging-Rechte des Debuggers?

Ja sowas in der Art hatte ich mir schon fast gedacht.
Kann ich mir diese Rechte denn noch nachträglich irgendwie besorgen?

[himitsu]

Versuchen kann man's ... nur müßte man wohl erstmal rausbekommen welche(s) Recht(e) deinem Programm fehlen.



Wäre ja zu praktisch, wenn es ein Programm gäbe, welches einem die akiven Rechte eines Programmes auflisten könnte.

[rollstuhlfahrer]

Prozess Explorer macht das (Process -> Properties -> Security)

Bernhard

[Neutral General]

Hallo,

Es wäre auch ganz praktisch wenn ich wüsste wie (mit welcher API?) man sich generell Rechte verschaffen kann Werde mir den Prozess Explorer aber schon mal runterladen

Edit: Das einzige Recht was eine Anwendung in Delphi mehr hat ist das SeDebugPrivilege.

[Assarbad]

Zitat von Neutral General:

Edit: Das einzige Recht was eine Anwendung in Delphi mehr hat ist das SeDebugPrivilege.

Genau wie vermutet (siehe Himitsu).

[Neutral General]

Hallo,

Zitat von MSDN:

Indem Sie die Berechtigung SeDebugPrivilege für den laufenden Prozess festlegen, können Sie das Prozesshandle für jede aktive Anwendung beziehen

Folgender Code funktioniert bei mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var hToken: THandle;
    New: PTokenPrivileges;
    Len, OutLen: Cardinal;
    DebugLUID: Int64;
begin
  if OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES,hToken) then
  begin
    try
      if LookupPrivilegeValue(nil,'SeDebugPrivilege',DebugLUID) then
      begin
        Len := SizeOf(TTokenPrivileges)+SizeOf(TLUIDAndAttributes);
        GetMem(New,Len);
        try
          New^.PrivilegeCount := 1;
          New^.Privileges[0].Luid := DebugLUID;
          New^.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

          if not AdjustTokenPrivileges(hToken,false,New^,0,nil,OutLen) then
            RaiseLastOSError;
        finally
          FreeMem(New);
        end;
      end;
    finally
      CloseHandle(hToken);
    end;
  end;
end;

Problem ist also damit gelöst

Gruß
Neutral General