반응형
델파이에서 키보드 나 마우스 입력이 일정 시간동안 시스템에 발생 되지 않을 때 특정 기능(로그아웃 등)을
하려면 다음과 같이 할 수 있다.
일단 Timer를 폼에 떨어 트려 놓고 지연시간을 얻는 함수를 만든다.
function Form1.SecondsIdle: Cardinal; var liInfo: TLastInputInfo; begin liInfo.cbSize := SizeOf(TLastInputInfo); GetLastInputInfo(liInfo); Result := (GetTickCount - liInfo.dwTime) div 1000; end;
타이머의 Timer 이벤트에서 지연시간이 일정시간 이상이 되면 특정 기능을 처리 한다.
procedure Form1.Timer1Timer(Sender: TObject); begin if SecondsIdle >= 1800 then begin // 30분 Timer1.Enabled := false; // 특정 기능 처리 end;
반응형
'개발정보' 카테고리의 다른 글
[PHP] PHP 에서 SQL서버 접속하기 위한 환경 설정(Windows 환경) (0) | 2016.07.16 |
---|---|
Eclipse CDT에 JDT 설치 하기 (0) | 2014.02.05 |
[Delphi] 텍스트의 넓이(width) 구하기 (2) | 2013.07.26 |
[Delphi] 런타임에 메인폼(MainForm) 변경 하기 (1) | 2013.07.26 |
[SQL] 사용자 정의함수로 BOM 구현 (0) | 2013.06.29 |