[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;