mmmm... yo conocía la API BlockInput pero no creo que te sirva. De todas formas la declaración es algo como:
Código Delphi
[-]
function BlockInput(prmBlock : Boolean): Boolean; stdcall; external user32;
Por cierto sería bueno que alguien que sepa de Delphi compruebe la sintáxis porque lo estoy haciendo al "vuelo" desde una declaración de VB.
Hay otras APIs relacionadas con el mouse o el teclado, pero que yo conozca ninguna que haga exactamente lo que vos querés.