Начнём с того, что в восьмёрке всё наоборот, это мышь имитирует тачскрин, она пока осталась в ней для обычных компов и ноутов. Действует принцип "один экран - один курсор", поэтому можно сделать вывод, что здесь необходимо только спрятать изображение указателя и само устройство типа мышь можно и не трогать. Вероятно требуется подобное
Код:
var
CState: Integer;
...
// Убрать изображение курсора
CState:= ShowCursor(True);
while Cstate >= 0 do
Cstate:= ShowCursor(False);
...
// Показать курсор
Cstate:= ShowCursor(True);
while CState < 0 do
CState:= ShowCursor(True);
...