TJvFileListBox Dateierweiterungen

[haentschman]

Hallo... :hi:

- man nehme eine TJvFileListBox
- man liest einen Ordner ein
- beim Doppelklick auf ein Dokument (z.B. xxx.pdf) öffnet sich entsprechend der Dateiendung die zugehörige Anwendung mit dem Dokument.

Delphi-Quellcode:

ShellExecute(Application.Handle,'open',PChar(FAnlagenkomponenten.JvFileListBox1.FileName),NIL,NIL,SW_SHOWNORMAL);

soweit so gut. ABER !

- ist die Option in Ansicht "Erweiterungen bei bekannten Dateitypen ausblenden" aktiviert wird auch in der FileListBox die Endung ausgeblendet
und beim Doppelklick passiert mal gar nichts. Im FileName sollte doch die Erweiterung vorhanden sein. :gruebel:
:wiejetzt:

- PS: auch das Löschen der Datei funktioniert nicht ohne Erweiterung.

Delphi-Quellcode:

for A := 0 to JvFileListBox1.Items.Count -1 do
    begin
      if JvFileListBox1.Selected[A] then
        begin
          Dateiname:= JvFileListBox1.Items.Strings[A];
          Pfad:= JvFileListBox1.Directory;
          DeleteFile(Pfad + '\' + Dateiname);
        end;
    end;

:gruebel: wobei ich hier das auf das Items.Strings[A] schiebe. (der String ist ja das was angezeigt wird) Da ich MehrfachSelect zulasse müßte ich die Schleife etwas abändern, damit das mit FileName funktioniert. Dann hätte ich aber immer noch obiges Problem.

...kann mir bitte jemand eine Erklärung für diesen Effekt geben ?

Danke...

[marabu]

Hallo,

wenn du den Dateinamen brauchst, dann setze die Eigenschaft ForceFileExtensions auf True. Standardmäßig wird der DisplayName eingetragen und der ist bei gesetzter Option "Erweiterungen bei bekannten Dateitypen ausblenden" identisch mit dem von der Shell verwendeten Bezeichner.

Freundliche Grüße

[haentschman]

:gruebel: ich glaube, ich muß mir mal Gedanken machen.

ich finde immer die Lösung, wenn ich gepostet habe. Merkwürdig :gruebel:

Die Lösung:
TJvFileListBox kennt eine Eigenschaft ForceFileExtensions. damit werden die Erweiterungen unabhängig von der Systemeinstellung angezeigt und das ganze funktioniert wieder.

TFileListBox kennt diese Eigenschaft nicht. Ich habe mein Problem gelöst aber interressant wäre es dennoch, wie es mit der TFileListBox machbar wäre.

Hilfe für andere ist auch ok. :wink:

ich poste das trotzdem, auch wenn zu spät.

Danke..

[bluesbear]

Zitat:

Zitat von haentschman

(...)ich finde immer die Lösung, wenn ich gepostet habe. Merkwürdig

:) Geht mir oft genauso. Das ist das Prinzip "Woher soll ich wissen, was ich denke, bevor ich gelesen habe, was ich schreibe?" <g>.
Btw - danke für die Erklärung, das wusste ich bisher auch nicht. Das wird in Zukunft hilfreich sein. :thumb:

[haentschman]

...keine Ursache :-D

- ich habe mal ein bischen rumprobiert und auch FileName enthält den Dateinamen ohne Erweiterung wenn "Ausblenden" aktiv ist :gruebel:

warum ist das so ? :gruebel: