unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Label1: TLabel;
 private
   { Private declarations }
 public
   { Public declarations }
   procedure MSG(var M: TMessage); message WM_DEVICECHANGE;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MSG(var M: TMessage);
begin
 GetVolumeInformation(lpRootPathName, lpVolumeNameBuffer, nVolumeNameSize, lpVolumeSerialNumber,
                      lpMaximumComponentLength, lpFileSystemFlags, lpFileSystemNameBuffer, nFileSystemNameSize)
end;

end.

//Функция вывода текстового вида флага в заданной величине
Function HasFlag(Value,Flag:DWord):string;
begin
 if (Value and Flag)=Flag then
   Result:='Да'
 else
   Result:='Нет';
end;

//Функция расширения строки ведущими пробелами для выравнивания
Function AddSpaces(s:string; targlen:word):string;
var i:word;
begin
 for i:=length(s) to targlen do
   s:=' '+s;
 Result:=s;
end;

//Полная информация об одном разделе
Function GetDiskInfo(Disk:Char; Align:boolean):string;
var
 VolumeName,FSName:array [0..MAX_PATH-1] of Char;
 VolumeSerialNo,MaxComponentLength,FSFlags:LongWord;
 SOut:string;
 TSize,TFree,TAvail:double;
 SectorsPerClst,BytesPerSctr,FreeClstrs,TotalClstrs:dword;
 al1,al2,Align1,Align2,Align3,Align4:word;
begin
//Параметры, используемые для выравнивания
 if Align then
   begin
     Align1:=17; Align2:=37; Align3:=20; Align4:=14;
   end
 else
   begin
     Align1:=0;  Align2:=0;  Align3:=0;  Align4:=0;
   end;
 SOut:='Диск: '+Disk+#13+#10+DriveError;
 if GetVolumeInformation(PChar(Disk+':\'),
                         VolumeName,MAX_PATH,
                         @VolumeSerialNo, MaxComponentLength,
                         FSFlags,FSName,MAX_PATH)
 then
   begin
//Получение информации о свободном и занятом пространстве на диске
     GetDiskSizeAvail(PChar(Disk+':\'),TSize,TFree,TAvail);
     GetDiskFreeSpace(PChar(Disk+':\'),SectorsPerClst,BytesPerSctr,
                      FreeClstrs,TotalClstrs);
//Параметры выравнивания чисел
     if Align then
       begin
         al1:=length(floattostrF(TotalClstrs,ffNumber,12,0))-1;
         al2:=length(floattostrF(TSize,ffNumber,12,0))-1;
       end
     else
       begin
         al1:=0;
         al2:=0;
       end;
//Информация о разделе
     SOut:=
     'Диск: '+Disk+#13#10+
     AddSpaces('Метка: ',Align1)+VolumeName+#13#10+
     AddSpaces('Файловая система: ',Align1)+FSName+#13+#10+
     AddSpaces('Серийный номер: ',Align1)+IntToHex(VolumeSerialNo,8)+#13+#10+
     #13#10+
     'Макс. длина имени файла: '+IntToStr(MaxComponentLength)+#13+#10+
     #13#10+
//Информация о флагах файловой системы
     'Флаги файловой системы: '+IntToHex(FSFlags,4)+#13#10+
     AddSpaces('Сохранение регистра в именах файлов: ',Align2)+
       HasFlag(FSFlags,FS_CASE_IS_PRESERVED)+#13#10+
     AddSpaces('Имена файлов чувстительны к регистру: ',Align2)+
       HasFlag(FSFlags,FS_CASE_SENSITIVE)+#13#10+
     AddSpaces('Поддержка Unicode в именах файлов: ',Align2)+
       HasFlag(FSFlags,FS_UNICODE_STORED_ON_DISK)+#13#10+
     AddSpaces('Поддержка списка контроля доступа: ',Align2)+
       HasFlag(FSFlags,FS_PERSISTENT_ACLS)+#13#10+
     AddSpaces('Поддержка сжатия файлов: ',Align2)+
       HasFlag(FSFlags,FS_FILE_COMPRESSION)+#13#10+
     AddSpaces('Указаный том является сжатым: ',Align2)+
       HasFlag(FSFlags,FS_VOL_IS_COMPRESSED)+#13#10+
     #13#10+
//Информация о пространстве раздела
     AddSpaces('Байт в секторе: ',Align3)+floattostrF(BytesPerSctr,ffNumber,12,0)+#13#10+
     AddSpaces('Секторов в кластере: ',Align3)+floattostrF(SectorsPerClst,ffNumber,12,0)+#13#10+
     AddSpaces('Байт в кластере: ',Align3)+floattostrF(BytesPerSctr*SectorsPerClst,ffNumber,12,0)+#13#10+
     AddSpaces('Всего кластеров: ',Align3)+AddSpaces(floattostrF(TotalClstrs,ffNumber,12,0),al1)+#13#10+
     AddSpaces('Свободно кластеров: ',Align3)+AddSpaces(floattostrF(FreeClstrs,ffNumber,12,0),al1)+#13#10+
     #13#10+
     AddSpaces('Емкость байт: ',Align4)+AddSpaces(floattostrF(TSize,ffNumber,12,0),al2)+#13#10+
     AddSpaces('Свободно байт: ',Align4)+AddSpaces(floattostrF(TFree,ffNumber,12,0),al2)+#13#10+
     AddSpaces('Доступно байт: ',Align4)+AddSpaces(floattostrF(TAvail,ffNumber,12,0),al2);
   end;
 Result:=SOut;
end;

//Определение свободного и занятого пространства на диске
Procedure GetDiskSizeAvail(TheDrive:PChar;
                          var TotalBytes, TotalFree,
                          AvailToCaller:double);
var
 AvailToCall,TheSize,FreeAvail:int64;
begin
 GetDiskFreeSpaceEx(TheDrive,
                    AvailToCall,
                    TheSize,
                    @FreeAvail);
 AvailToCaller:=FreeAvail;
{$IFOPT Q+}
{$DEFINE TURNOVERFLOWON}
{$Q-}
{$ENDIF}
 if TheSize >= 0 then
   TotalBytes := TheSize
 else
   if TheSize = -1 then
     begin
       TotalBytes := $7FFFFFFF;
       TotalBytes := TotalBytes * 2;
       TotalBytes := TotalBytes + 1;
     end
   else
     begin
       TotalBytes := $7FFFFFFF;
       TotalBytes := TotalBytes + abs($7FFFFFFF - TheSize);
     end;
 if AvailToCall>=0 then
   TotalFree:=AvailToCall
 else
   if AvailToCall=-1 then
     begin
       TotalFree := $7FFFFFFF;
       TotalFree := TotalFree * 2;
       TotalFree := TotalFree + 1;
     end
   else
     begin
       TotalFree := $7FFFFFFF;
       TotalFree := TotalFree + abs($7FFFFFFF - AvailToCall);
     end;
end;

AvailToCaller

FreeClstrs

BytesPerSctr*SectorsPerClst