쓸만한 함수네염... ^^a;;

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( 10000 );         // Wait for for 10 Secounds
     xBlockInput( False );  // Enable  Keyboard & mouse
  end;
end;