void __fastcall TForm1::DriveComboBox1Change(TObject *Sender)
{
DWORD VolSN,MaxCompLen,FSFlags, FC,SPC,BPS,NC;
char VolName[255],FSName[100];
AnsiString s=UpperCase(DriveComboBox1->Drive)+":\\";
Label1->Caption=s;
if (GetVolumeInformation(s.c_str(),VolName,255,&VolSN,&MaxCompLen, &FSFlags,FSName,100))
{
Label2->Caption="Имя тома: "+AnsiString(VolName);
Label3->Caption="Файловая система: "+AnsiString(FSName);
if (GetDiskFreeSpace(s.c_str(), &SPC,&FC,&BPS,&NC))
{
Label4->Caption="Свободных байт: "+IntToStr(SPC*FC*BPS);
}
else
{
Label4->Caption="";
}
}
else
{
Label2->Caption="Диск не готов";
Label3->Caption="";
Label4->Caption="";
}
}