delphi获取闲置时间

function GetLastInput: integer; //获取闲置时间
var
  LInput: TLastInputInfo;
begin
  Result := 0;
  try
    LInput.cbSize := SizeOf(TLastInputInfo);
    GetLastInputInfo(LInput);
    Result := ((GetTickCount - LInput.dwTime) div 1000);
  except
  end;
end;

delphi获取闲置时间相关推荐

Delphi获取显卡和系统各种音频设备的代码实现
转载 http://www.codefans.net/articles/396.shtml Delphi获取不同的声音播放设备,这些设备包括:Aux设备.Wave播放设备.录音设备.MIDI音乐播放. ...
Delphi获得计算机系统配置,用Delphi获取本地计算机名称和IP地址
下载本文示例代码本程序介绍如何获取本地计算机的名称和IP地址. 向窗体上添加两个TLabel组件.两个TEdit组件和一个TButton组件,设计完成的主界面如图1所示. 图1 主界面首先在程序的 ...
在delphi 获取特殊目录 SHGetSpecialFolderLocation SHGetPathFromIDList
在delphi 获取特殊目录 SHGetSpecialFolderLocation SHGetPathFromIDList 前往专题相关软件相关文章发表评论来源:本站整理时间:2015/7/21 1 ...
delphi获取外网IP
delphi获取外网IP function getIp():string; var url:string; myIdHttp:TIdHTTP; data:ISuperObject; beginResu ...
delphi打印html文件路径,Delphi获取文件名、不带扩展名文件名、文件所在路径、上级文件夹路径的方法...
1.获取不带扩展名的文件名方法,利用ChangeFileExt函数修改传入参数的扩展为空,并不会对文件本身产生变更. ChangeFileExt(ExtractFileName('D:\KK\Test ...
delphi 获取打印机默认纸张_Delphi 动态调整打印机纸张大小
修改与当前打印机相关的DevMode 结构中的成员.DocumentProperties 函数申明如下: Delphi代码 LONG DocumentProperties ( HWND hWnd, ...
【转载】Delphi获取与设置系统时间格式(长日期与短日期)
Delphi获得与设置系统时间格式在Delphi中,特别是在写管理系统软件时,经常要用到 FormatDateTime 以将 TDateTime 格式的日期时间转换成字符串形式的值显示或保存起来,或 ...
Delphi 获取系统时间分隔符
这段代码本身是没有问题的,但是发现如果更改了系统日期分隔符(例如将系统日期分隔符更改为2016/4/11,"-"变为"/"),StrToDate就会报错,提示: ...
Delphi 获取菜单高度、标题栏高度、边框高度函数GetSystemMetrics
项目中需要获取不同分辨率德菜单高度,必应搜索了一下,可以用GetSystemMetrics函数实现,代码如下:欢迎加入Delphi知识局QQ群:32422310 unit Unit1;interfac ...

delphi获取闲置时间

delphi获取闲置时间相关推荐

最新文章

热门文章