🚀 go-pugleaf

"Martin C" <martincplus@hotmail.com> wrote in message
news:40a81e16@newsgroups.borland.com...

> What I am exactly looking for is to display Drive Names
> as they are displayed in Windows Explorer

You need to use the IShellFolder() interface for that.  Look at the
SHGetDesktopFolder() function and the ParseDisplayName() and
GetDisplayNameOf() methods of IShellFolder.  For example:

    #include <utilcls.h>

    AnsiString __fastcall GetDisplayName(const AnsiString &Path)
    {
        TComInterface<IShellFolder> Desktop;
        ::SHGetDesktopFolder(&Desktop);
        if( Desktop )
        {
            ULONG Unused;
            LPITEMIDLIST pidl = NULL;
            if( SUCCEEDED(Desktop->ParseDisplayName(NULL, NULL,
WideString(Path), &Unused, &pidl, NULL)) )
            {
                STRRET strRet = {0};
                TCHAR buffer[256] = {0};
                if( SUCCEEDED(Desktop->GetDisplayNameOf(pidl, SHGDN_NORMAL,
&strRet)) )
                    ::StrRetToBuf(&strRet, pidl, buffer, 255);
                ::CoTaskMemFree(pidl);
                return buffer;
            }
        }
        return "";
    }

    ListItem->SubItems->Add(GetDisplayName(drive));

Alternatively, look at the SHGetFileInfo() function with the
SHGFI_DISPLAYNAME flag, ie:

    AnsiString __fastcall GetDisplayName(const AnsiString &Path)
    {
        SHFILEINFO shfi = {0};
        ::SHGetFileInfo(Path.c_str(), 0, &shfi, sizeof(shfi),
SHGFI_DISPLAYNAME);
        return shfi.szDisplayName;
    }

Either way, you can then add the display name to your ListView when needed,
ie:

    ListItem->SubItems->Add(GetDisplayName(drive));


Gambit