unit Unit1;
{©Drkb v.3(2007): www.drkb.ru}
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
type
 TForm1 = class(TForm)
  Memo1: TMemo;
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const
 NameSize = 4;
 VolumeCount = 26;
 TotalSize = NameSize * VolumeCount;
 Report = 'Volume: %s %s';
var
 Buff, Volume: String;
 lpQuery: array [0..MAXCHAR - 1] of Char;
 I, Count: Integer;
begin
 SetLength(Buff, TotalSize);
 Count := GetLogicalDriveStrings(TotalSize, @Buff[1]) div NameSize;
 if Count = 0 then
  Memo1.Lines.Add(SysErrorMessage(GetLastError))
 else
  for I := 0 to Count - 1 do
  begin
  Volume := PChar(@Buff[(I * NameSize) + 1]);
  case GetDriveType(PChar(Volume)) of
  DRIVE_UNKNOWN: Memo1.Lines.Add(Format(Report, [Volume,
  'The drive type cannot be determined.']));
  DRIVE_NO_ROOT_DIR: Memo1.Lines.Add(Format(Report, [Volume,
  'The root path is invalid. For example, no volume is mounted at the path.']));
  DRIVE_REMOVABLE:
  begin
  Volume[3] := #0;
  QueryDosDevice(PChar(Volume), @lpQuery[0], MAXCHAR);
  Volume[3] := '\';
  if String(lpQuery) = '\Device\Floppy0' then
  Memo1.Lines.Add(Format(Report, [Volume, 'The drive is a Floppy disk A:.']))
  else
  if String(lpQuery) = '\Device\Floppy1' then
  Memo1.Lines.Add(Format(Report, [Volume, 'The drive is a Floppy disk B:.']))
  else
  Memo1.Lines.Add(Format(Report, [Volume, 'The drive is a Flash Drive.']));
  end;
  DRIVE_FIXED:
  begin
  Volume[3] := #0;
  QueryDosDevice(PChar(Volume), @lpQuery[0], MAXCHAR);
  Volume[3] := '\';
  if Copy(String(lpQuery), 1, 22) = '\Device\HarddiskVolume' then
  Memo1.Lines.Add(Format(Report, [Volume,
  'The disk cannot be removed from the drive.']))
  else
  Memo1.Lines.Add(Format(Report, [Volume,
  'The drive is a SUBST disk on path: "' +
  Copy(String(lpQuery), 5, Length(String(lpQuery))) + '"']));
  end;
  DRIVE_REMOTE: Memo1.Lines.Add(Format(Report, [Volume,
  'The drive is a remote (network) drive.']));
  DRIVE_CDROM: Memo1.Lines.Add(Format(Report, [Volume,
  'The drive is a CD-ROM drive.']));
  DRIVE_RAMDISK: Memo1.Lines.Add(Format(Report, [Volume,
  'The drive is a RAM disk.']));
  else
  Memo1.Lines.Add(Format(Report, [Volume, 'Xpen znaet chto :)']));
  end;
  end;
end;
end.