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

[361]

Guten Abend Euch,

ich habe heute leider feststellen müssen, dass folgender Code zum Sperren einer Windows-Maschine nicht mehr unter Windows 10 zum gewünschten Erfolg - nämlich das Sperren der Maschine - führt. Ich bekomme leider auch keine Fehlermeldung, alles scheint in Ordnung aber die Maschine sperrt sich nicht. Mit XP funktioniert der Code. Nun habe ich im Internet gesucht, aber keine Lösung dazu gefunden. Hat jemand von Euch vielleicht eine Idee, was ich falsch machen oder sich geändert haben könnte?

Vielen Dank und liebe Grüße

Code:

class function TWindows.Windows_Lock : Boolean;
type
  TLockWorkStation = function : Boolean;
var
  hL_User32         : HMODULE;
  LockWorkStation   : TLockWorkStation;
begin
  Result                := (False);

  hL_User32             := (GetModuleHandle('USER32.DLL'));
  if (hL_User32 <> 0) then begin
    @LockWorkStation    := (GetProcAddress(hL_User32, 'LockWorkStation'));
    if (@LockWorkStation <> NIL) then begin
      LockWorkStation;
      Result            := True;
    end;
  end;
end;