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;