Заблокировать учётку Windows

[Shouldercannon]

Подскажите, пожалуйста, как заблокировать учётку Windows (Win + L) с помощью Delphi.

[p51x]

https://learn.microsoft.com/en-us/wi...ockworkstation

[FaTaL]

Если статически подключать, то проще некуда:

function LockWS : BOOL; external 'User32' name 'LockWorkStation';

procedure TForm1.Button1Click(Sender: TObject);
begin
  if LockWS then
    Self.Caption := 'Locked';
end;

Если динамически, то чуток больше кода. В инете полно примеров про динамическое покдлючение DLL.