Überprüfen, ob die Arbeitsstation gesperrt ist

[HansHans]

Hallo,

wie kann ich in einem Dienst prüfen, ob die Arbeitsstation gesperrt ist oder nicht?

dieser Code funktioniert nur in einer Anwendung nicht aber in einem Dienst!!

Delphi-Quellcode:

function IsWorkstationLocked: Boolean;
var
  hDesktop: HDESK;
begin
  Result := False;
  hDesktop := OpenDesktop('default',
    0, False,
    DESKTOP_SWITCHDESKTOP);
  if hDesktop <> 0 then
  begin
    Result := not SwitchDesktop(hDesktop);
    CloseDesktop(hDesktop);
  end;
end;

[DGL-luke]

Reine vermutung aus dem Hinterkopf - kann es sein, dass du gewisse Security-Tokens (oder wie auch immer die Dinger heißen) holen musst, um den Desktop wechseln zu dürfen(auch wenn du unter SYSTEM läufst)?

Die Anwendung muss den (Benutzer-)Desktop ja nicht öffnen, weil sie direkt in ihm läuft.

[Dezipaitor]

Was ist denn die Fehlermeldung? GetLastError fehlt hier.

[HansHans]

@Dezipaitor
GetLastError liefert 5 -> Zugriff verwigert

[Dezipaitor]

Für welchen Befehl?

[HansHans]

@Dezipaitor
bei der Funktion: hDesktop := OpenDesktop('default',0,false,DESKTOP_SWITCHDESKTO P);[list][*]

[Dezipaitor]

hast du beim Dienst : "Interaktion mit dem Desktop" eingestellt?

Verwendest du Vista ?

[HansHans]

@Dezipaitor
wie kann ich "Interaktion mit dem Desktop" einstellen?
der Dienst läuft unter Win XP

[Luckie]

Das kannst du bei der Dienstkonfiguration in der Diensteverwaltung machen. Davon ist aber abzuraten, da es ein potentielles Sicherheitsloch darstellt und ist deswegen unter Windows Vista auch nicht mehr möglich.

[Dezipaitor]

Verwende mal vorher OpenWindowStation und dann SetProcessWindowStation, damit wird der Prozess der WindowStation zugewiesen und kann etwas mehr mit den Desktops.