Ĺadny brzuch
Witam,
mam pytanie, jak wyświetlić wszystkie zainstalowane Cd-Romy w komputerze w ListBoxie?
Konrad
Jeśli chodzi o Delphi i mają być wyświetlone tylko litery dysków to tak:
var i : Byte; begin for i := Ord('A') to Ord('Z') do if GetDriveType(PChar(Chr(i)+':')) = DRIVE_CDROM then ListBox.Items.Add(Chr(i)+':'); end;
Sulik
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
mam pytanie, jak wyświetlić wszystkie zainstalowane Cd-Romy w komputerze w ListBoxie?
Konrad
Jeśli chodzi o Delphi i mają być wyświetlone tylko litery dysków to tak:
var i : Byte; begin for i := Ord('A') to Ord('Z') do if GetDriveType(PChar(Chr(i)+':')) = DRIVE_CDROM then ListBox.Items.Add(Chr(i)+':'); end;
Sulik