"AND" "OR"
Главная Информер Журнал Форум

Как узнать, присутствует ли мышка

Следующая функция возвращает true если мышка присутствует.

function MousePresent : Boolean;
begin
  if GetSystemMetrics(SM_MOUSEPRESENT) <> 0 then
    Result := true
   else
    Result := false;
end;