Nachricht auf allen Desktops anzeigen - und wieder schließen

[xpmd]

Zitat von Apollonius:

Die Ansätze 1 und 3 können gar nicht funktionieren: Die TS eines Prozesses kann nicht geändert werden.
Der Ansatz 2 ist korrekt. Hast du in der StartupInfo-Struktur Desktop und Window-Station angegeben? Hast du im Token die SessionID gesetzt?

Danke! Habs jetzt mit Ansatz 2 umgesetzt und so klappts auch. Das Setzen der WindowStation/Desktop für den Prozessstart ist gar nicht nötig.
Das Programm startet sich 1x pro Terminal Session mit dem Parameter STOPX selbst. Durch den Start mit diesem Parameter werden im entsprechenden Kontext alle Fenster der entsprechenden Session durchlaufen.

Da die WTSSendMessage MB_SERVICE_NOTIFICATION nun auch die MessageBox im Login-Screen und beim "gesperrtem" Bildschirm anzeigt, muss ich es noch irgendwie schaffen an diese Fenster zu kommen. Ich lasse vom Hauptprozess unter Session0 / System nochmal zusätzlich alle verfügbaren WindowStations und Desktops nach der MessageBox durchsuchen. Allerdings wird sie nicht gefunden. Ich werde da noch probieren, einen zusätzlichen Prozess unter expliziter Angabe der WinSta0\Winlogon und WinSta0\Disconnect zu starten.

Delphi-Quellcode:

for i := 0 to Length(SessionInfos) - 1 do begin
  UserToken := QueryUserToken(SessionInfos[i].SessionId);
  ZeroMemory(@SI, SizeOf(SI));
  ZeroMemory(@PI, SizeOf(PI));
  
  SI.lpDesktop := nil;
  SI.dwFlags := STARTF_USESHOWWINDOW;
  SI.wShowWindow := SW_HIDE;
  SI.cb := SizeOf(si);
  
  DuplicateTokenEx(UserToken, MAXIMUM_ALLOWED, nil, SecurityImpersonation, TokenPrimary, DuplicatedToken);
  if(DuplicatedToken <> 0) then begin
    SetTokenSessionId(DuplicatedToken, SessionInfos[i].SessionId);
    CreateProcessAsUser(DuplicatedToken,PAnsiChar(ParamStr(0)) , PAnsiChar(ParamStr(0) + ' STOPX'), nil, nil, false,           CREATE_NEW_CONSOLE, nil, nil, SI, PI);
  end;
  CloseHandle(UserToken);
  CloseHandle(DuplicatedToken);
end;

hier der Code für SetTokenSessionId:

Delphi-Quellcode:

{$EXTERNALSYM _SetTokenInformation}
function _SetTokenInformation(TokenHandle: Cardinal; TokenInformationClass: Integer; TokenInformation: PDWORD; TokenInformationLength: DWORD): bool; stdcall;
function SetTokenSessionId(UserToken: Cardinal; SessionId: integer): bool;

implementation

function _SetTokenInformation; external 'Advapi32.dll' name 'SetTokenInformation';
function SetTokenSessionId(UserToken: Cardinal; SessionId: integer): bool;
var Information: DWORD;
begin
  Information := DWORD(SessionId);
  result := _SetTokenInformation(UserToken, 12, @Information, Cardinal(SizeOf(Information)));
end;