Delphi 사용자가 키보드나 마우스를 조작하지 않은 지 얼마나 됐는지 검사

1592 단어 Delphi
procedure TForm1.Timer1Timer(Sender: TObject);
var
vLastInputInfo: TLastInputInfo;
begin
vLastInputInfo.cbSize :
= SizeOf(vLastInputInfo);
GetLastInputInfo(vLastInputInfo);
if GetTickCount - vLastInputInfo.dwTime > 5000 then
begin
timer1.Enabled:
= false;
showmessage(
' 5 , !');
end;
end;

좋은 웹페이지 즐겨찾기