Q&A

  • 프로그램 실행중 잠깐 멈추려면....
안녕하세요



프로그램 실행중 배치 처리가 있어서 이걸(10초정도) 끝나구 다음 루틴으로 넘어가게 할려구 하는데 Timer말구는 다른 방법이 없을까요?



sleep하니깐 프로그램 자체가 중지되구..ㅜㅜ



그럼 수고하세요...^^

1  COMMENTS
  • Profile
    이경문 2001.11.17 04:19
    초보 wrote:

    > 안녕하세요

    >

    > 프로그램 실행중 배치 처리가 있어서 이걸(10초정도) 끝나구 다음 루틴으로 넘어가게 할려구 하는데 Timer말구는 다른 방법이 없을까요?

    >

    > sleep하니깐 프로그램 자체가 중지되구..ㅜㅜ

    >

    > 그럼 수고하세요...^^





    다음과 같은 코드로 메인화면을 중지되지 않게 하고 일정시간동안 대기할 수 있습니다.

    썩 좋은 방법은 아니지만요...



    procedure Wait(Duration: DWORD);

    var

    StartTick: DWORD;

    begin

    StartTick := GetTickCount;

    while StartTick + Duration >= GetTickCount do

    Application.ProcessMessages;

    end;