Delphi-PRAXiS - Delphi EInOutError

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