مرکز تخصصی دلفی

با این کد شما می توانید تشخیص دهید که آیا موس به رایانه ی شما متصل است یا نه.
فقط یک دکمه و یک Label در فرم قرارا دهید و برای رویداد دکمه کد زیر را تعریف کنید.

//© 2005 koosha system Software http://delphi-center.blogfa.com
procedure TForm1.Button1Click(Sender: TObject);
begin
//© 2005 koosha system Software http://delphi-center.blogfa.com
if GetSystemMetrics(SM_MOUSEPRESENT)<>0 then
 Label1.Caption:='Mouse is Connect'
else Label1.Caption:='Mouse is Not Connect';
end;
//© 2005 koosha system Software http://delphi-center.blogfa.com