Überprüfen, ob die Arbeitsstation gesperrt ist

[HansHans]

habs jetzt mit OpenWindowStation und SetProcessWindowStation versucht.
Funtioniert auch soweit, nur wenn der Rechner mit installiertem Dienst gestartet wird, "hängt" er vor der Windows-Anmeldung mit blauem Bildschirm.

Hier der Code:

Delphi-Quellcode:

function TTimeService.IsWorkstationLocked: Boolean;
var
  hDesktop : HDESK;
  hStation : THandle;
  ErrorCode : Integer;
begin
  Result := false;
  try
    hStation := OpenWindowStation('winsta0',false,MAXIMUM_ALLOWED);
    if hStation <> 0 then begin
      if SetProcessWindowStation(hStation) then begin
        hDesktop := OpenDesktop('default',0,false,DESKTOP_SWITCHDESKTOP);
        if hDesktop <> 0 then begin
          Result := not SwitchDesktop(hDesktop);
          CloseDesktop(hDesktop);
        end;
      end;
      CloseWindowStation(hStation);
    end;
  except
  end;
end;

[Dezipaitor]

Merk dir vor dem Aufruf von OpenWindowStation mit GetProcessWindowStation, die vorherige WindowStation,
dann schließe die WindowStation nicht mit CloseWindowStation
und setze stattdessen danach die alte WindowStation mit SetProcessWindowStation.

[HansHans]

@Dezipaitor:
habs mit GetProcessWindowStation/SetProcessWindowStation versucht, funktioniert leider auch nicht!
nach der Windows-Meldung "Computereinstellungen werden übernommen" wird der Bildschirm blau und der Rechner reagiert nicht mehr.

beim Aufruf der Funktion GetProcessWindowStation wird LastError auf 1411 (Klasse ist nicht vorhanden) gesetzt.

[Dezipaitor]

Blauer Bildschirm des Todes oder Hintergrund blau?

Zeig doch mal den neuen Code.

[HansHans]

hier der neue Code:

Delphi-Quellcode:

function TTimeService.IsWorkstationLocked: Boolean;
var
  hDesktop    : HDESK;
  hOldStation : THandle;
  hStation    : THandle;
  ErrorCode   : Integer;
begin
  Result := false;
  hOldStation := GetProcessWindowStation;
  if hOldStation = 0 then Exit;
  try
    hStation := OpenWindowStation('winsta0',false,MAXIMUM_ALLOWED);
    if hStation <> 0 then begin
      if SetProcessWindowStation(hStation) then begin
        hDesktop := OpenDesktop('default',0,false,DESKTOP_SWITCHDESKTOP);
        if hDesktop <> 0 then begin
          Result := not SwitchDesktop(hDesktop);
          CloseDesktop(hDesktop);
        end;
      end;
    end;
  except
  end;
  SetProcessWindowStation(hOldStation);
end;

[HansHans]

kann mir keiner weiterhelfen???

[Dezipaitor]

Ich verstehe nur net, warum du Switchdesktop verwendest. Als Dienst kannst du damit zum default-Desktop zurückkehren
,ohne dass das System den UnLocked-Zustand bemerkt. Diese Technik wird in diesem Artikel beschrieben

Es gibt ein Opensourceprogramm, dass dir etwas mehr zum Thema zeigen kann.

Verwende OpenInputDesktop + GetUserObjectInformation (mit UOI_NAME), um zu erfahren, ob die Session 0 WindowStation derzeit Benutzereingaben nach Winlogon oder default annimmt.

Du kannst übrigens über WTSRegisterSessionNotification und WM_WTSSESSION_CHANGE Benachrichtigungen erhalten,
ob eine Session gerade gespeert oder entsperrt wurde. Das wäre etwas einfacher.
Jedoch funktioniert es nicht, wenn der Dienst (aus der ferne) später gestartet wird, und die Workstation bereits gespeert ist.
Auch ein Nachteil ist, dass es erst ab XP funktioniert. Man kann jedoch auch entfernte Rechner oder andere Terminals damit überprüfen.

[HansHans]

@Dezipaitor:
Danke für die Antwort.

Das mit Switchdesktop habe ich aus einem Source-Beispiel, das ich beim googeln gefunden habe. Es Funktioniert ja auch, nur "hängt" das System beim Booten, wenn der Dienst gestartet wird (nach der Meldung "Benutzereinstellungen werden geladen").

Mit OpenInputDesktop + GetUserObjectInformation kann ich leider nicht viel anfangen. Vielleicht hast du ein Source-Beispiel?

Für WTSRegisterSessionNotification und WM_WTSSESSION_CHANGE brauche ich ein Windows-Handle, das ich bei einem Dienst aber nicht habe.

[Dezipaitor]

Hier gibts ein Beispiel.
Vielleicht funkz das ja?

WTSRegisterSessionNotification funktioniert auch mit Dienst.
Dazu muss man einen Thread erstellen und dort mit CreateWindow ein unsichtbares Fenster, welches dann eben ein Handle für die WTS... Nachricht bekommt. Am besten alles in diesem Thread machen lassen und dann über ein Event oder so an den Hauptthread senden. Geht natürlich auch über eine Variable, die muss dann aber geschützt werden.

[generic]

ich meine mal gelesen zu haben, dass der sperrzustand über die gina.dll abgefragt werden kann.
(oder diese zumindest um das erweitert werden kann bzw. überredet werden kann ereignisse zu schicken)