扫描全部磁盘号和卷标

void Volume()
{
    ListBox1->Clear();
    DWORD Drives = ::GetLogicalDrives();
    for(int x = 0; x <= 26; ++x) {
        if(Drives & (1 << x)) {
            String dr(char('A' + x));
            dr += "://";

            String Volume;
            Volume.SetLength(256);
            if(GetVolumeInformation(dr.c_str(),Volume.c_str(),Volume.Length(),0,0,0,0,0)) {
                dr += " " + Volume;
            }
            ListBox1->Items->Add(dr);
        }
    }
}