DELPHI代码

  1. unit Unit1;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5. Dialogs, StdCtrls, ExtCtrls;
  6. type
  7. TForm1 = class(TForm)
  8. Button1: TButton;
  9. Timer1: TTimer;
  10. procedure Timer1Timer(Sender: TObject);
  11. private
  12. { Private declarations }
  13. public
  14. { Public declarations }
  15. end;
  16. //typedef struct tagLASTINPUTINFO {
  17. //UINT cbSize;
  18. // DWORD dwTime;
  19. // LASTINPUTINFO, *PLASTINPUTINFO;
  20. type
  21. LASTINPUTINFO = record
  22. cbSize:UINT;
  23. dwTime:DWORD;
  24. end;
  25. var
  26. Form1: TForm1;
  27. implementation
  28. {$R *.dfm}
  29. function GetInputAwayTime():DWORD;
  30. var
  31. lpi:TLastInputInfo;
  32. begin
  33. lpi.cbSize := sizeof(lpi);
  34. GetLastInputInfo(lpi);
  35. Result := Round((GetTickCount()-lpi.dwTime)/1000);
  36. end;
  37. procedure TForm1.Timer1Timer(Sender: TObject);
  38. begin
  39. Caption := IntToStr(GetInputAwayTime)
  40. end;
  41. end.

VC代码

    1. DWORD GetInputAwayTime()
    2. {
    3. LASTINPUTINFO lpi;
    4. lpi.cbSize = sizeof(lpi);
    5. GetLastInputInfo(&lpi);
    6. return DWORD((GetTickCount()-lpi.dwTime)/1000);
    7. }

http://blog.csdn.net/cmdasm/article/details/10158601

最新文章

  1. 关于float和margin
  2. PagerTabStrip在ViewPager的页面中添加标题显示
  3. JavaScript学习笔记——事件
  4. ruby -- 进阶学习（十六）ckeditor去除“浏览服务器”按钮
  5. c# 控件闪烁处理方法
  6. 详解SSH框架的原理和优点
  7. 俄罗斯方块：win32api开发
  8. Visual C++学习笔记1：一定要注意ANSI和UNICODE差额
  9. linux kernel 编译
  10. Git - git tag - 查看当前分支 tag 版本&说明
  11. 使用Roslyn编译项目的示例
  12. iOS开发 -------- transform属性(形变)
  13. 5款替代微软Visio的开源免费软件
  14. vim 快捷键(update)
  15. sort a given string
  16. Easyui datagrid绑定数据，新增，修改，删除方法(一)
  17. 查询orcale运行的SQL语句记录
  18. 制作高仿QQ的聊天系统（上）—— 布局文件 & 减少过度绘制
  19. SpringBoot（十三）-- 不同环境下读取不同配置
  20. ubuntu安装maven

热门文章

  1. HDU3631：Shortest Path(Floyd)
  2. linux开关机命令
  3. karma、jasmine做angularjs单元测试
  4. 怎么在Linux上下载并安装ESET NOD32 Antivirus 4桌面版
  5. NYOJ 284 坦克大战 bfs + 优先队列
  6. JY01-KX-01
  7. android bindService()
  8. win8发布 wcf问题
  9. 【C++学习之路】派生类的构造函数（一）
  10. C++ 性能剖析 （二）：值语义 (value semantics)