CD or DVD drive in DriveComboBox

CD or DVD drive in DriveComboBox
2004-07-16T22:28:13+02:00
2004-07-18T14:15:20+02:00
2022-10-21T07:45:46+02:00
kaiser_8
Hali!
Az a problémám hogy nem tudom azt megcsinálni, hogy a drivecomboboxban csak a cd és dvd meghajtók látszódjanak. Ehhez kérném egy 'Guru' segítségét
Mutasd a teljes hozzászólást!
Hello ! Ez a kód törli a DriveComboBox-ból a nem Cd vagy nem Dvd tipusú meghajtókat! Tedd a form Createba :


procedure TForm1.FormCreate(Sender: TObject); var I: Integer; begin I := 0; while I < DriveComboBox1.Items.Count do begin if TDriveType(GetDriveType(PChar(Copy(DriveComboBox1.Items[I], 1, 2) + '\\\\'))) <> dtCDROM then DriveComboBox1.Items.Delete(I) else Inc(I); end; end;

Nálam működik, remélem segítettem !
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd