вторник, 20 ноября 2012 г.

Delphi. Получить список дисков и добавить их в Combobox

procedure TForm1.FormCreate(Sender: TObject);
var
  Drives : TStringDynArray;
  i      : Integer;
begin
  ComboBox1.Clear;
  Drives := System.IOUtils.TDirectory.GetLogicalDrives;
  for i := 0 to Length(Drives)-1 do
    ComboBox1.Items.Add(Drives[i]);
end;