一定時間のアイドルでプログラムを終了したい (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;