SPECIAL OFFER        Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

⤷ Disable mouse and keyboard

Use BlockInput procedure to lock keyboard and mouse. This procedure with True parameter disables manipulators and with False parameter enables them.

procedure BlockInput(ABlockInput : boolean); stdcall; external 'USER32.DLL';
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  BlockInput(True);
  Sleep(5000);
  BlockInput(False);
end;
More for developers
Databases for Amazon Associates
Amazon Categories
Amazon Nodes