sleep 대체 함수

Procedure Tfrm_Main.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;

TWebBrowser 사용시 sleep를 호출했을 때, 만약 페이지 로딩중이었다면 TWebBrowser까지 먹통이 되어버린다.

위의 함수는 델마당 홈페이지에 어떤 분이 댓글로 남기신것을 복사한 것이다.

만약 프로그램이 먹통이 되지 않고 특정시간동안 대기하고자 할 경우에 유용하다.