Para esconder el ratón:
ShowCursor(false);
Para deshabilitarlo (no sé si hay algo más sencillo) puedes colocar una componente TApplicationEvents y en su evento OnMessage poner:
Código Delphi
[-]
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
Handled :=
((Msg.message >= WM_MOUSEFIRST) and (Msg.message <= WM_MOUSELAST)) or
((Msg.message >= WM_NCLBUTTONDOWN) and (Msg.message <= WM_NCXBUTTONDBLCLK));
end;
Ambas cosas funcionarán sólo sobre tu aplicación. Si quieres hacerlo en todo el sistema tendrías que programar un
Hook del ratón. Claro que en tal caso sería más sencillo desenchufar el ratón.
// Saludos