//---------------------------------------------------------------------------
bool res2stream( const std::string &name_func, TMemoryStream *stream, char *name_res )
{
    try
    {
      HRSRC hrsrc = FindResource(HInstance, name_res, RT_RCDATA);
      if( hrsrc == NULL )
      {
        return false;
      }
      HGLOBAL hglob = LoadResource(HInstance, hrsrc);
      int res_size = SizeofResource(HInstance, hrsrc);
      stream->WriteBuffer(hrsrc, res_size);
      stream->Seek( 0 ,soFromBeginning);
      UnlockResource(hglob);
      FreeResource(hglob);
      return true;
    }catch(...){}    {
    return false;
}