C语言实现的一个DDE

/* Tera Term
 Copyright(C) 1994-1998 T. Teranishi
 All rights reserved. */


/* TERATERM.EXE, DDE routines */
#include "teraterm.h"
#include "tttypes.h"
#include <stdio.h>
#include <string.h>
#include <ddeml.h>
#include "ttwinman.h"
#include "ttftypes.h"
#include "filesys.h"
#include "clipboar.h"
#include "ttsetup.h"
#include "telnet.h"
#include "ttlib.h"


#include "ttdde.h"


#define ServiceName "TERATERM"
#define ItemName "DATA"
#define ItemName2 "PARAM"


char TopicName[21] = "";
HCONV ConvH = 0;
BOOL AdvFlag = FALSE;
BOOL CloseTT = FALSE;


static BOOL DdeCmnd = FALSE;


#ifndef TERATERM32
static FARPROC DdeCallbackPtr = NULL;
#endif


static DWORD Inst = 0;
static HSZ Service = 0;
static HSZ Topic = 0;
static HSZ Item = 0;
static HSZ Item2 = 0;
static HWND HWndDdeCli = NULL;


static StartupFlag = FALSE;


// for sync mode
static BOOL SyncMode = FALSE;
static BOOL SyncRecv;
static LONG SyncFreeSpace;


static char ParamFileName[256];
static WORD ParamBinaryFlag;
static WORD ParamAppendFlag;
static WORD ParamXmodemOpt;


#define CBBufSize 300


void GetClientHWnd(PCHAR HWndStr)
{
  int i;
  BYTE b;
  LONG HCli;


  HCli = 0;
  i = 0;
  b = HWndStr[0];
  while (b > 0)
  {
    if (b <= 0x39)
      HCli = (HCli << 4) + (b-0x30);
    else
      HCli = (HCli << 4) + (b-0x37);
    i++;
    b = HWndStr[i];
  }
  HWndDdeCli = (HWND)HCli;
}


void Byte2HexStr(BYTE b, LPSTR HexStr)
{
  if (b<0xa0)
    HexStr[0] = 0x30 + (b >> 4);
  else
    HexStr[0] = 0x37 + (b >> 4);
  if ((b & 0x0f) < 0x0a)
    HexStr[1] = 0x30 + (b & 0x0f);
  else
    HexStr[1] = 0x37 + (b & 0x0f);
  HexStr[2] = 0;
}


void SetTopic()
{
#ifdef TERATERM32
  WORD w;


  w = HIWORD(HVTWin);
  Byte2HexStr(HIBYTE(w),&(TopicName[0]));
  Byte2HexStr(LOBYTE(w),&(TopicName[2]));
  w = LOWORD(HVTWin);
  Byte2HexStr(HIBYTE(w),&(TopicName[4]));
  Byte2HexStr(LOBYTE(w),&(TopicName[6]));
#else
  Byte2HexStr(HIBYTE(HVTWin),&(TopicName[0]));
  Byte2HexStr(LOBYTE(HVTWin),&(TopicName[2]));
#endif 
}


HDDEDATA WildConnect(HSZ ServiceHsz, HSZ TopicHsz, UINT ClipFmt)
{
  HSZPAIR Pairs[2];
  BOOL Ok;


  Pairs[0].hszSvc  = Service;
  Pairs[0].hszTopic = Topic;
  Pairs[1].hszSvc = NULL;
  Pairs[1].hszTopic = NULL;


  Ok = FALSE;


  if ((ServiceHsz == 0) && (TopicHsz == 0))
    Ok = TRUE;
  else
    if ((TopicHsz == 0) &&
(DdeCmpStringHandles(Service, ServiceHsz) == 0))
      Ok = TRUE;
    else
      if ((DdeCmpStringHandles(Topic, TopicHsz) == 0) &&
  (ServiceHsz == 0))
Ok = TRUE;


  if (Ok)
    return DdeCreateDataHandle(Inst, (LPBYTE)(&Pairs), sizeof(Pairs),
      0, NULL, ClipFmt, 0);
  else
    return 0;
}


  BOOL DDEGet1(LPBYTE b)
  {
    if (cv.DCount <= 0) return FALSE;
    *b = ((LPSTR)cv.LogBuf)[cv.DStart];
    cv.DStart++;
    if (cv.DStart>=InBuffSize)
      cv.DStart = cv.DStart-InBuffSize;
    cv.DCount--;
    return TRUE;
  }


  LONG DDEGetDataLen()
  {
    BYTE b;
    LONG Len;
    int Start, Count;


    Len = cv.DCount;
    Start = cv.DStart;
    Count = cv.DCount;
    while (Count>0)
    {
      b = ((LPSTR)cv.LogBuf)[Start];
      if ((b==0x00) || (b==0x01)) Len++;
      Start++;
      if (Start>=InBuffSize) Start = Start-InBuffSize;
      Count--;
    }


    return Len;
  }


HDDEDATA AcceptRequest(HSZ ItemHSz)
{
  BYTE b;
  BOOL Unlock;
  HDDEDATA DH;
  LPSTR DP;
  int i;
  LONG Len;


  if ((! DDELog) || (ConvH==0)) return 0;


  if (DdeCmpStringHandles(ItemHSz, Item2) == 0) // item "PARAM"
    DH = DdeCreateDataHandle(Inst,ParamFileName,sizeof(ParamFileName),0,
     Item2,CF_OEMTEXT,0);
  else if (DdeCmpStringHandles(ItemHSz, Item) == 0) // item "DATA"
  {
    if (cv.HLogBuf==0) return 0;


    if (cv.LogBuf==NULL)
    {
      Unlock = TRUE;
      cv.LogBuf = GlobalLock(cv.HLogBuf);
      if (cv.LogBuf == NULL) return 0;
    }
    else Unlock = FALSE;


    Len = DDEGetDataLen();
    if ((SyncMode) &&
(SyncFreeSpace<Len))
      Len = SyncFreeSpace;


    DH = DdeCreateDataHandle(Inst,NULL,Len+2,0,
     Item,CF_OEMTEXT,0);
    DP = DdeAccessData(DH,NULL);
    if (DP != NULL)
    {
      i = 0;
      while (i < Len)
      {
if (DDEGet1(&b)) {
  if ((b==0x00) || (b==0x01))
  {
    DP[i] = 0x01;
    DP[i+1] = b + 1;
    i = i + 2;
  }
  else {
    DP[i] = b;
    i++;
  }
}
else
  Len = 0;
      }
      DP[i] = 0;
      DdeUnaccessData(DH);
    }


    if (Unlock)
    {
      GlobalUnlock(cv.HLogBuf);
      cv.LogBuf = NULL;
    }
  }
  else
    return 0;


  return DH;
}


HDDEDATA AcceptPoke(HSZ ItemHSz, UINT ClipFmt,
  HDDEDATA Data)
{
  LPSTR DataPtr;
  DWORD DataSize;


  if ((TalkStatus != IdTalkKeyb) ||
      (ConvH==0)) return DDE_FNOTPROCESSED;


  if ((ClipFmt!=CF_TEXT) && (ClipFmt!=CF_OEMTEXT)) return DDE_FNOTPROCESSED;


  if (DdeCmpStringHandles(ItemHSz, Item) != 0) return DDE_FNOTPROCESSED;


  DataPtr = DdeAccessData(Data,&DataSize);
  if (DataPtr==NULL) return DDE_FNOTPROCESSED;
  CBStartPaste(NULL,FALSE,CBBufSize,DataPtr,DataSize);
  DdeUnaccessData(Data);
  if (TalkStatus==IdTalkCB)
    return (HDDEDATA)DDE_FACK;
  else
    return DDE_FNOTPROCESSED;
}


WORD HexStr2Word(PCHAR Str)
{
  int i;
  BYTE b;
  WORD w;


  for (i=0; i<=3; i++)
  {
    b = Str[i];
    if (b <= 0x39)
      w = (w << 4) + (b-0x30);
    else
      w = (w << 4) + (b-0x37);
  }
  return w;
}


#define CmdSetHWnd ' '
#define CmdSetFile '!'
#define CmdSetBinary '"'
#define CmdSetAppend '#'
#define CmdSetXmodemOpt '$'
#define CmdSetSync '%'


#define CmdBPlusRecv '&'
#define CmdBPlusSend '\''
#define CmdChangeDir '('
#define CmdClearScreen ')'
#define CmdCloseWin '*'
#define CmdConnect '+'
#define CmdDisconnect ','
#define CmdEnableKeyb '-'
#define CmdGetTitle '.'
#define CmdInit '/'
#define CmdKmtFinish '0'
#define CmdKmtGet '1'
#define CmdKmtRecv '2'
#define CmdKmtSend '3'
#define CmdLoadKeyMap '4'
#define CmdLogClose '5'
#define CmdLogOpen '6'
#define CmdLogPause '7'
#define CmdLogStart '8'
#define CmdLogWrite '9'
#define CmdQVRecv ':'
#define CmdQVSend ';'
#define CmdRestoreSetup '<'
#define CmdSendBreak '='
#define CmdSendFile '>'
#define CmdSendKCode '?'
#define CmdSetEcho '@'
#define CmdSetTitle 'A'
#define CmdShowTT 'B'
#define CmdXmodemSend 'C'
#define CmdXmodemRecv 'D'
#define CmdZmodemSend 'E'
#define CmdZmodemRecv 'F'


HDDEDATA AcceptExecute(HSZ TopicHSz, HDDEDATA Data)
{
  char Command[260];
  char Temp[MAXPATHLEN];
  int i;
  WORD w, c;


  if ((ConvH==0) ||
      (DdeCmpStringHandles(TopicHSz, Topic) != 0) ||
      (DdeGetData(Data,Command,sizeof(Command),0) == 0))
    return DDE_FNOTPROCESSED;


  switch (Command[0]) {
    case CmdSetHWnd:
      GetClientHWnd(&Command[1]);
      if (cv.Ready)
SetDdeComReady(1);
      break;
    case CmdSetFile:
      strcpy(ParamFileName,&(Command[1]));
      break;
    case CmdSetBinary:
      ParamBinaryFlag = Command[1] & 1;
      break;
    case CmdSetAppend:
      ParamAppendFlag = Command[1] & 1;
      break;
    case CmdSetXmodemOpt:
      ParamXmodemOpt = Command[1] & 3;
      if (ParamXmodemOpt==0) ParamXmodemOpt = 1;
      break;
    case CmdSetSync:
      if (sscanf(&(Command[1]),"%u",&SyncFreeSpace)!=1)
SyncFreeSpace = 0;
      SyncMode = (SyncFreeSpace>0);
      SyncRecv = TRUE;
      break;
    case CmdBPlusRecv:
      if ((FileVar==NULL) && NewFileVar(&FileVar))
      {
FileVar->NoMsg = TRUE;
DdeCmnd = TRUE;
BPStart(IdBPReceive);
      }
      else
return DDE_FNOTPROCESSED;
      break;
    case CmdBPlusSend:
      if ((FileVar==NULL) && NewFileVar(&FileVar))
      {
FileVar->DirLen = 0;
strcpy(FileVar->FullName,ParamFileName);
FileVar->NumFname = 1;
FileVar->NoMsg = TRUE;
DdeCmnd = TRUE;
BPStart(IdBPSend);
      }
      else
return DDE_FNOTPROCESSED;
      break;
    case CmdChangeDir:
      strcpy(ts.FileDir,ParamFileName);
      break;
    case CmdClearScreen:
      switch (ParamFileName[0]) {
        case '0':
          PostMessage(HVTWin,WM_USER_ACCELCOMMAND,IdCmdEditCLS,0);
  break;
        case '1':
          PostMessage(HVTWin,WM_USER_ACCELCOMMAND,IdCmdEditCLB,0);
  break;
        case '2':
          PostMessage(HTEKWin,WM_USER_ACCELCOMMAND,IdCmdEditCLS,0);
  break;
      }
      break;
    case CmdCloseWin:
      CloseTT = TRUE;
      break;
    case CmdConnect:
      if (cv.Open) {
if (cv.Ready)
  SetDdeComReady(1);
break;
      }
      strcpy(Temp,"a "); // dummy exe name
      strcat(Temp,ParamFileName);
      if (LoadTTSET())
(*ParseParam)(Temp, &ts, NULL);
      FreeTTSET();
      cv.NoMsg = 1; /* suppress error messages */
      PostMessage(HVTWin,WM_USER_COMMSTART,0,0);
      break;
    case CmdDisconnect:
      PostMessage(HVTWin,WM_USER_ACCELCOMMAND,IdCmdDisconnect,0);
      break;
    case CmdEnableKeyb:
      KeybEnabled = (ParamBinaryFlag!=0);
      break;
    case CmdGetTitle:
      // title is transfered later by XTYP_REQUEST
      strcpy(ParamFileName,ts.Title);
      break;
    case CmdInit: // initialization signal from TTMACRO
      if (StartupFlag) // in case of startup macro
      { // TTMACRO is waiting for connecting to the host
if ((ts.PortType==IdSerial) ||
    (ts.HostName[0]!=0))
{
  cv.NoMsg = 1;
  // start connecting
  PostMessage(HVTWin,WM_USER_COMMSTART,0,0);
}
else  // notify TTMACRO that I can not connect
  SetDdeComReady(0);
StartupFlag = FALSE;
      }
      break;
    case CmdKmtFinish:
    case CmdKmtRecv:
      if ((FileVar==NULL) && NewFileVar(&FileVar))
      {
FileVar->NoMsg = TRUE;
DdeCmnd = TRUE;
if (Command[0]==CmdKmtFinish)
  i = IdKmtFinish;
else
  i = IdKmtReceive;
KermitStart(i);
      }
      else
return DDE_FNOTPROCESSED;
      break;
    case CmdKmtGet:
    case CmdKmtSend:
      if ((FileVar==NULL) && NewFileVar(&FileVar))
      {
FileVar->DirLen = 0;
strcpy(FileVar->FullName,ParamFileName);
FileVar->NumFname = 1;
FileVar->NoMsg = TRUE;
DdeCmnd = TRUE;
if (Command[0]==CmdKmtGet)
  i = IdKmtGet;
else
  i = IdKmtSend;
KermitStart(i);
      }
      else
return DDE_FNOTPROCESSED;
      break;
    case CmdLoadKeyMap:
      strcpy(ts.KeyCnfFN,ParamFileName);
      PostMessage(HVTWin,WM_USER_ACCELCOMMAND,IdCmdLoadKeyMap,0);
      break;
    case CmdLogClose:
      if (LogVar != NULL) FileTransEnd(OpLog);
      break;
    case CmdLogOpen:
      if ((LogVar==NULL) && NewFileVar(&LogVar))
      {
LogVar->DirLen = 0;
LogVar->NoMsg = TRUE;
strcpy(LogVar->FullName,ParamFileName);
ts.TransBin = ParamBinaryFlag;
ts.Append = ParamAppendFlag;
LogStart();
      }
      else
return DDE_FNOTPROCESSED;
      break;
    case CmdLogPause:
      FLogChangeButton(TRUE);
      break;
    case CmdLogStart:
      FLogChangeButton(FALSE);
      break;
    case CmdLogWrite:
      if (LogVar != NULL)
      {
_lwrite(LogVar->FileHandle,
ParamFileName,strlen(ParamFileName));
LogVar->ByteCount =
  LogVar->ByteCount + strlen(ParamFileName);
FLogRefreshNum();
      }
      break;
    case CmdQVRecv:
      if ((FileVar==NULL) && NewFileVar(&FileVar))
      {
FileVar->NoMsg = TRUE;
DdeCmnd = TRUE;
QVStart(IdQVReceive);
      }
      else
return DDE_FNOTPROCESSED;
      break;
    case CmdQVSend:
      if ((FileVar==NULL) && NewFileVar(&FileVar))
      {
FileVar->DirLen = 0;
strcpy(FileVar->FullName,ParamFileName);
FileVar->NumFname = 1;
FileVar->NoMsg = TRUE;
DdeCmnd = TRUE;
QVStart(IdQVSend);
      }
      else
return DDE_FNOTPROCESSED;
      break;
    case CmdRestoreSetup:
      strcpy(ts.SetupFName,ParamFileName);
      PostMessage(HVTWin,WM_USER_ACCELCOMMAND,IdCmdRestoreSetup,0);
      break;
    case CmdSendBreak:
      PostMessage(HVTWin,WM_USER_ACCELCOMMAND,IdBreak,0);
      break;
    case CmdSendFile:
      if ((SendVar==NULL) && NewFileVar(&SendVar))
      {
SendVar->DirLen = 0;
strcpy(SendVar->FullName,ParamFileName);
ts.TransBin = ParamBinaryFlag;
SendVar->NoMsg = TRUE;
DdeCmnd = TRUE;
FileSendStart();
      }
      else
return DDE_FNOTPROCESSED;
      break;
    case CmdSendKCode:
      w = HexStr2Word(ParamFileName);
      c = HexStr2Word(&ParamFileName[4]);
      PostMessage(HVTWin,WM_USER_KEYCODE,w,(LPARAM)c);
      break;
    case CmdSetEcho:
      ts.LocalEcho = ParamBinaryFlag;
      if (cv.Ready && cv.TelFlag && (ts.TelEcho>0))
TelChangeEcho();
      break;
    case CmdSetTitle:
      strcpy(ts.Title,ParamFileName);
      ChangeTitle();
      break;
    case CmdShowTT:
      switch (ParamFileName[0]) {
        case '-': ShowWindow(HVTWin,SW_HIDE); break;
        case '0': ShowWindow(HVTWin,SW_MINIMIZE); break;
        case '1': ShowWindow(HVTWin,SW_RESTORE); break;
        case '2': ShowWindow(HTEKWin,SW_HIDE); break;
        case '3': ShowWindow(HTEKWin,SW_MINIMIZE); break;
        case '4':
  PostMessage(HVTWin,WM_USER_ACCELCOMMAND,IdCmdCtrlOpenTEK,0);
  break;
        case '5':
  PostMessage(HVTWin,WM_USER_ACCELCOMMAND,IdCmdCtrlCloseTEK,0);
  break;
      }
      break;
    case CmdXmodemRecv:
      if ((FileVar==NULL) && NewFileVar(&FileVar))
      {
FileVar->DirLen = 0;
strcpy(FileVar->FullName,ParamFileName);
ts.XmodemOpt = ParamXmodemOpt;
ts.XmodemBin = ParamBinaryFlag;
FileVar->NoMsg = TRUE;
DdeCmnd = TRUE;
XMODEMStart(IdXReceive);
      }
      else
return DDE_FNOTPROCESSED;
      break;
    case CmdXmodemSend:
      if ((FileVar==NULL) && NewFileVar(&FileVar))
      {
FileVar->DirLen = 0;
strcpy(FileVar->FullName,ParamFileName);
ts.XmodemOpt = ParamXmodemOpt;
FileVar->NoMsg = TRUE;
DdeCmnd = TRUE;
XMODEMStart(IdXSend);
      }
      else
return DDE_FNOTPROCESSED;
      break;
    case CmdZmodemRecv:
      if ((FileVar==NULL) && NewFileVar(&FileVar))
      {
FileVar->NoMsg = TRUE;
DdeCmnd = TRUE;
ZMODEMStart(IdZReceive);
      }
      else
return DDE_FNOTPROCESSED;
      break;
    case CmdZmodemSend:
      if ((FileVar==NULL) && NewFileVar(&FileVar))
      {
FileVar->DirLen = 0;
strcpy(FileVar->FullName,ParamFileName);
FileVar->NumFname = 1;
ts.XmodemBin = ParamBinaryFlag;
FileVar->NoMsg = TRUE;
DdeCmnd = TRUE;
ZMODEMStart(IdZSend);
      }
      else
return DDE_FNOTPROCESSED;
      break;
    default:
      return DDE_FNOTPROCESSED;
  }
  return (HDDEDATA)DDE_FACK;
}


HDDEDATA CALLBACK DdeCallbackProc(UINT CallType, UINT Fmt, HCONV Conv,
  HSZ HSz1, HSZ HSz2, HDDEDATA Data, DWORD Data1, DWORD Data2)
{
  HDDEDATA Result;


  if (Inst==0) return 0;
  Result = 0;


  switch (CallType) {
    case XTYP_WILDCONNECT:
      Result = WildConnect(HSz2, HSz1, Fmt);
      break;
    case XTYP_CONNECT:
      if (Conv == 0)
      {
if ((DdeCmpStringHandles(Topic, HSz1) == 0) &&
    (DdeCmpStringHandles(Service, HSz2) == 0))
{
  if (cv.Ready)
    SetDdeComReady(1);
  Result = (HDDEDATA)TRUE;
}
      }
      break;
    case XTYP_CONNECT_CONFIRM:
      ConvH = Conv;
      break;
    case XTYP_ADVREQ:
    case XTYP_REQUEST:
      Result = AcceptRequest(HSz2);
      break;
    case XTYP_POKE:
      Result = AcceptPoke(HSz2, Fmt, Data);
    case XTYP_ADVSTART:
      if ((ConvH!=0) &&
  (DdeCmpStringHandles(Topic, HSz1) == 0) &&
  (DdeCmpStringHandles(Item, HSz2) == 0) &&
  ! AdvFlag)
      {
AdvFlag = TRUE;
Result = (HDDEDATA)TRUE;
      }
      break;
    case XTYP_ADVSTOP:
      if ((ConvH!=0) &&
  (DdeCmpStringHandles(Topic, HSz1) == 0) &&
  (DdeCmpStringHandles(Item, HSz2) == 0) &&
  AdvFlag)
      {
AdvFlag = FALSE;
Result = (HDDEDATA)TRUE;
      }
      break;
    case XTYP_DISCONNECT:
      ConvH = 0;
      PostMessage(HVTWin,WM_USER_DDEEND,0,0);
      break;
    case XTYP_EXECUTE:
      Result = AcceptExecute(HSz1, Data);
  }  /* switch (CallType) */


  return Result;
}


BOOL InitDDE()
{
  BOOL Ok;


  if (ConvH != 0) return FALSE;


  Ok = TRUE;


#ifdef TERATERM32
  if (DdeInitialize(&Inst,(PFNCALLBACK)DdeCallbackProc,0,0) == DMLERR_NO_ERROR)
#else
  DdeCallbackPtr = (PFNCALLBACK)MakeProcInstance((FARPROC)DdeCallbackProc,
    (HINSTANCE)GetWindowWord(HVTWin,GWW_HINSTANCE));
  if ((DdeCallbackPtr!=NULL) &&
      (DdeInitialize(&Inst,DdeCallbackPtr,0,0) == DMLERR_NO_ERROR))
#endif
  {
    Service= DdeCreateStringHandle(Inst, ServiceName, CP_WINANSI);
    Topic  = DdeCreateStringHandle(Inst, TopicName, CP_WINANSI);
    Item   = DdeCreateStringHandle(Inst, ItemName, CP_WINANSI);
    Item2  = DdeCreateStringHandle(Inst, ItemName2, CP_WINANSI);


    Ok = DdeNameService(Inst, Service, 0, DNS_REGISTER) != 0;
  }
  else
    Ok = FALSE;


  SyncMode = FALSE;  
  CloseTT = FALSE;
  StartupFlag = FALSE;
  DDELog = FALSE;


  if (Ok)
  {
    Ok = CreateLogBuf();
    if (Ok) DDELog = TRUE;
  }


  if (! Ok) EndDDE();
  return Ok;
}


void SendDDEReady()
{
  GetClientHWnd(TopicName);
  PostMessage(HWndDdeCli,WM_USER_DDEREADY,0,0);
}


void EndDDE()
{
  DWORD Temp;


  if (ConvH != 0)
    DdeDisconnect(ConvH);
  ConvH = 0;  
  SyncMode = FALSE;
  StartupFlag = FALSE;


  Temp = Inst;
  if (Inst != 0)
  {
    Inst = 0;
    DdeNameService(Temp, Service, 0, DNS_UNREGISTER);
    if (Service != 0)
      DdeFreeStringHandle(Temp, Service);
    Service = 0;
    if (Topic != 0)
      DdeFreeStringHandle(Temp, Topic);
    Topic = 0;
    if (Item != 0)
      DdeFreeStringHandle(Temp, Item);
    Item = 0;
    if (Item2 != 0)
      DdeFreeStringHandle(Temp, Item2);
    Item2 = 0;


    DdeUninitialize(Temp);
#ifndef TERATERM32
    if (DdeCallbackPtr != NULL)
      FreeProcInstance((FARPROC)DdeCallbackPtr);
    DdeCallbackPtr = NULL;
#endif
  }
  TopicName[0] = 0;
  
  if (HWndDdeCli!=NULL)
    PostMessage(HWndDdeCli,WM_USER_DDECMNDEND,0,0);
  HWndDdeCli = NULL;
  AdvFlag = FALSE;


  DDELog = FALSE;
  FreeLogBuf();
  cv.NoMsg = 0;
}


void DDEAdv()
{
  if ((ConvH==0) ||
      (! AdvFlag) ||
      (cv.DCount==0))
    return;


  if ((! SyncMode) ||
      SyncMode && SyncRecv)
  {
    if (SyncFreeSpace<10)
      SyncFreeSpace=0;
    else
      SyncFreeSpace=SyncFreeSpace-10;
    DdePostAdvise(Inst,Topic,Item);
    SyncRecv = FALSE;
  }
}


void EndDdeCmnd(int Result)
{
  if ((ConvH==0) || (HWndDdeCli==NULL) || (! DdeCmnd)) return;
  PostMessage(HWndDdeCli,WM_USER_DDECMNDEND,(WPARAM)Result,0);
  DdeCmnd = FALSE;
}


void SetDdeComReady(WORD Ready)
{
  if (HWndDdeCli==NULL) return;
  PostMessage(HWndDdeCli,WM_USER_DDECOMREADY,Ready,0);
}


void RunMacro(PCHAR FName, BOOL Startup)
//  FName: macro filename
//  Startup: TRUE in case of startup macro execution.
//   In this case, the connection to the host will
//   made after the link to TT(P)MACRO is established.
{
  int i;
  char Cmnd[MAXPATHLEN+40];


  SetTopic();
  if (! InitDDE()) return;
#ifdef TERATERM32
  strcpy(Cmnd,"TTPMACRO /D=");
#else
  strcpy(Cmnd,"TTMACRO /D=");
#endif
  strcat(Cmnd,TopicName);
  if (FName!=NULL)
  {
    strcat(Cmnd," ");
    i = strlen(Cmnd);
    strcat(Cmnd,FName);
#ifdef TERATERM32
    QuoteFName(&Cmnd[i]);
#endif
  }


  StartupFlag = Startup;
  if (Startup)
    strcat(Cmnd," /S"); // "startup" flag


  if (WinExec(Cmnd,SW_MINIMIZE) < 32)
    EndDDE();

}

/* Tera Term
 Copyright(C) 1994-1998 T. Teranishi
 All rights reserved. */


/* TERATERM.EXE, DDE routines */
#include <ddeml.h>


#ifdef __cplusplus
extern "C" {
#endif


void SetTopic();
BOOL InitDDE();
void SendDDEReady();
void EndDDE();
void DDEAdv();
void EndDdeCmnd(int Result);
void SetDdeComReady(WORD Ready);
void RunMacro(PCHAR FName, BOOL Startup);


extern char TopicName[21];
extern HCONV ConvH;
extern BOOL AdvFlag;
extern BOOL CloseTT;


#ifdef __cplusplus
}
#endif

DDE多线程阻塞和卡顿的问题我还没解决，卡顿30秒