Mega Code Archive

 

Categories / Delphi / Hardware

 

Check if a mouse is present

Title: 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;