タイムリミット付きの入力待ちをするには？ (ID:22683)

名前

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

本文 修正・・ StartTime := GetTickCount; Flag := True; try repeat StopTime := GetTickCount; Application.ProcessMessages; Until GetTickCount > StartTime + 10000; finally Flag := False; end;