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;