while(TRUE)
   {
      ReadSlot();
      Sleep(3000);
   }

   while(TRUE)
   {
      ReadSlot();
   }

   while(TRUE)
   {
      ReadSlot();
      Sleep(100); 
   }

SetTimer(hwndWindow,NULL,100,NULL);

LRESULT CALLBACK WndProc( HWND hwnd, UINT message, WPARAM wparam, LPARAM lparam )
{
  switch( message )
  {
    case WM_TIMER:
      ReadSlot();
...

   fResult = GetMailslotInfo( hSlot, // mailslot handle 
        (LPDWORD) NULL,               // no maximum message size 
        &cbMessage,                   // size of next message 
        &cMessage,                    // number of messages 
        (LPDWORD) NULL);              // no read time-out 

   while(TRUE)
   {
      ...
      fResult = GetMailslotInfo( hSlot, // mailslot handle 
        (LPDWORD) NULL,               // no maximum message size 
        &cbMessage,                   // size of next message 
        &cMessage,                    // number of messages 
        INFINITE;              // ждать пока не появится сообщение 
      ...
      //здесь код обработки сообщения
   }

  for (;;)
    PThread::Sleep(5000);

void Proga::Main()
{
...
  if (!Initialise()) {
    PThread::Sleep(100);  // workaround for race condition
    return;
  }
...
  for (;;)
    PThread::Sleep(5000);
}
-------------------------
PBoolean Proga::Initialise()
{
...
  manager = new MyManager();
  if (!manager->Initialise(args))
    return FALSE;

  return TRUE;
}
--------------------------
PBoolean MyManager::Initialise(const PConfigArgs & args)
{
...
  if (!ModemEndPoint::Create(*this, args))
    return FALSE;
  if (!MyH323EndPoint::Create(*this, args))
    return FALSE;
  if (!MySIPEndPoint::Create(*this, args))
    return FALSE;
  if (!MyCapiEndPoint::Create(*this, args))
    return FALSE;

  char t[500];
  GetConsoleTitleA( t, 1000 );     // retrieve the text of the title bar of the console window
  HWND hwndConsole = FindWindowA( NULL, t );
  HINSTANCE hInstance = (HINSTANCE)(LONG_PTR)GetWindowLong(hwndConsole, GWL_HINSTANCE);
  static const char* class_name = "MYPROGA_WINDOW_CLASS";
  WNDCLASSEX wx = {};
  wx.cbSize = sizeof(WNDCLASSEX);
  wx.lpfnWndProc = WndProc;        // function which will handle messages
  wx.hInstance = hInstance;
  wx.lpszClassName = class_name;
  if ( RegisterClassEx(&wx) ) {
    HWND hwndWindow = CreateWindowEx( 0, class_name, "MyProga_Message_Receiver", 0, 0, 0, 0, 0, HWND_MESSAGE, NULL, NULL, NULL );

hMailSlotHandle = CreateMailslot(lpszSlotName, 0, 0, m_tSA)

    MSG msg;
    while( GetMessage( &msg, hwndWindow, 0, 0 ) )
    {
      TranslateMessage(&msg);
      DispatchMessage(&msg);
    }

  MakeMailSlot(Slot);

  char buffer[65536];
  DWORD NumberOfBytesRead;

 // Read data from the mailslot forever!
  while(ReadFile(hMailSlotHandle, buffer, 65536, &NumberOfBytesRead, NULL) != 0)
  {
    PString str_buf = PString((LPCTSTR)buffer);
    cout << str_buf << " " << NumberOfBytesRead << "\n";
  }

  hMailSlotHandle = CreateMailslot(lpszSlotName, 
                     0,                             // no maximum message size 
                     MAILSLOT_WAIT_FOREVER,         // no time-out for operations 
                     (LPSECURITY_ATTRIBUTES) NULL); // default security

  MakeMailSlot(Slot);

  char buffer[65536];
  DWORD NumberOfBytesRead;
  for (;;)
  {
    if (ReadFile(hMailSlotHandle, buffer, 65536, &NumberOfBytesRead, NULL)!=0) {
      buffer[NumberOfBytesRead]='\0'; //отсекаем мусор
      PString str_message =  PString((LPCTSTR)buffer);
      cout << str_message << "\n";
      //обработка str_message
    }
    else
      cout << "timeout\n";
  }

BOOL WINAPI MakeMailSlot(LPTSTR lpszSlotName) 
{ 
  hMailSlotHandle = CreateMailslot(lpszSlotName, 
                     0,                             // no maximum message size 
                     10000,         // wait 10sec
                     (LPSECURITY_ATTRIBUTES) NULL); // default security

 BOOL WINAPI MakeMailSlot(LPTSTR lpszSlotName) 
{ 
  hMailSlotHandle = CreateMailslot(lpszSlotName, 
                     0,                             // no maximum message size 
                     MAILSLOT_WAIT_FOREVER,         // no time-out for operations
                     (LPSECURITY_ATTRIBUTES) NULL); // default security
 

Public Function SendMessageToMailSlot(ByVal sMessage As String, ByVal sMailSlot As String) As Boolean
  'ПЕРЕДАТЧИК(клиент)ф-ция отправляет сообщение sMessage серверу с именем sMailSlot
  'если сервер не запущен, то сообщение не отправляется
  Dim hFile As Long
  Dim m_tSA As SECURITY_ATTRIBUTES
  
  hFile = CreateFile(sMailSlot, _
                     GENERIC_WRITE, _
                     FILE_SHARE_READ, _
                     m_tSA, _
                     OPEN_EXISTING, _
                     FILE_ATTRIBUTE_NORMAL)
  If hFile = INVALID_HANDLE_VALUE Then Exit Function
  
  SendMessageToMailSlot = WriteFile(hFile, sMessage, Len(sMessage))
  CloseHandle hFile
End Function

Public Function MailSlotReadFirst(ByRef m_Message As String, ByRef m_MsgCount As Long) As Boolean
  'ПРИЕМНИК(сервер) ф-ция читает первое сообщение если есть
  'возвращает True, если есть хотя бы одно и оно было прочитано
  'm_Message (Out)-текст сообщения, если прочли
  'm_MsgCount -к-во сообщений оставшихся после чтения (без учета прочитанного)
  Dim lBufferSize As Long
  m_Message = ""
  m_MsgCount = 0
  GetMailslotInfo hMailSlotHandle, 0, lBufferSize, m_MsgCount, 0
  If m_MsgCount > 0 Then
    Dim sBuffer As String, lBytesRead As Long
    ' Create a buffer
    sBuffer = String(lBufferSize, 0)
    
    ' Read data: optional параметры ф-ции не используем
    If ReadFile(hMailSlotHandle, sBuffer, lBufferSize) Then
      m_Message = sBuffer
      m_MsgCount = m_MsgCount - 1
      MailSlotReadFirst = True
    End If
  End If
End Function

Public Function SendMessageToMailSlotCPP(ByVal sMessage As String, ByVal sMailSlot As String) As Boolean
  'ПЕРЕДАТЧИК(клиент)ф-ция отправляет сообщение sMessage серверу с именем sMailSlot
  'если сервер не запущен, то сообщение не отправляется
  Dim hFile As Long
  Dim m_tSA As SECURITY_ATTRIBUTES
  
  hFile = CreateFile(sMailSlot, _
                     GENERIC_WRITE, _
                     FILE_SHARE_READ, _
                     m_tSA, _
                     OPEN_EXISTING, _
                     FILE_ATTRIBUTE_NORMAL)
  If hFile = INVALID_HANDLE_VALUE Then Exit Function
  
  SendMessageToMailSlotCPP = WriteFile(hFile, sMessage, Len(sMessage) + 1)
  CloseHandle hFile
End Function

  SendMessageToMailSlotCPP = WriteFile(hFile, sMessage + chr(0), Len(sMessage) + 1)