Forum.iFiction.Ru

//переменные для текстового движка
HINSTANCE EngineDll;
typedef char*(*EngineFn)(char*);
EngineFn RunFile=0;
EngineFn RunText=0;
EngineFn Command=0;
EngineFn NormText=0;

  //загружаем движок
  EngineDll=GetModuleHandle("tom.dll");
  if(!EngineDll) EngineDll=LoadLibrary("tom.dll");
  if(!EngineDll)
  { PutStr("<font color=red>Не удалось загрузить tom.dll!\n<pause>");
    return 0;
  }
  //получаем функции
  RunFile=(EngineFn)GetProcAddress(EngineDll,"@RunFile$qpc");
  RunText=(EngineFn)GetProcAddress(EngineDll,"@RunText$qpc");
  Command=(EngineFn)GetProcAddress(EngineDll,"@Command$qpc");
  NormText=(EngineFn)GetProcAddress(EngineDll,"@NormText$qpc");

  if(!RunFile||!RunText||!Command||!NormText)
  { PutStr("<font color=red>Не найдены функции tom.dll!\n<pause>");
    return 0;
  }

char*Str=Command(input);

  //освобождаем движок
  FreeLibrary(EngineDll);