jak na seznam disku v delphi

Podívej se na funkci GetDiskInfo()

Môžeš sa inšpirovať takto:

procedure TForm1.Button1Click(Sender: TObject);
var
 Drive: Char;
 DriveLetter: String[4];
begin
 for Drive := 'A' to 'Z' do
 begin
  DriveLetter := Drive + ':\';
  case GetDriveType(PChar(Drive + ':\')) of
   DRIVE_REMOVABLE:
    Memo1.Lines.Add(DriveLetter + ' Vymeniteľný Disk (USB,FLoppy)');
   DRIVE_FIXED:
    Memo1.Lines.Add(DriveLetter + ' Pevný disk (HDD)');
   DRIVE_REMOTE:
    Memo1.Lines.Add(DriveLetter + ' Sieťový Disk (Network)');
   DRIVE_CDROM:
    Memo1.Lines.Add(DriveLetter + ' Jednotka CD-ROM (CD/DVD)');
   DRIVE_RAMDISK:
    Memo1.Lines.Add(DriveLetter + ' RAM Disk');
   end;
 end;
end;

Dik moc.
Mi však postačí jen disky takže.

procedure TForm1.FormCreate(Sender: TObject);
var
Drive: Char;
DriveLetter: String[4];
m:integer;
e:string;
begin
for Drive := 'A' to 'Z' do
begin
DriveLetter := Drive + ':\';
if GetDriveType(PChar(Drive + ':\')) = DRIVE_FIXED then
begin
ComboBox1.Items.Add(DriveLetter);
SeznamDisku.Add(DriveLetter);
end;

Asi jsem si však přisedl vedeni a nemohu se hnout s místa.

Potřebují to bud už ukládat jako string a ne String[4].
Nebo načítat.
for m := 0 to SeznamDisku.Count-1 do e:= SeznamDisku(m);
[DCC Warning] Unit1.pas(108): W1057 Implicit string cast from 'ShortString' to 'string'

Tak jednoducho zmeň String[4] na String.