OpenThread schlägt außerhalb von Delphi fehl

[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

[himitsu]

Es gibt jetzt allerdings ein Problem:
Wieso um Himmels willen gibt Delphi seine Rechte an die Debugprogramme weiter?

[Assarbad]

Zitat von himitsu:

Es gibt jetzt allerdings ein Problem:
Wieso um Himmels willen gibt Delphi seine Rechte an die Debugprogramme weiter?

Also so wird das nix mit der Beta, mein Lieber

Vielleicht CreateProcess mit bInheritHandles = TRUE?