1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var LibHnd:integer;
    FuncCall:function (fBlock: boolean):boolean;
begin
 LibHnd:=LoadLibrary('user32.dll');
 if LibHnd=0 then exit;
 FuncCall:=GetProcAddress(LibHnd,'BlockInput');
 if @FuncCall<>nil then begin
  if FuncCall(True) then Caption:='True' else Caption:='False';
 end;
 FreeLibrary(LibHnd);
end;                    

1:

function BlockInput(fBlock:boolean):boolean;stdcall; external 'user32.dll';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

function FunctionDetect (LibName, FuncName: String; var LibPointer:
Pointer): boolean;
var LibHandle: THandle;
begin
 Result := false;
 LibPointer := NIL;
  if LoadLibrary(PChar(LibName)) = 0 then Exit;
  LibHandle := GetModuleHandle(PChar(LibName));
  if LibHandle <> 0 then
  begin
   LibPointer := GetProcAddress(LibHandle, PChar(FuncName));
   if LibPointer <> NIL then Result := True;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var xBlockInput : function (Block: BOOL): BOOL; stdcall;
begin
 if FunctionDetect ('USER32.DLL', 'BlockInput', @xBlockInput) then
 begin
  xBlockInput (True);  // Disable Keyboard & mouse
   Sleep(5000);       // Wait for for 10 Secounds
  xBlockInput (False); // Enable  Keyboard & mouse
 end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var LibHnd:Cardinal;
    FuncCall:function (fBlock:boolean):boolean;
begin
 LibHnd:=LoadLibrary('user32.dll');
 if LibHnd=0 then exit;
 @FuncCall:=GetProcAddress(LibHnd,'BlockInput');
 if @FuncCall<>nil then begin
  FuncCall(True);
 end;
 FreeLibrary(LibHnd);
end;