{
The LockWorkStation function locks the workstation"s display,
protecting it from unauthorized use.
This function has the same result as pressing Ctrl+Alt+Del and
clicking Lock Workstation.
To unlock the workstation, the user must log in.
Windows NT/2000/XP: Included in Windows 2000 and later.
Windows 95/98/Me: Unsupported.
}procedure TForm1.Button1Click(Sender: TObject);
begin
LockWorkStation;
end;
{ Loading LockWorkStation dynamically}function LockWS: Boolean;
// by Thomas Stutz, SDC type
TLockWorkStation = function: Boolean;
var
hUser32: HMODULE;
LockWorkStation: TLockWorkStation;
begin// Here we import the function from USER32.DLL
hUser32 := GetModuleHandle("USER32.DLL");
if hUser32 <> 0 thenbegin
@LockWorkStation := GetProcAddress(hUser32, "LockWorkStation");
if @LockWorkStation <> nilthenbegin
LockWorkStation;
Result := True;
end;
end;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Блокировать рабочую станцию", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!