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

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;

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

• Определение системной информации
• Как передать при создании нити (Tthread) ей некоторое значение
• Частичная блокировка и разблокировка функций клавиатуры и мышки