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

Советы » Компьютер » Как заблокировать компьютер

procedure LockPC;
var
  OldValue: LongBool;
begin
  SystemParametersInfo(97, Word(Bool), @OldValue, 0);
  WinExec(PChar('rundll32 mouse,disable'), SW_SHOW);
  WinExec(PChar('rundll32 keyboard,disable'), SW_SHOW);
end;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com