実行のあるなしを判定するには？ (ID:22840)

名前

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

本文 タイマーで一定時間ごとに バックグラウンドで処理させるために スレッドで処理を行っています。 前回の処理が終了していない場合には 処理をスキップするようにしたいのですが どうすればよいのでしょうか? イメージ的には以下のようになるのですが・・・ var MyThread: TMyThread procedure TFormMain.Timer(Sender: TObject); begin if MyThread = Nil then MyThread := TMyThread.Create; end; procedure Terminate(Sender: TObject); begin Self.Free; Self := Nil end;