DelphiのVB.NET WaitOne（）＆Set（）に相当する

Question

誰でもこのvbコードと同等のものがDelphiで教えてもらえますか？

私が使用する必要がありますか：

ResetMyEvent: THandle; //?? 

小さなコンソールアプリケーションからコピーされたこれらのVBライン。ビジュアルコンポーネントはありません。

ありがとうございます。

Module MyModule 
    Private WithEvents Obj As MyInterface 
    Private WaitForStartLibrary As AutoResetEvent = New AutoResetEvent(False) 

Sub Main() 
    Obj.StartLibrary(param1, param2,...) 

    If WaitForStartLibrary.WaitOne(5000) = False Then//How can I do this w/out timer comp ? 
    Throw New Exception("Operation timed out") 
    End If 
End Sub 

//Event 
Private Sub StartLibraryCallBack() Handles Obj.StartLibraryCallBack 
    WaitForStartLibrary.Set() 
End Sub 

Answer 1

.NET AutoResetEventとデルファイ当量TEventあります。

• あなたはそれがあなたの自動リセットイベントを与えるManualReset引数にFalseを渡すcreate。
• イベントを待機するには、WaitForに電話してください。
• イベントを設定するには、SetEventに電話してください。