鼠标安装了吗 _Delphi资料

　自由风股票趋势走势图

首页 Delphi资料好文收藏股海冲浪自制小软件 E4A易安卓手机编程 ASP资料 Python PHP资料在线字典留言板

鼠标安装了吗

阅读 493 次更新时间：2014/4/18

鼠标安装了吗

CoDelphi.com

　摘　要：鼠标安装了吗?
　关键字：鼠标存在
　类　别：用户界面

{
如果鼠标存在程序返回true
}

function MousePresent : Boolean;
begin
  if GetSystemMetrics(SM_MOUSEPRESENT) <> 0 then
    Result := true
   else
    Result := false;
end;

中文开发在线www.codelphi.com授权使用。