[ferget]

вот код на delphi

Код:

var
  Drive: Char; //Буква диска
const
  pref = ':';
begin
  for Drive := 'B' to 'Z' do
    if GetDriveType(PChar(Drive + pref)) = DRIVE_REMOVABLE then lbl1.Caption:=Drive+ pref;