Datei in Shelllistview darstellen

[Thomas F]

Hallo,

ich möchte mit Opendialog eine Datei auswählen,
genau dieselbe Datei (nicht das ganze Verzeichnis) soll dann in einem
Shelllistview (falls nicht möglich könnte ich auch ein normales Listview nehmen)
mit Icon dargestellt werden. :gruebel:
Kann mir jemand helfen, wie das geht ???

ich hab das so probiert , aber dann steht immer : 'der linken Seite kann nichts zugewiesen werden'

Delphi-Quellcode:

ShellListView1.Folders[ShellListView1.ItemIndex].PathName := Opendialog1.filename;

[gmc616]

Vielleicht so?

Delphi-Quellcode:

ShellListView1.Root := ExtractFilePath(Opendialog1.Filename);

Damit wirklich _nur_die_eine_gewählte_ Datei anzeigt wird, musst du im OnAddFolder-Event nach dem Dateinamen filtern.
z.B. so:

Delphi-Quellcode:

procedure TForm1.ShellListView1AddFolder(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
begin
  if CompareText (AFolder.DisplayName, ExtractFileName (OpenDialog1.FileName)) = 0 then
    CanAdd := true
  else
    CanAdd := false;
end;

[Thomas F]

Danke

Funktioniert, aber noch nicht ganz.
Die Dateiendung muß noch weg, dann gehts......

Delphi-Quellcode:

procedure TForm6.ShellListView1AddFolder(Sender: TObject; AFolder: TShellFolder;
  var CanAdd: Boolean);
  var Dateiname:String;
begin
Dateiname:= ChangeFileExt(ExtractFilename (OpenDialog1.FileName), '');
if CompareText (AFolder.DisplayName,Dateiname) = 0 then
    CanAdd := true 
  else 
    CanAdd := false;

end;

[DeddyH]

Und etwas kürzer dann:

Delphi-Quellcode:

procedure TForm6.ShellListView1AddFolder(Sender: TObject; AFolder: TShellFolder;
  var CanAdd: Boolean);
begin
  CanAdd := AnsiSameText(AFolder.DisplayName,ChangeFileExt(ExtractFilename (OpenDialog1.FileName), ''));
end;

[Thomas F]

Zitat:

Zitat von DeddyH

Und etwas kürzer dann:

Delphi-Quellcode:

procedure TForm6.ShellListView1AddFolder(Sender: TObject; AFolder: TShellFolder;
  var CanAdd: Boolean);
begin
  CanAdd := AnsiSameText(AFolder.DisplayName,ChangeFileExt(ExtractFilename (OpenDialog1.FileName), ''));
end;

....ich habs ausprobiert,geht aber nicht :gruebel:

[DeddyH]

Definiere "geht nicht".

[Thomas F]

Zitat:

Zitat von DeddyH

Definiere "geht nicht".

......zeigt keine Datei an

[DeddyH]

Komisch, ich mache doch im Prinzip auch nichts anderes als der andere Code.