Определить количество кнопок мышки

Delphi , ОС и Железо , Мышка и Курсор

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

// if the result is 0, no mouse is present 
// wenn result 0 zuruckgibt, ist keine Maus angeschlossen. 

function GetNumberOfMouseButtons: Integer;
 begin
   Result := GetSysTemMetrics(SM_CMOUSEBUTTONS);
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ShowMessage('Your mouse has ' + IntToStr(GetNumberOfMouseButtons) + ' buttons.');
 end;

Here's the translation of the provided Delphi programming snippet into Russian:

Код, предоставленный ниже, - это фрагмент программирования на языке Delphi, который определяет количество кнопок мыши на системе и отображает эту информацию в окне сообщений при нажатии кнопки.

Распределение функции кода:

1. Функция GetNumberOfMouseButtons получает количество кнопок мыши из системы с помощью API-функции GetSysTemMetrics с параметром SM_CMOUSEBUTTONS. Это возвращает целочисленное значение, представляющее количество кнопок мыши.
2. В процедуре Button1Click, когда кнопка нажата, она вызывает функцию GetNumberOfMouseButtons и хранит ее результат в переменной Result.
3. Окно сообщений отображает строку, которая включает результат из функции GetNumberOfMouseButtons, преобразованный в строку с помощью функции IntToStr.

Вывод будет выглядеть как-то так: "У вашей мыши 3 кнопки." если на мыше есть три кнопки (например, левая, средняя и правая).

Альтернативное решение на языке Pascal:

function GetNumberOfMouseButtons: Integer;
begin
  Result := GetSystemMetrics(SM_CMOUSEBUTTONS);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('У вашей мыши ' + IntToStr(GetNumberOfMouseButtons) + ' кнопки.');
end;

Код эквивалентен оригинальному, но использует функцию GetSystemMetrics вместо GetSysTemMetrics. Обратите внимание, что обе функции являются частью Windows API и выполняют примерно то же самое.

Определить количество кнопок мышки с помощью программирования на языке Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Мышка и Курсор ::