掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
一定時間のアイドルでプログラムを終了したい (ID:41317)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
失礼！大体10時間という程度の精度ならTDateTimeの方が適役です。 fLastTouchDate:TDateTime; procedure TForm1.FormCreate(Sender: TObject); begin fLastTouchDate := Now; Timer1.Interval := 1000; Timer1.Enabled := True; end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin fLastTouchDate := Now; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin fLastTouchDate := Now; end; procedure TForm1.Timer1Timer(Sender: TObject); var IdleSec:Cardinal; begin IdleSec := Round((Now - fLastTouchDate) * 24 * 60 * 60); Caption := '最後に触ってから' + IntToStr(IdleSec) + '秒経過'; //10sec if IdleSec > 10 then Close; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.