Bei ShellListView-Items die Caption auslesen...

[Wolff68]

Sieht jetzt wie ein doppelposting aus: Aber auch hier folgende Antwort:

Bei der ShellListView steht der Dateiname in der Eigenschaft Folders[i].PathName

Code:

procedure TMainForm.Button3Click(Sender: TObject); 
var 
  i : Integer; 
  s : String; 
begin 
  s := ''; 
  For i := 0 to ShellListView.Items.Count -1 do begin 
    IF ShellListView.Items[i].Selected then begin 
      s := s + ShellListView.Folders[i].PathName + #10#13; 
    end; 
  end; 
  ShowMessage(s); 
end;