jak na seznam disku v delphi

Dobry den.
Funkce GetLogicalDrives ni vypiše logicke disky v PC.
Jak však poznam že to je disk nebo CD/dvd mechanika.

Potřebuji do StringListu vypsat jen disky.

SeznamDisku := TStringList.Create;
d:=GetLogicalDrives;
for i:=0 to 31 do
if (d shr i) and 1=1 then
begin
ComboBox1.Items.Add(Chr(65+i)+':');
SeznamDisku.Add(Chr(65+i)+':')
end;

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny

Předmět	Autor	Datum
Dik moc. Mi však postačí jen disky takže. procedure TForm1.FormCreate(Sender: TObject); var Drive:… nový mimo11 18.10.2013 07:21	mimo11	18.10.2013 07:21
Tak jednoducho zmeň String[4] na String. poslední msx. 18.10.2013 07:34	msx.	18.10.2013 07:34

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.

Zpět do poradny Odpovědět na původní otázku Nahoru