Einzelnen Beitrag anzeigen

RobinHood

Registriert seit: 5. Jun 2005
16 Beiträge
 
#1

EInOutError - TShellTreeView

  Alt 28. Dez 2005, 20:41
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
  Mit Zitat antworten Zitat