Mega Code Archive
Categories
/
Delphi
/
Examples
Check if a mouse is present
function MouseExists: Boolean; begin Result := GetSystemMetrics(SM_MOUSEPRESENT) <> 0; end; procedure TForm1.Button1Click(Sender: TObject); begin if MouseExists then ShowMessage('Mouse present.'); end;