Не получается найти ошибку в коде нужно определить размеры дисков C++ Borland

[kolyok333]

Программа компилируется, но когда запускается выскакивает с ошибкой

Помогите пожалуйста!

void __fastcall TForm1::Button4Click(TObject *Sender)
{
  char szBuffer[1024];
  ::GetLogicalDriveStrings(1024, szBuffer);
   char *pch = szBuffer;
    DWORD FreeBytesAvailable;
    DWORD TotalNumberOfBytes;
    DWORD TotalNumberOfFreeBytes;
   while (*pch)
         {
             Form1->Label4->Caption=Form1->Label4->Caption+"\n"+pch;

    BOOL GetDiskFreeSpaceFlag = ::GetDiskFreeSpaceEx(
         pch,
	(PULARGE_INTEGER)&FreeBytesAvailable,
	(PULARGE_INTEGER)&TotalNumberOfBytes,
	(PULARGE_INTEGER)&TotalNumberOfFreeBytes
	);
           if(GetDiskFreeSpaceFlag != 0)
            {Form1->Label4->Caption=Form1->Label4->Caption+"\n Доступно для использования "+(unsigned long)FreeBytesAvailable/1048576+" Mb";
	    Form1->Label4->Caption=Form1->Label4->Caption+"\n Максимальный объем         "+(unsigned long)TotalNumberOfBytes/1048576+" Mb";
            Form1->Label4->Caption=Form1->Label4->Caption+"\n Свободно на диске          "+(unsigned long)TotalNumberOfFreeBytes/1048576+" Mb";
            }
            else
             Form1->Label4->Caption=Form1->Label4->Caption+ " Диск отсутствует" + "\n";
      pch = &pch[strlen(pch) + 1];
      }
    
}

[Alex11223]

А с какой ошибкой-то?

Ну или дебаггер в руки и вперед, смотреть где вылетает.

[kolyok333]

Сообщение от Alex11223

А с какой ошибкой-то?

Ну или дебаггер в руки и вперед, смотреть где вылетает.

Ошибка сначала
Exception Processing Message С000013 Parameters 75b3bf7c 4 75b3bfc 75b3bf7c
Нажимаем на продолжить вылетает следующее
Access violation at adderess 32657EB0 in module 'CC3260MT.DLL. Read of address 0000000

Потом вроде запускается но во первых не показывает все диски а только A и С а во вторых показывает только свободное место, а остальные значения по нулям.

[Smitt&Wesson]

Зачем Вы это всё в API делаете? Через VCL, всё гораздо проще.

Определение размера диска (VCL вариант)

// Для определения размера диска используйте функцию DiskSize, объявленную в Sysutils.hpp. В параметрах функции диску А соответствует 1, диску В - 2, и т. д., 0 - текущий диск. Следующий код определит размер диска С в байтах.
__int64 Size = DiskSize(3);

Определение свободного пространства на диске (VCL вариант)

// Для определения свободного пространства на диске используйте функцию DiskFree, объявленную в Sysutils.hpp. В параметрах функции диску А соответствует 1, диску В - 2, и т. д., 0 - текущий диск. Следующий код определит размер свободного пространства на диске С в байтах.
__int64 FreeSpace = DiskFree(3);

Список всех доступных дисков можно получить функцией GetLogicalDriveStrings объявленной в файле Winbase.h.

[kolyok333]

Сообщение от Smitt&Wesson

Зачем Вы это всё в API делаете? Через VCL, всё гораздо проще.

Определение размера диска (VCL вариант)

// Для определения размера диска используйте функцию DiskSize, объявленную в Sysutils.hpp. В параметрах функции диску А соответствует 1, диску В - 2, и т. д., 0 - текущий диск. Следующий код определит размер диска С в байтах.
__int64 Size = DiskSize(3);

Определение свободного пространства на диске (VCL вариант)

// Для определения свободного пространства на диске используйте функцию DiskFree, объявленную в Sysutils.hpp. В параметрах функции диску А соответствует 1, диску В - 2, и т. д., 0 - текущий диск. Следующий код определит размер свободного пространства на диске С в байтах.
__int64 FreeSpace = DiskFree(3);

Список всех доступных дисков можно получить функцией GetLogicalDriveStrings объявленной в файле Winbase.h.

Спасибо за совет, но у меня задание такое в лабе. Вроде работать заставил, правда ошибку по прежнему выдает, но когда нажимаешь продолжить, показывает всю нужную информацию. Вот кусок кода может кому пригодиться

void __fastcall TForm1::Button4Click(TObject *Sender)
{ Form1->Label5->Caption="";
  Form1->Label4->Caption="";
  Form1->Label3->Caption="";
  Form1->Label2->Caption="";
  Form1->Label1->Caption="";
 char szBuffer[1024];
  ::GetLogicalDriveStrings(1024, szBuffer);
   char *pch = szBuffer;
    ULARGE_INTEGER FreeBytesAvailable;
ULARGE_INTEGER TotalNumberOfBytes;
ULARGE_INTEGER TotalNumberOfFreeBytes;

   while (*pch)
         {
             Form1->Label4->Caption=Form1->Label4->Caption+"\n"+pch;

    BOOL GetDiskFreeSpaceFlag = ::GetDiskFreeSpaceEx (pch, &FreeBytesAvailable, &TotalNumberOfBytes, &TotalNumberOfFreeBytes);
           if(GetDiskFreeSpaceFlag != 0)
            {Form1->Label4->Caption=Form1->Label4->Caption+"\nСвободного места на диске "+unsigned (TotalNumberOfFreeBytes.QuadPart / 1024 / 1024)+" Mb\n";
            Form1->Label4->Caption=Form1->Label4->Caption+"Занятого места на диске "+(unsigned (TotalNumberOfBytes.QuadPart / 1024 / 1024)-unsigned (TotalNumberOfFreeBytes.QuadPart / 1024 / 1024))+" Mb\n";
            Form1->Label4->Caption=Form1->Label4->Caption+"Общий объем диска "+unsigned (TotalNumberOfBytes.QuadPart / 1024 / 1024)+" Mb\n";

            }
            else
             Form1->Label4->Caption=Form1->Label4->Caption+ "\n"+" Диск отсутствует" + "\n";
      pch = &pch[strlen(pch) + 1];
      }

}