[greenbegin]

Как в Delphi определить сколько всего в системе физических и логических жестких дисков, а главное, какие у них буквы?

[Ferra]

function DriveExists(Drive:Byte):Boolean;
var
Drives: set of 0..25;
begin
integer(Drives):=GetLogicalDrives;
Result:=Drive in Drives
end;

function CheckDriveType(Drive: Byte): string;
var
DriveLetter: Char;
DriveType: UInt;
begin
DriveLetter:=Chr(Drive + $41);
DriveType:=GetDriveType(PChar(DriveLetter + ':\'));
case DriveType of
0: Result:='?';
1: Result:='Path does not exists';
DRIVE_REMOVABLE: Result:='Removable';
DRIVE_FIXED: Result:='Fixed';
DRIVE_REMOTE: Result:='Remote';
DRIVE_CDROM: Result:='CD_ROM';
DRIVE_RAMDISK: Result:='RAMDISK'
else
Result:='Unknown'
end
end;

Далее пишешь:

for i:=0 to 25 do
if DriveExists(i) then
...
CheckDriveType(i);
...

[Ross]

Могу предложить кое-что по-проще:

На форму кидаешь ListBox и кнопку:

Код:

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

function DriveExists (Drive: Byte) : boolean; begin   Result := Boolean (GetLogicalDrives and (1 shl Drive)); end;   procedure TForm1.Button1Click(Sender : TObject);   var Drive : byte; begin  for Drive := 0 to 25 do     If DriveExists (Drive) then   begin   ListBox1.Items.Add (Chr(Drive+$41));   end;  end;