Поиск диска

[helper999999]

Возник спор с товарищем, возможно как и многие решил показаться умнее. Код следующего содержания, приведенный мною, он назвал, цитирую:

Гавнокод. Лучше получать все диски через апи, а не методом "была не была"

Так вот помогите, своими методами поиска фиксированных дисков на ПК, желательно, winapi, можно и с прменением asm.

Я предложил вот так:

 var 
   DType: Byte; 
   Drive: Char; 
 begin 
   for Drive := 'a' to 'z' do 
     begin 
       DType := GetDriveType(PChar(Drive+':\')); 
         case DType of 
           3: FindFile(Drive + ':\'); 
         end; 
     end; 
   CreateForm; //Вот это действия показывает формы 
 end;

[Stilet]

Использую такое:

var s,e:ansiString;i:integer;
begin
  SetLength(s,100);
  GetLogicalDriveStringsA(Length(s),@s[1]);
  i:=0;      e:='';
  while (i<100)and(copy(s,i,2)<>#0#0) do begin
    if s[i]=#0 then begin inc(i); e:=e+#13#10;end;
    if s[i]<>'\' then    e:=e+s[i];
    inc(i);
  end;
  DriversList.Text:=e;
  SetLength(s,0);
  Result:=DriversList.Count-1;
end;

Друг твой не прав. Если твой пример тебя устраивает и решает поставленные ему задачи - значит то не быдлокод. Единственный минус, который можно усмотреть - перебор всех дисков, даже не существующих. Т.е. де-факто программа работает медленее, чем получение списка актуальных дисков.

[FaTaL]

Я вот так флешки получал

var
  Disks : TStringDynArray;
  i : Byte;
begin
  ComboBox1.Clear;
  Disks := TDirectory.GetLogicalDrives;
  for i := 0 to High (Disks) do
    begin
      if (UpperCase(Disks[i][1]) = 'A') or
         (UpperCase(Disks[i][1]) = 'A') then
        Continue;
      if GetDriveType(PChar(Disks[i])) = DRIVE_REMOVABLE then
        ComboBox1.Items.Add(Disks[i]);
    end;
  if ComboBox1.Items.Count > 0 then
    ComboBox1.ItemIndex := 0 else
    ComboBox1.Text := 'Flash drives not found!';
end;

Чтобы получить харды измените один параметр, вернее сравнение.
Подробнее тут GetDriveType