Информация о дисках

Code:

procedure TForm1.Button1Click(Sender: TObject);

const

Flags: array [0..5] of cardinal = (

   FS_CASE_IS_PRESERVED,

   FS_CASE_SENSITIVE,

   FS_UNICODE_STORED_ON_DISK,

   FS_PERSISTENT_ACLS,

   FS_FILE_COMPRESSION,

   FS_VOL_IS_COMPRESSED);

var

c: char;

s: string;

li: TListItem;

DriveType: integer;

bufLabel, bufFileSystem: array [0..1027] of char;

SerialNumber, MaxFileNameLength, FileSystemFlags: cardinal;

i: integer;

freeavalilable, totalspace, totalfree: int64;

procedure AddSpace(value: int64);

const onfiltered= 1024; onfiltered= 1024 * OneKB; onfiltered= 1024 * OneMB;

var

   b, kb, mb, gb: integer;

   v: int64;

   s: string;

begin

   gb := value div OneGb;

   v := value mod OneGb;

   mb := v div OneMb;

   v := v mod OneMb;

   kb := v div OneKb;

   b := v mod OneKb;

   if gb > 0

     then s := IntToStr(gb) + ' gb'

     else s := '';

   if mb > 0 then s := s + ' ' + IntToStr(mb) + ' mb';

   if kb > 0 then s := s + ' ' + IntToStr(kb) + ' kb';

   if b > 0 then s := s + ' ' + IntToStr(b) + ' b';

   if s = '' then s := '0';

   li.SubItems.Add(s);

end;

begin

ListView1.Items.BeginUpdate;

ListView1.Items.Clear;

for c := 'A' to 'Z' do begin

   s := c + ':';

   DriveType := GetDriveType(PChar(s));

   if DriveType = 1 then continue;

   li := ListView1.Items.Add;

   li.Caption := s;

   case DriveType of

     0: li.SubItems.Add('unknown');

     DRIVE_REMOVABLE: li.SubItems.Add('removable');

     DRIVE_FIXED: li.SubItems.Add('fixed');

     DRIVE_REMOTE: li.SubItems.Add('remote');

     DRIVE_CDROM: li.SubItems.Add('cdrom');

     DRIVE_RAMDISK: li.SubItems.Add('ramdisk');

   end;

   if not GetVolumeInformation(PChar(s), bufLabel, sizeof(bufLabel),

     addr(SerialNumber), MaxFileNameLength, FileSystemFlags,

     bufFileSystem, sizeof(bufFileSystem)) then continue;

   li.SubItems.Add(bufLabel);

   li.SubItems.Add(bufFileSystem);

   li.SubItems.Add(IntToStr(SerialNumber));

   li.SubItems.Add(IntToStr(MaxFileNameLength));

   for i := low(flags) to high(flags) do

     if (FileSystemFlags and flags[i]) <> 0

       then li.SubItems.Add('yes')

       else li.SubItems.Add('no');

   GetDiskFreeSpaceEx(PChar(s), freeavalilable, totalspace, @totalfree);

   AddSpace(freeavalilable);

   AddSpace(totalspace);

   AddSpace(totalfree);

end;

ListView1.Items.EndUpdate;

end;

procedure TForm1.FormCreate(Sender: TObject);

const

FlagStrs: array [0..5] of string = (

   'Case preserved',

   'Case sensitive',

   'Unicode',

   'Preserve ACLs',

   'File Compression',

   'Volume Compression');

procedure AddColumn(caption: string);

var

   lc: TListColumn;

begin

   lc := ListView1.Columns.Add;

   lc.Caption := caption;

   lc.Width := ColumnHeaderWidth;

end;

var

i: integer;

begin

ListView1.ViewStyle := vsReport;

AddColumn('root');

AddColumn('type');

AddColumn('label');

AddColumn('file system');

AddColumn('Serial Number');

AddColumn('MaxFileNameLen');

for i := low(FlagStrs) to high(FlagStrs) do

   AddColumn(FlagStrs[i]);

AddColumn('FreeAvalilable');

AddColumn('TotalSpace');

AddColumn('TotalFree');

Button1.Click;

end;