sleep 안쓰고 이런 방법도 있담니다.
oxmin
(손님)
2002-12-09 오전 10:00:29
1219회 조회
등록된 파일이 없습니다.
procedure winDelay(msectime:Cardinal);
var
fcontinue:Boolean;
Start:Cardinal;
begin
fcontinue := TRUE;
Start := GetTickCount;
while fcontinue do
begin
Application.ProcessMessages;
if Start + msectime < GetTickCount then fcontinue := FALSE
end;
end;