ShellTreeView -> Dateipfad auslesen?

[SebE]

Hallo alle zusammen.

Ich habe ein ShellTreeView und möchte, wenn man doppelt klickt, den Dateipfad ausgeben, damit ich dann die Datei in ein Memo laden kann.

Weis jemend wie das geht.

Ich habs auch schon probiert, aber ich konnte nicht unterscheiden zwischen Datei und Ordner. :cry:

Und bekomme ich irgendwie die Verknüpfungen aus dem ShellTreeView heraus -> die kann man ja leider nicht in ein Memo laden.

[rantanplan99]

Delphi-Quellcode:

ShellTreeView1.SelectedFolder.IsFolder: Boolean;
ShellTreeView1.SelectedFolder.DisplayName: String;
ShellTreeView1.SelectedFolder.PathName: String;

oder statt

Delphi-Quellcode:

.SelectedFolder.

geht auch

Delphi-Quellcode:

.Folders[index: Integer].

[SebE]

Erstmal ein digges DANKESCHÖN an rantanplan99
Es funktioniert.

Ich hab's so gemacht:

Code:

if not ShellTreeView.SelectedFolder.IsFolder
then Memo.Lines.LoadFromFile(ShellTreeView.Path)

Aber es stehen noch die Verknüpfungen im ShellTreeView.

Bekomme ich die irgendwie raus oder kann ich prüfen, ob die Auswahl eine Verknüpfung ist???

[rantanplan99]

Achja, das Problem hab ich übersehen *g*

Dazu gibt es:

Delphi-Quellcode:

.Properties: TShellFolderProperties;


TShellFolderProperty = (fpCut, fpIsLink, fpReadOnly, fpShared, fpFileSystem,
                        fpFileSystemAncestor, fpRemovable, fpValidate);

TShellFolderProperties = set of TShellFolderProperty;

also dann irgendwie so

Delphi-Quellcode:

if fpIsLink in ShellTreeView1.SelectedFolder.Properties then ...

Wie man die Verknüpfung auflöst, also herrausbekommt wohin die Verknüpfung zeigt, weiss ich nicht.

[SebE]

DANKE

So ging's:

Code:

if not ((ShellTreeView.SelectedFolder.IsFolder) or (fpIsLink in ShellTreeView.SelectedFolder.Properties))
then ...

[Master_BB]

if (ExtractFileName(TShellTreeView.SelectedFolder.Pat hName) = '') then
tuhe blabla

so würd ichs machen SelectedFolder.PathName gibt dir den ausgewählten pfad des elements egal ob ordner oder datei