узнать какие диски есь в системе

[AIst]

сабж.

нужно узнать какие диски есть в системе(от жестких до флешек).
желательно чтоб выходящая информация была в формате string.

[Titan123]

есть такая функция directoryexists. можно с ней поработать.
например,

if directoryexists('H:/') then label1.caption:='диск H существует';

и так со всеми дисками

[eoln]

Хотя бы старым DriveComboBox1

procedure TForm1.Button1Click(Sender: TObject);
var
  disk: string;
  i: byte;
  s: string;
  UINT1: UINT;
begin
  s := '';
  for i := 1 to DriveComboBox1.Items.Count-1 do
  begin
    disk := DriveComboBox1.Items.strings[i][1] + ':\';
    UINT1:=GetDriveType(pchar(disk));
    s := s + disk + '  ';
    if UINT1=0 then s:=s+'Тип накопителя не определен.'+#13;
    if UINT1=1 then s:=s+'Корневой директорий не существует.'+#13;
    if UINT1=DRIVE_REMOVABLE then s:=s+'Накопитель может удаляться.'+#13;
    if UINT1=DRIVE_FIXED then s:=s+'Фиксированный диск(не может быть удален).'+#13;
    if UINT1=DRIVE_REMOTE then s:=s+'Удаленный накопитель(сетевой диск).'+#13;
    if UINT1=DRIVE_CDROM then s:=s+'CD-ROM.'+#13;
    if UINT1=DRIVE_RAMDISK then s:=s+'Виртуальный RAM-диск.'+#13
  end;
  showmessage(s)
end;

Или воспользоваться проверкой на существование диска (если без DriveComboBox)

function DiskExist(DISKpath:char):boolean;
var OldErrorMode:Integer;
    fp:TextFile;
begin
    result:=true;
    try
      OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
      try
        AssignFile(fp,DISKpath+':\file.dsc');
        Reset(fp);
        CloseFile(fp);
      finally
        SetErrorMode(OldErrorMode);
      end;
    except
      on E:EInOutError do
        if E.ErrorCode = 21 then
          result:=false;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  disk: string;
  i: char;
  s: string;
  UINT1: UINT;
begin
  s := '';
  for i := 'A' to 'Z do
  begin
    if not DiskExist(i) then continue;
    disk := i + ':\';
    UINT1:=GetDriveType(pchar(disk));
    ...

[AIst]

o_0

спс. ща попробую.

[Terran]

Вот ещё вариант:

Function DriveType(StrDisk: String): String;
Begin
Case
GetDriveType(PChar(StrDisk)) Of
DRIVE_REMOVABLE: DriveType:='Сменный'+'|';
DRIVE_FIXED: DriveType:='Жёсткий диск'+'|';
DRIVE_REMOTE: DriveType:='Remote'+'|';
DRIVE_CDROM: DriveType:='CD-ROM'+'|';
DRIVE_RAMDISK: DriveType:='Ram Диск'+'|';
Else
DriveType:='Неизвестный'+'|';
End;
End;
Function GetDrives: String;
Var
P: Integer;
This, All, C, F, CDrives: String;
Begin
C:=Chr(13);
F:=Chr(0);
SetLength(CDrives,300);
GetLogicalDriveStrings(300,PChar(CDrives));
P:=Pos(F, CDrives);
While P > 0 Do
Begin
This:=Copy(CDrives, 1, P - 1);
If Length(This) <> 3 Then
Break;
This:=UpperCase(This) + ' - ' + DriveType(This);
CDrives:=Copy(CDrives, P + 1,Length(CDrives));
P:=Pos(F, CDrives);
All:=All+This;
End;
GetDrives:=Copy(All, 1, Length(All) - 1);
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Memo1.Lines.Add(GetDrives);
Memo1.Text:=StringReplace(Memo1.Text,'|',#13#10,[RfReplaceAll]);
End;