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

Благодарю за поддержку!

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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

Если у вас воняет под мышкой, помойте коврик.

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