The Unofficial Newsletter of Delphi Users - by Robert Vivrette

Проверим вашу мышку ...

By Lennie De Villiers - ddevilliers@lando.co.za

Перевод Руденко Е.В.   janer@newmail.ru    июнь 2001 года

 

Привет, из солнечной Северной Африки. Я надеюсь, что вам понравится этот тип и будет вам полезным. Иногда программисту необходимо знать , есть ли мышка на данном компьютере и сколько у нее кнопок? Посмотрим на следующие две Delphi функции :

(Не забудьте добавить модуль "ShellAPI" в декларацию uses вашего приложения)

Function MouseButtonsCount:

function MouseExist : boolean;
begin
  if (GetSystemMetrics(SM_MOUSEPRESENT) <> 0) then
    Result := True
else
   Result := False;
end; {MouseExist}
Эта функция проверяет - инсталлирована ли мышка в вашей системе;  если да , то возвращается значение  TRUE , если нет ,          то -  FALSE.
 

Function MouseButtonsCount:

function MouseButtonsCount : integer;
begin
  Result := GetSystemMetrics(SM_CMOUSEBUTTONS);
end; {MouseButtonsCount}
Эта функция возвращает число доступных кнопок мышки. Если мышки нет, то возвращается  0 (ноль).
 

Тестовый пример:

Протестируйте эти функции,

1. Добавьте кнопку (TButton) и метку (TLabel) на основную форму (TForm), щелкните на кнопке и добавьте следующий код к событию кнопки  "OnClick" :

begin
  if (MouseExist) then
    Label1.Caption := 'Мышка инсталлирована с  ' +
IntToStr(MouseButtonsCount) + ' доступными кнопками ...'
else
  Label1.Caption := 'Мышка не инсталлирована ...';
end;


2. Запустите приложение  (нажав  F9) и щелкните на кнопке. Метка выдаст сообщение, что мышка установлена и имеет столько-то кнопок или , что мышка не установлена .

По всем вопросам и с предложениями обращайтесь по адресу : ddevilliers@lando.co.za или на мой сайт: http://ddevilliers.southafrica.webjump.com/delphi/ (пока в разработке).

Счастливо!

Возврат в Tips&Tricks