Mit rechte Maustaste Ordner öffnen

[SaFu]

Wie gesagt ich habe ja schon einiges versucht ich hatte das Problem schonmal

Delphi-Quellcode:

procedure TForm5.FileListBox2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    FileListBox2.ItemIndex:= FileListBox2.ItemAtPos(Point(X, Y), true);

     //Pfad in Variable übergeben RTF mit Pfadangabe
  Dokument:= LowerCase(ExtractFileExt(FileListBox2.Filename));

    if (Dokument = '.rtf') then
     begin
       RichEdit1.PlainText:= False; //Formatierung Richtig stellen einstellen
       Richedit1.Lines.LoadFromFile(FileListBox2.FileName);
     end;
   LabAnzahlDokumente.Caption:= 'Dokument '+ IntToStr(FileListBox2.ItemIndex) +' von '+ IntToStr(FileListBox2.Items.Count);
end;

Damit geht es bei einer FileListBox aber bei der ShellTreeview nichtbesser gesagt ich komm einfach net drauf egal was ich mach