Вот держи :
Код | void __fastcall TForm1::DriveComboBox1Change(TObject *Sender) { AnsiString Drive = AnsiString(DriveComboBox1->Drive) + ":\\"; DWORD VolumeSerialNumber = 0; DWORD MaximumComponentLength = 0; DWORD FileSystemFlags = 0; char * volumeinfo = new char[255]; volumeinfo[0] = 0; char* FileSystemNameBuffer = new char[255]; FileSystemNameBuffer[0] = 0; GetVolumeInformation (Drive.c_str (), volumeinfo, 255, &VolumeSerialNumber, &MaximumComponentLength, &FileSystemFlags, FileSystemNameBuffer,255); if (strlen(volumeinfo) != 0) Edit1->Text = volumeinfo ; else Edit1->Text = "- no label -"; }
| |