1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

function DriveIsReady(Drive : String) : Boolean;
var
   i : Integer;
   sRec: TSearchRec;
begin
     i := FindFirst(Drive + ':\*.*', faAnyFile, sRec);
     if i = 0 then begin
        Result := True;
     end else begin
         Result := False;
     end;
     FindClose(sRec);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  s : String;
begin
  for i := 67 to 90 do
  begin
    if DriveIsReady(chr(i)) then
      s := s + chr(i)+ ' ';
  end;
  ShowMessage(s);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function TForm1.laufwerkstyp(laufwerk: string): string;
var
  Typ: integer;
begin
  Typ:=GetDriveType(PChar(laufwerk));
  case Typ of
    DRIVE_REMOTE       : Result:='Netzlaufwerk'; 
    DRIVE_RAMDISK     : Result:='RAMDisk'; 
    DRIVE_CDROM        : Result:='CDROM'; 
    DRIVE_FIXED          : Result:='Festplatte'; 
    DRIVE_REMOVABLE : Result:='Diskette';
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:

procedure TMainForm.AddDrives(Drive: String);
const
  DriveTypes: Array [0..6] of String = ('Unbekanntes Laufwerk',
                                        'Kein Stammlaufwerk',
                                        'Wechseldatenträger',
                                        'Festplatte',
                                        'Netzlaufwerk',
                                        'CD-Rom-Laufwerk',
                                        'Speicherlaufwerk');
var
  NodeData: PNodeData;
  Node: PVirtualNode;
  R: DWord;
  Drives: Array[0..128] of Char;
  pDrive: PChar;
  DriveType: Integer;
begin
  FilesVST.Clear;
  R := GetLogicalDriveStrings(SizeOf(Drives), Drives);
  if R <> 0 then begin
    if R > SizeOf(Drives) then begin
      raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY));
      Exit;
    end;
    pDrive := Drives;
    while pDrive^ <> #0 do begin
      New(NodeData);
      with NodeData^ do begin
        with FileData do begin
          Name := pDrive;
          IsDirectory := True;
//        Size := 0;
        end;
        DriveType := GetDriveType(PChar(Upcase(pDrive[0]) + ':\'));
        if DriveType in [DRIVE_FIXED, DRIVE_CDROM] then
          Caption := GetDriveName(pDrive) + '(' +  Upcase(pDrive[0]) + ':)'
        else
          Caption := DriveTypes[DriveType] + ' (' +  Upcase(pDrive[0]) + ':)';
        Name := pDrive[0] + ':';
        AddFileIcon(FileData.Name, ImageIndex{, SelectedIndex}, False);
      end;
      Node := AddNode(nil, NodeData);
      if not IsEmptyDir(Drive) then
        FilesVST.AddChild(Node);
      Inc(pDrive, 4);
    end;
  end
  else
    MessageDlg('Fehler beim Laden der Laufwerke!', mtError, [mbOk], 0);
end;

function GetDriveName(const Drive: String): String;
var
  MaxLength, Flags: DWord;
  Buf: Array[0..MAX_PATH] of Char;
begin
  if GetVolumeInformation(PChar(Drive), Buf, SizeOf(Buf), nil, MaxLength,
    Flags, nil, 0) then begin
    if Trim(StrPas(Buf)) <> '' then
      Result := StrPas(Buf) + ' '
    else
      Result := '';
  end
  else
    Result := '';
end;