一定時間のアイドルでプログラムを終了したい (ID:41321)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >ApplicationEventsコンポーネントのOnMessageで procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin case Msg.message of WM_KEYDOWN, WM_MOUSEMOVE: fLastTouchDate := Now; end; end; 他にも方法はあります。 自アプリをいじらないなら、 タスクスケジューラ起動でそのアプリを終了させるアプリを作るとか。