[Ozerich]

Если надо комп заблокировать то используй
procedure BlockInput; external 'user32.dll';