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;

[Dalai]

Gibt es einen Grund, warum du das Rad neu erfindest? Selbst Delphi 5 hat diese Funktion bereits deklariert. Und warum nutzt du nicht direkt die Rückgabe der Funktion LockWorkstation für das Result deiner Funktion Windows_Lock? GetLastError bei LockWorkstation=False kann zudem auch nicht schaden, um herauszufinden, warum es nicht geht.

Übrigns gibt es einen Unterschied zwischen BOOL und Boolean: BOOL = 4 Byte, Boolean = 1 Byte. Bin mir nicht sicher, ob das hier eine Rolle spielt.

Grüße
Dalai

[hoika]

Hallo,
gerade mal unter D10.2 (32 Bit) kompiliert, klappt.

[361]

Guten Morgen,

ich bedanke mich für die Antworten.

@Dalei: Wo ist diese Funktion denn zu finden und wie heißt sie? Ich habe diesen Code seit irgendwann Anfang 2000 und das mit dem Rückgabewert ist mir auch gerade aufgefallen und korrigiert worden.

@Heiko: Hast Du meinen Code dazu verwendet oder die von Dalei vorgeschlagene mir noch unbekannte native Delphi-Implementierung? Unter Windows 10 (1703) habe ich lediglich das Problem, Standardinstallation mit Standardeinstellungen.

[TiGü]

Zitat von 361:

@Dalei: Wo ist diese Funktion denn zu finden und wie heißt sie? Ich habe diesen Code seit irgendwann Anfang 2000 und das mit dem Rückgabewert ist mir auch gerade aufgefallen und korrigiert worden.

Ich würde ja zuerst in Winapi.Windows gucken und wenn das nicht von Erfolg gekrönt ist dann in den anderen Winapi-Units in bspw. C:\Program Files (x86)\Embarcadero\Studio\19.0\source\rtl\win

[jaenicke]

Die Funktion liegt schon ganz normal in der Unit Winapi.Windows bzw. früher nur Windows.

Du hast bei deiner eigenen Deklaration das stdcall vergessen und wie schon erwähnt wurde den falschen Rückgabewert benutzt.

[361]

Vielen Dank für die Antworten. Ich konnte mein Problem näher einkreisen: der Code ist korrekt (auch wenn optimierungsbedürftig), das Problem ist, dass dieser in einem Service ausgeführt wird. Unter Windows XP klappt das noch, aber ab Windows 7 läuft das nicht mehr. Hat jemand eine Idee, wie man das lösen könnte?