Delphi CD-Laufwerke in Drivecombobox

Thema durchsuchen

Ansicht

Themen-Optionen

CD-Laufwerke in Drivecombobox

Ein Thema von Uncle Cracker · begonnen am 18. Mai 2003 · letzter Beitrag vom 27. Okt 2003

Vorheriger Beitrag

Nächster Beitrag

s14

Registriert seit: 15. Mai 2003
Ort: München
251 Beiträge

Delphi 7 Architect

19. Mai 2003, 11:16

Wenn die beiden Funktionen aus der Code-Library wie von Stanlay vorgeschlagen verwendet werden, kann mit folgender Prozedur eine Liste der CD-Laufwerke ausgegeben werden.

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  I: Integer;

begin

  for I := 0 to 25 do

    if DriveExists(I) and (GetDriveType(PChar(Chr(I + Ord('A')) + ':\')) = DRIVE_CDROM) then

      ComboBox1.Items.Add(Chr(I + Ord('A')) + ':\  (' + DriveType(I) + ')');

end;