Function GetCdDrives:Tstringlist;
const
Drv:array[0..23]of
char=('c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
var
Drives:Set of 0..25;
n:Byte;
begin
Result:=Tstringlist.Create;
Result.Clear;
Integer(Drives):= GetLogicalDrives;
For n:=0 to 23 do
If n in Drives then
begin
If GetDriveType(Drv[n])=5{Cd} then
begin
Result.Add(Drv[n]);
end;
end;
end;
