Wie zeige ich nur die CD/DVD/Brenner/etc. Laufwerke an, also keine Festplatten`?
Ich habe folgenden Code
hier gefunden:
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;
Kann ich da die Festplatten/Diskette rausfiltern?
Wenn ja, wie?
MfG