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

名前

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

本文 １０秒間ループをまわす StartTime := GetTickCount; Flag := True; try repeat StopTime := GetTickCount; Application.ProcessMessages; Until GetTickCount > StartTime + 10000; Flag := False;