Подскажите, пожалуйста, как правильнее оформить код, а то происходят жуткие тормоза в вызове этой функции.
try {
int NumberDrive;
char DiskLabel_[MAX_PATH];
char *DiskName;
String Find_FixedPatch;
DWORD Drive = GetLogicalDrives();
Glav_Form->icoDrImageList->Clear();
for (int i = 25; i > -1; i--) {
Application->ProcessMessages();
NumberDrive = ((Drive >> i) & 0x00000001);
if (NumberDrive == 1) {
String DiskLetter = String((char)(65 + i));
String DiskPatch = String((char)(65 + i)) + ":\\";
String DiskInform;
String DiskRazmer = OpisanieDisks(DiskPatch);
DiskName = (DiskLetter + ":\\").t_str();
вот здесь: GetVolumeInformation(DiskName, DiskLabel_, MAX_PATH, NULL, NULL, NULL, NULL, 0);
UINT iconDr;
iconDr = GetDriveType(DiskName);
switch(iconDr) {
case 0 : DiskInform = " диск неопределен/не существует"; break;
case 1 : DiskInform = " неверный путь/ путь не указывает на том"; break;
case 2 : DiskInform = " съемный"; break;
case 3 : DiskInform = " фиксированный диск"; break;
case 4 : DiskInform = " удаленный (сетевой) диск"; break;
case 5 : DiskInform = " CD-ROM/DVD-ROM"; break;
case 6 : DiskInform = " виртуальный диск, созданный в оперативной памяти"; break;
}
if (DiskRazmer != "")
Glav_Form->CreateDrButton(DiskLetter, (DiskInform + " [" + DiskRazmer + "] " + DiskLabel_));
else Glav_Form->CreateDrButton(DiskLetter, (DiskInform + " [не доступен]"));
DiskLabel_[MAX_PATH] = 0;
if (iconDr) {
int flags;
flags = SHGFI_ICON | SHGFI_SMALLICON | SHGFI_SYSICONINDEX;
TIcon *Icon = new TIcon();
SHFILEINFO SmallImageInfo;
DWORD SmallImageHandle = SHGetFileInfo(DiskPatch.t_str(),
0,
&SmallImageInfo,
sizeof(SmallImageInfo),
flags);
if (SmallImageHandle != 0) {
Icon->Handle = SmallImageInfo.hIcon;
Glav_Form->icoDrImageList->AddIcon(Icon);
if (Icon) delete Icon;
}
}
if (fix) {
Find_FixedPatch = ExtractFileDrive(Application->ExeName);
Find_FixedPatch += "\\";
}
}
}
if (fix) {
Glav_Form->LCatalogEdit->Text = Find_FixedPatch;
Glav_Form->LStatusPanel1->Caption = OpisanieDisks(Find_FixedPatch + "\\");
Glav_Form->RCatalogEdit->Text = Find_FixedPatch;
Glav_Form->RStatusPanel1->Caption = OpisanieDisks(Find_FixedPatch + "\\");
}
return true;
}
catch(...) {
return false;
}