Detect how long the mouse keyboard is inactive (using Getlastinputinfo API function detection)

Delphi Code

[HTML]View PlainCopy

2. Unit Unit1;
6. Interface
10. Uses
12. Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,
14. Dialogs, Stdctrls, Extctrls;
18. Type
20. TForm1 = Class (Tform)
22. Button1:tbutton;
24. Timer1:ttimer;
26. Procedure Timer1timer (Sender:tobject);
28. Private
30. {Private declarations}
32. Public
34. {Public declarations}
36. End
38. typedef struct TAGLASTINPUTINFO {
40. UINT cbsize;
42. DWORD Dwtime;
44. Lastinputinfo, *plastinputinfo;
50. Type
52. lastinputinfo = record
54. Cbsize:uint;
56. Dwtime:dword;
58. End
60. Var
62. Form1:tform1;
66. Implementation
70. {$R *.DFM}
78. function getinputawaytime ():D word;
80. Var
82. Lpi:tlastinputinfo;
84. Begin
86. Lpi.cbsize : = sizeof (LPI);
88. Getlastinputinfo (LPI);
90. Result : = Round ((GetTickCount ()-lpi.dwtime)/1000);
92. End
94. Procedure Tform1.timer1timer (Sender:tobject);
96. Begin
98. Caption : = inttostr (getinputawaytime)
100. End
104. End.

VC Code

[HTML]View PlainCopy

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

Detect how long the mouse keyboard is inactive (using Getlastinputinfo API function detection)