Newbie braucht hilfe mit ListView's!

[Wolff68]

Bei der ShellListView steht der Dateiname in der Eigenschaft Folders[i].PathName (OK. Kommt man nicht gleich drauf)
Probier mal folgendes:

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;