iniファイルについて (ID:17220)

名前

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

本文 sleepとか、以下とかです。 procedure pWaitMiliSec(lwMiliSec: Longword); { lwMiliSec: 待ち時間(単位：ミリ秒) } var StartTime, WaitTime: TDateTime; begin WaitTime := lwMiliSec/1000/24/60/60; StartTime := Now; while True do begin Application.ProcessMessages; if StartTime + WaitTime < Now then Break; end; end;