[helper999999]

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

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

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

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

Код:

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

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;

[Bargest]

Например .

[NumLock]

исходник компонента TDriveComboBox:

Код:

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

procedure TDriveComboBox.BuildList; var   DriveNum: Integer;   DriveChar: Char;   DriveType: TDriveType;   DriveBits: set of 0..25;     procedure AddDrive(const VolName: string; Obj: TObject);   begin     Items.AddObject(Format('%s: %s',[DriveChar, VolName]), Obj);   end;   begin   { fill list }   Clear;   Integer(DriveBits) := GetLogicalDrives;   for DriveNum := 0 to 25 do   begin     if not (DriveNum in DriveBits) then Continue;     DriveChar := Char(DriveNum + Ord('a'));     DriveType := TDriveType(GetDriveType(PChar(DriveChar + ':\')));     if TextCase = tcUpperCase then       DriveChar := Upcase(DriveChar);       case DriveType of       dtFloppy:   Items.AddObject(DriveChar + ':', FloppyBMP);       dtFixed:    AddDrive(VolumeID(DriveChar), FixedBMP);       dtNetwork:  AddDrive(NetworkVolume(DriveChar), NetworkBMP);       dtCDROM:    AddDrive(VolumeID(DriveChar), CDROMBMP);       dtRAM:      AddDrive(VolumeID(DriveChar), RAMBMP);     end;   end; end;