Windows 10 - GetModuleHandle('USER32.DLL') & LockWorkStation funktioniert nicht

[361]

Da das Beispiel im StackOverflow zu gehen scheint, wäre mir sehr geholfen, wenn jemand ausreichende VB-Kenntnisse hätte, um die Lösung der ersten Antwort zu übersetzen. Mir gelingt es nicht, ich scheitere an dem ersten Code-Beispiel, welches ja für das dritte Code-Beispiel benötigt wird

[TiGü]

Zitat von 361:

Da das Beispiel im StackOverflow zu gehen scheint, wäre mir sehr geholfen, wenn jemand ausreichende VB-Kenntnisse hätte, um die Lösung der ersten Antwort zu übersetzen. Mir gelingt es nicht, ich scheitere an dem ersten Code-Beispiel, welches ja für das dritte Code-Beispiel benötigt wird

Bitte die Stack Overflow Antwort nochmal genau lesen und auf das EDIT in der Mitte achten!

Es sollte dann klar werden, dass er den ganzen Quark aus dem ersten Code-Beispiel nicht braucht, sondern direkt CreateProcessAsUser aufruft (drittes Code-Beispiel) mit dem Handle aus WTSQueryUserToken.

[TiGü]

Mal so runtergetippt und ungetestet:

Delphi-Quellcode:

function WTSQueryUserToken(SessionId: ULONG; phToken: PDWORD): BOOL; stdcall; external wtsapi32;
function WTSGetActiveConsoleSessionId: DWORD; stdcall; external kernel32;

procedure Test;
var
  SessionId: DWORD;
  UserTokenHandle: DWORD;
  StartInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  IsCreated: BOOL;
begin
  UserTokenHandle := 0;
  SessionId := WTSGetActiveConsoleSessionId;
  if WTSQueryUserToken(SessionId, @UserTokenHandle) then
  begin
    FillChar(StartInfo, SizeOf(StartInfo), 0);
    StartInfo.cb := SizeOf(StartInfo);
    FillChar(ProcessInfo, SizeOf(ProcessInfo), 0);

    IsCreated := CreateProcessAsUser(
      UserTokenHandle,
      'rundll32.exe',
      'rundll32.exe user32.dll,LockWorkStation',
      nil, nil, False, 0, nil, nil,
      StartInfo, ProcessInfo);

    if not IsCreated then
      RaiseLastOSError;
  end
  else
    RaiseLastOSError;
end;

[361]

Guten Abend TiGü,

und erst einmal vielen herzlichen Dank für Deine Mühe, weiß ich sehr zu schätzen. DANKE!

Ich habe den Code gerade getestet und erhalte folgende Fehlermeldung:

Code:

System Error. Code: 1314. Dem Client fehlt ein erforderliches Recht.

Bei Ausführung von Zeile:

Code:

if WTSQueryUserToken(SessionId, @UserTokenHandle) then

läuft in den Else-Zweig hinein, sprich liefert "False". SessionId ist "1".

Vielleicht hat noch jemand eine Idee? Ich habe einfach eine kleine VCL-Testanwendung dazu gebaut und erhielt dann den Fehler.

Viele Grüße

[TiGü]

Zitat von 361:

Vielleicht hat noch jemand eine Idee? Ich habe einfach eine kleine VCL-Testanwendung dazu gebaut und erhielt dann den Fehler.

Anhand des zweiten Satzes der MSDN-Dokumentation zu dieser Funktion hätte es mich auch schwer gewundert, wenn in einer normalen Desktop-VCL-Anwendung im User-Account etwas bei rumgekommen wäre.

[361]

Zitat von TiGü:

Zitat von 361:

Vielleicht hat noch jemand eine Idee? Ich habe einfach eine kleine VCL-Testanwendung dazu gebaut und erhielt dann den Fehler.

Anhand des zweiten Satzes der MSDN-Dokumentation zu dieser Funktion hätte es mich auch schwer gewundert, wenn in einer normalen Desktop-VCL-Anwendung im User-Account etwas bei rumgekommen wäre.

Ich habe es auch schon gelesen, auch hier im Forum gab es schon etwas dazu. Danke. Ich teste es jetzt mal als Service.

[Dalai]

Anders ausgedrückt: Du musst zusätzlich noch prüfen, ob dein Code im Dienst läuft oder nicht, und WTSQueryUserToken nur aufrufen, wenn es im Dienst ist.

Grüße
Dalai

[361]

@Dalai: Ja, ich weiß. Ich bin gerade am Testen und berichte gleich noch einmal dazu

[361]

Zusammenfassung: Der von TiGü gepostete Code funktioniert nach meinen Tests unter Windows XP, Windows 7, Windows 10 (1703) und Windows Server 2016.

ACHTUNG: Der Code funktioniert nicht, wenn nur eine RDP-Session besteht jedoch keine Benutzer angemeldet sind. Dazu gibt es im MSDN auch einige Informationen zu finden und in diesem Fall erhält man folgende Fehlermeldung:

Zitat:

System Error. Code: 1008.Es wurde versucht, auf ein Token zuzugreifen, das nicht vorhanden ist

Vielen Dank noch einmal für Eure Hilfe und ich hoffe, der Code hilft vielleicht dem einen oder anderen auch weiter.

Viele Grüße

[361]

Problem gelöst (Thema keine offene Frage mehr)