Hallo erstmal,
ich schreibe gerade an einer art Datenbank für CD's. Nun hätt ich mal noch ein paar Fragen:
1. Gibt es eine Möglichkeit die ID einer CD auszulesen???
2. Kann man herausfinden ob es sich bei einem Laufwerk (z.B. D:\) um eine Festplatte, CD-LW oder so handelt? (Hat sich erledigt, hab' Infos gefunden)
3. Die Datenträgerbezeichnung auslesen
wär echt super wenn ihr mir weiterhelfen könntet
[edit]
zu 2.
Delphi-Quellcode:
procedure GetDrives(const AItems: TStrings);
const DriveTypeTexts: array[DRIVE_UNKNOWN..DRIVE_RAMDISK] of String = ('Unbekannt', 'Kein Wurzelverzeichnis', 'Diskette', 'Festplatte', 'Netzlaufwerk', 'CDROM', 'RAMDisk');
var Drive: Char;
DriveType: Integer;
DriveMask: Integer;
Flag: Integer;
begin
DriveMask:=GetLogicalDrives;
flag:=1;
for Drive := 'A' to 'Z' do begin
if (flag and DriveMask)<>0 then
begin
DriveType := GetDriveType(PChar(Format('%S:\',[Drive]) ) ) ;
AItems.Add(Format('%s: %s', [Drive, DriveTypeTexts[DriveType]]));
end;
flag:=flag shl 1;
end;
end;
[/edit]