wchar_t * CreateFullName(wchar_t * path, wchar_t * name)
{
  int len = wstrlen(path)+wstrlen(name)+1;
  wchar_t * fullname = new wchar_t[len+1];
  wstrcpy(fullname, path);
  wstrcat(fullname, L"/");
  wstrcat(fullname, name);
  return fullname;
}

wchar_t * GetRelativePath(wchar_t * dir)
{
  wchar_t * res = 0;
  wchar_t * dir_user = GetDir(DIR_USER|MEM_INTERNAL);
  int len = wstrlen(dir_user);
  if (!wstrcmpni(dir_user, dir, len))
  {
    dir += len;
    res = new wchar_t[wstrlen(dir)+1];
    return wstrcpy(res, dir);
  }
  dir_user = GetDir(DIR_USER|MEM_EXTERNAL);
  len = wstrlen(dir_user);
  if (!wstrcmpni(dir_user, dir, len))
  {
    dir += len;
    res = new wchar_t[wstrlen(dir)+1];
    return wstrcpy(res, dir);
  }
  res = new wchar_t[wstrlen(dir)+1];
  return wstrcpy(res, dir);
}

int Str2Int(char* str)
{
    int len = strlen(str);
    wchar_t* wstr = new wchar_t[len + 1];
    str2wstr(wstr, str);
    int Ret;
    wtoi(wstr, len, &Ret);
    delete(wstr);
    return Ret;
}

int ItemFilter(void *Item)
{
    return(Item != NULL);
};

void FreeList(LIST* &List, void (* FreeProc)(void *Item))
{
    if (List)
    {
        List_DestroyElements(List, ItemFilter, FreeProc);
        List_Destroy(List);
        List = NULL;
    }
};

void ItemFree(void *Item)
{
    ITEM *it = (ITEM *)Item;
    if (it->Str1)
        mfree(it->Str1);
    // ну тут понятно, освобождение всего и вся =)
};

void OnCloseBook(BOOK *Book)
{
   ...
   FreeList(myList, ItemFree);
   ...
};