Hallo...
- 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.
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.
- 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;
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...