EInOutError - TShellTreeView

[RobinHood]

hallo,

ich habe das Problem, dass ich eine EInOutError bekomme, wenn ich bei meiner TShellTreeView auf ein CD-Laufwerk gehe, in das keine CD eingelegt ist.

Delphi-Quellcode:

procedure TForm1.change(Sender: TObject; Node: TTreeNode);
var z : string;
begin
  z := shelltreeview1.SelectedFolder.PathName;
  if pos(':',z) <> 0 then filelistbox1.Directory := z;
  edit1.Text := z;
end;

kann ich die CD-laufwerke aus der TShellTreeView irgentwie entfernen (ich kann sowieso nur Laufwerke gebrauchen, auf die ich auch schreiben kann)?

Oder kann ich irgentwie feststellen ob das ausgewählte Laufwerk ein CD-Laufwerk o.ä. ist um das in die if-Abfrage mit hineinzunehmen?

Oder gibt es vielleicht irgent eine andere Möglichkeit das Problem zu umgehen?

für jegliche Hilfe wäre ich dankbar,
MfG marc