안녕하세여~ 구창민입니다.

1. Windows.pas 에 선언되어 있습니다.

2. WaitFor 함수의 Result 겠군여. wrSignaled 는 열거형일겁니다.

즐거운 프로그래밍 하세여~

1.  windows.pas에  INFINITE = DWORD($FFFFFFFF);     { Infinite timeout }라고 되어 있는데
이것만 봐서는 무슨말인지 잘모르겠네요...

2. WaitFor
- type TWaitResult = (wrSignaled, wrTimeout, wrAbandoned, wrError);
  waitfor에서 wrSignaled가 result인것은 알겠는데 그럼 이 값이
  TEvent.SetEvent를 해서 정해진 값인가요?

function TEvent.WaitFor(Timeout: DWORD): TWaitResult;
begin
  case WaitForSingleObject(Handle, Timeout) of
    WAIT_ABANDONED: Result := wrAbandoned;
    WAIT_OBJECT_0: Result := wrSignaled;
    WAIT_TIMEOUT: Result := wrTimeout;
    WAIT_FAILED:
      begin
        Result := wrError;
        FLastError := GetLastError;
      end;
  else
    Result := wrError;    
  end;
end;