Экспорт инструментов по DDE

BOOL PostDataMessage(HWND hwndServer, HWND hwndClient, int iState, BOOL fDeferUpd, BOOL fAckReq, BOOL fResponse)
{
   ATOM aItem;
   char szPopulation[16];
   DDEACK DdeAck;
   DDEDATA *pDdeData;
   DWORD dwTime;
   GLOBALHANDLE hDdeData;
   MSG msg;
   WORD wStatus;
   aItem = GlobalAddAtom(pop[iState].szState);
   // Allocate a DDEDATA structure if not deferred update
   if(fDeferUpd)
      hDdeData = NULL;
   else
   {
      wsprintf(szPopulation, "%ld\r\n", pop[iState].lPop);
      hDdeData = GlobalAlloc(GHND | GMEM_DDESHARE, sizeof(DDEDATA) + strlen(szPopulation));
      pDdeData =(DDEDATA *) GlobalLock(hDdeData);
      pDdeData->fResponse = fResponse;
      pDdeData->fRelease = TRUE;
      pDdeData->fAckReq = fAckReq;
      pDdeData->cfFormat = CF_TEXT;
      lstrcpy((PSTR) pDdeData->Value, szPopulation);
      GlobalUnlock(hDdeData);
   }
   // Post the WM_DDE_DATA iMsg
   if(!PostMessage(hwndClient, WM_DDE_DATA,(WPARAM) hwndServer, PackDDElParam(WM_DDE_DATA,(UINT) hDdeData, aItem)))
   {
      if(hDdeData != NULL)
      GlobalFree(hDdeData);
      GlobalDeleteAtom(aItem);
      return FALSE;
   }
   // Wait for the acknowledge iMsg if it's requested
   if(fAckReq)
   {
      DdeAck.fAck = FALSE;
      dwTime = GetCurrentTime();
      while(GetCurrentTime() - dwTime < DDE_TIMEOUT)
      {
         if(PeekMessage(&msg, hwndServer, WM_DDE_ACK, WM_DDE_ACK, PM_REMOVE))
         {
            wStatus = LOWORD(msg.lParam);
            DdeAck = *((DDEACK *) &wStatus);
            aItem = HIWORD(msg.lParam);
            GlobalDeleteAtom(aItem);
            break;
         }
      }
      if(DdeAck.fAck == FALSE)
      {
         if(hDdeData != NULL)
         GlobalFree(hDdeData);
         return FALSE;
      }
   }
   return TRUE;
}