Delphi Заблокировать Компьютер

Для блокировки компьютера в Delphi можно воспользоваться функцией LockWorkStation, которая заблокирует компьютер, как если бы пользователь нажал сочетание клавиш Win+L. Пример использования:LockWorkStation;Также можно воспользоваться функцией SendMessage, чтобы отправить сообщение блокировки системе. Пример использования:SendMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);Если нужно заблокировать определенный пользовательский аккаунт, то можно воспользоваться функцией NetUserSetInfo из библиотеки Netapi32.dll. Пример использования:

var  UserInfo: TUserInfo1;  ErrorCode: DWORD;begin  UserInfo.usri1_password := '';  UserInfo.usri1_flags := UF_LOCKOUT;  ErrorCode := NetUserSetInfo(nil, 'username', 1, @UserInfo, nil);  if ErrorCode <> NERR_Success then    ShowMessage(SysErrorMessage(ErrorCode));

В данном примере мы блокируем пользователя с именем "username" путем установки флага UF_LOCKOUT для его аккаунта.

15 горячих клавиш, о которых вы не догадываетесь

15 СКРЫТЫХ СЕКРЕТОВ НА ЛОГОТИПАХ ИЗВЕСТНЫХ КОМПАНИЙ

Установка и активация Autocom Delphi DS150E cars delphi-hlp.rue3

Как поставить пароль на компьютер windows 7

Как в Windows заблокировать экран компьютера

КАК ЗАБЛОКИРОВАТЬ САЙТ, ЧТОБЫ ОН НЕ ОТКРЫВАЛСЯ НА КОМПЬЮТЕРЕ

DELPHI ЗАБЛОКИРОВАТЬ КОМПЬЮТЕР