Получить список локальных дисков

[igrok111]

Как узнать список локальных дисков (тоесть те, на которых файлы папки и тд)? их у меня 2. С помошью следущего кода я получаю все диски, которые видны в "Мой компьютер" , в тч конечно и локальные (D,C).

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
  buf: array [0..499] of char;
  DrvStr: array [0..9] of char;
  LogDrives: set of 0..25;
begin
  integer(LogDrives) := GetLogicalDrives;
  for i := 0 to 25 do
    if (i in LogDrives) then
      ListBox1.Items.Add(chr(i + 65));

       GetLogicalDriveStrings(1000, buf);
  i := 0;
  repeat
    FillChar(DrvStr, SizeOf(DrvStr), #0);
    j := 0;
    repeat
      DrvStr[j] := buf[i];
      inc(j);
      inc(i);
    until
      (buf[i] = #0) or (j > 9);
    inc(i);
    ListBox2.Items.Add(DrvStr);
  until
    ((buf[i-1] = #0) and (buf[i] = #0)) or (i > 499);
end;
end.

как бы получить только локальные?

[Человек_Борща]

получай те, что с флагом DT_DIXED

[igrok111]

и как найти флаг диска? моей функцией показует только буквы дисков

[Человек_Борща]

Функция GetDriveType

[igrok111]

Сообщение от Человек_Борща

Функция GetDriveType

спс. вот что получаеться. я проверяю все буквы дисков подряд этой функцией - и да локальные возвращают одно значение, остальные другое, тоесть отличать можно. Но все ли правильно? у меня возвращает или 3(локальные) или 5(двд-ром и тд)
вот таким способом:

edit1.Text:=inttostr(getdrivetype('D:\'));

//получаеться 3

[Lardes]

Кидаю кусок кода из проекта (самостоятельно подкорректируешь под себя)

function GetDriveVolume(Drive: string): string;
var
  _VolumeName, _FileSystemName: array [0..MAX_PATH - 1] of Char;
  _VolumeSerialNo, _MaxComponentLength, _FileSystemFlags: LongWord;
begin
  Result := '';
  if GetVolumeInformation(PChar(Drive + ':\'), _VolumeName, MAX_PATH,
    @_VolumeSerialNo, _MaxComponentLength ,_FileSystemFlags,
    _FileSystemName, MAX_PATH)
  then
    Result := _VolumeName;
end;

procedure GetDriveList(StringList: TStringList);
var
  DriveList: TStringList;
  Drive: Char;
  I: Integer;
begin
  FILE_LIST.Clear;
  DriveList := TStringList.Create;
  for Drive := 'a' to 'z' do
  begin
    case GetDriveType(PChar(Drive + ':\')) of
      DRIVE_REMOVABLE:
        begin
          FILE_LIST.Add(UpCase(Drive) + ':\');
          if GetDriveVolume(Drive) <> '' then
            DriveList.Add(UpCase(Drive) + ': (' + GetDriveVolume(Drive) + ')')
          else
            DriveList.Add(UpCase(Drive) + ': (' + 'DRIVE_REMOVABLE)');
        end;
      DRIVE_FIXED:
        begin
          FILE_LIST.Add(UpCase(Drive) + ':\');
          if GetDriveVolume(Drive) <> '' then
            DriveList.Add(UpCase(Drive) + ': (' + GetDriveVolume(Drive) + ')')
          else
            DriveList.Add(UpCase(Drive) + ': (' + 'DRIVE_FIXED)');
        end;
      DRIVE_CDROM:
        begin
          FILE_LIST.Add(UpCase(Drive) + ':\');
          if GetDriveVolume(Drive) <> '' then
            DriveList.Add(UpCase(Drive) + ': (' + GetDriveVolume(Drive) + ')')
          else
            DriveList.Add(UpCase(Drive) + ': (' + 'DRIVE_CDROM)');
        end;
      DRIVE_RAMDISK:
        begin
          FILE_LIST.Add(UpCase(Drive) + ':\');
          if GetDriveVolume(Drive) <> '' then
            DriveList.Add(UpCase(Drive) + ': (' + GetDriveVolume(Drive) + ')')
          else
            DriveList.Add(UpCase(Drive) + ': (' + 'DRIVE_RAMDISK)');
        end;
      DRIVE_REMOTE:
        begin
          FILE_LIST.Add(UpCase(Drive) + ':\');
          if GetDriveVolume(Drive) <> '' then
            DriveList.Add(UpCase(Drive) + ': (' + GetDriveVolume(Drive) + ')')
          else
            DriveList.Add(UpCase(Drive) + ': (' + 'DRIVE_REMOTE)');
        end;
    end;
  end;
  FILE_LIST.Sort;
  DriveList.Sort;
  for I := 0 to DriveList.Count - 1 do
    SENDMESSAGE_LIST.Add(Format('%d - %s', [I + 1, DriveList.Strings[I]]));
  DriveList.Free;
end;

[igrok111]

Сообщение от Lardes

Кидаю кусок кода из проекта (самостоятельно подкорректируешь под себя)

function GetDriveVolume(Drive: string): string;
var
  _VolumeName, _FileSystemName: array [0..MAX_PATH - 1] of Char;
  _VolumeSerialNo, _MaxComponentLength, _FileSystemFlags: LongWord;
begin
  Result := '';
  if GetVolumeInformation(PChar(Drive + ':\'), _VolumeName, MAX_PATH,
    @_VolumeSerialNo, _MaxComponentLength ,_FileSystemFlags,
    _FileSystemName, MAX_PATH)
  then
    Result := _VolumeName;
end;

procedure GetDriveList(StringList: TStringList);
var
  DriveList: TStringList;
  Drive: Char;
  I: Integer;
begin
  FILE_LIST.Clear;
  DriveList := TStringList.Create;
  for Drive := 'a' to 'z' do
  begin
    case GetDriveType(PChar(Drive + ':\')) of
      DRIVE_REMOVABLE:
        begin
          FILE_LIST.Add(UpCase(Drive) + ':\');
          if GetDriveVolume(Drive) <> '' then
            DriveList.Add(UpCase(Drive) + ': (' + GetDriveVolume(Drive) + ')')
          else
            DriveList.Add(UpCase(Drive) + ': (' + 'DRIVE_REMOVABLE)');
        end;
      DRIVE_FIXED:
        begin
          FILE_LIST.Add(UpCase(Drive) + ':\');
          if GetDriveVolume(Drive) <> '' then
            DriveList.Add(UpCase(Drive) + ': (' + GetDriveVolume(Drive) + ')')
          else
            DriveList.Add(UpCase(Drive) + ': (' + 'DRIVE_FIXED)');
        end;
      DRIVE_CDROM:
        begin
          FILE_LIST.Add(UpCase(Drive) + ':\');
          if GetDriveVolume(Drive) <> '' then
            DriveList.Add(UpCase(Drive) + ': (' + GetDriveVolume(Drive) + ')')
          else
            DriveList.Add(UpCase(Drive) + ': (' + 'DRIVE_CDROM)');
        end;
      DRIVE_RAMDISK:
        begin
          FILE_LIST.Add(UpCase(Drive) + ':\');
          if GetDriveVolume(Drive) <> '' then
            DriveList.Add(UpCase(Drive) + ': (' + GetDriveVolume(Drive) + ')')
          else
            DriveList.Add(UpCase(Drive) + ': (' + 'DRIVE_RAMDISK)');
        end;
      DRIVE_REMOTE:
        begin
          FILE_LIST.Add(UpCase(Drive) + ':\');
          if GetDriveVolume(Drive) <> '' then
            DriveList.Add(UpCase(Drive) + ': (' + GetDriveVolume(Drive) + ')')
          else
            DriveList.Add(UpCase(Drive) + ': (' + 'DRIVE_REMOTE)');
        end;
    end;
  end;
  FILE_LIST.Sort;
  DriveList.Sort;
  for I := 0 to DriveList.Count - 1 do
    SENDMESSAGE_LIST.Add(Format('%d - %s', [I + 1, DriveList.Strings[I]]));
  DriveList.Free;
end;

я пока новичек практически и с этим сложно мне. Вот ошибка появляеться Undeclared identifier: 'FILE_LIST'
это нужно обьявить где-то?

[Человек_Борща]

Вам дали кусок кода из рабочего проекта, уж что что, но просто копипастой этот код работать не будет. То что вам нужно, есть в case .. of.