Procedure SleepProc(milisecond : DWORD);
var
maxloop : Integer;
iindex : integer;
begin
maxloop := (milisecond div 50)+(milisecond mod 50);
for iindex := 1 to maxloop do begin
if Application.Terminated then
begin
Break;
Exit;
Application.Terminate;
end;
Sleep(50);
Application.ProcessMessages;
end;
end;
사용예 : SleepProc(50);
'오래된 글들 > Gentlecat's Job' 카테고리의 다른 글
샘플 사이트 정리하기 (0) | 2008.11.21 |
---|---|
다시 인터넷 황금기가 찾아올까? (0) | 2008.11.19 |
Delphi7 퀵리포트 설치 (0) | 2008.11.19 |
실행파일 실행시 파라미터값 전달해주기 (0) | 2008.11.19 |
advstring Grid 체크박스 넣기 (0) | 2008.11.19 |
파일복사 (1) | 2008.11.19 |
파일삭제 함수 (0) | 2008.11.19 |
grid 첫 데이터 선택하기 (0) | 2008.11.19 |
edit 숫자만 입력받기 (0) | 2008.11.19 |
TWebBrowser 로드 완료 체크 (0) | 2008.11.19 |