Überprüfen, ob die Arbeitsstation gesperrt ist

[HansHans]

die Function OpenInputDesktop im Beispiel liefert als Ergebnis immer 0, egal ob der Arbeitsplatz mit <WIN><L> gesperrt ist oder ob der Arbeitsplatz nicht gesperrt ist.

Delphi-Quellcode:

hd := OpenInputDesktop(0, False, 0); 
if hd = 0 then begin
  ...
end;

[Dezipaitor]

Ich hab das Beispiel nun mal auf dem Winlogon Desktop ausprobiert und es liefert TRUE.

Vielleicht muss man als Dienst noch explizit mit SetProcessWindowStation, den Prozess auf winsta0 setzen.