델파이/delphi] 유휴시간 체크 및 갱신하기

안녕하세요, 일마레입니다.

 

거래처에서 일정시간 동작을 하지 않을 경우 화면을

갱신해 달라는 요청이 있었다.

 

그냥 조회버튼 한 번 딸각 해주면 안될까요? T^T

 

그래도 거래처 요청이니 .. 요청 화면에 살짝 끄적여 봄..

var

   liInfo: TLastInputInfo;
begin
    Timer1.Enabled := False; // turn off the timer

    try
        liInfo.cbSize := SizeOf(TLastInputInfo); //Last input by user

        GetLastInputInfo(liInfo); //last input by user

        if (GetTickCount - liInfo.dwTime) div 1000 > 5 * 60 then // 5분
        begin
                  //  하고 싶은 작업을 넣어주세요!
        end;
    finally
        Timer1.Enabled := True; // 타이머를 계속 쓰자!
    end;

도움이 되었기를 바라며,

좋은 하루 보내시길 바랍니다.