Multiselect in ShellListView

[Gina]

Hallochen,

ich hab da ein kleines Problem mit Multiselect in einer ShellListView. Ich weiß nicht, wie ich die einzelnen Einträge, die markiert sind, anspreche, da mein Delphi6 leider keine Hilfe dazu bietet. Hier im Forum hab ich auch nixs passendes gefunden, oder die falschen Suchbegriffe benutzt... :oops:

Hier erstmal der Codeschnipsel:

Delphi-Quellcode:

var
  i: Integer;
begin
  i := 0;
  while i <= ShellListView1.Selcount-1 do
  begin
    ListBox1.Items.Add(ShellListView1.xxx[i]...); //Was muss hier hin?
    inc(i);
  end;
end;

Ich möchte also alles, was in der ShellListView markiert ist, in die ListBox eintragen...

Vielen lieben Dank schonmal, Gina.

[Gina]

Ok, ich habe nach langem probieren eine Möglichkeit gefunden:

Delphi-Quellcode:

procedure TForm1.ListBoxCryptDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  i: Integer;
begin
  for i := 0 to ShellListView1.Items.Count-1 do
  If ShellListView1.Items[i].Selected then
  begin
    ListBox1.Items.Add(ShellListView1.Folders[i].PathName);
  end;
end;

Das Ganze hab ich jetzt in der DragDrop-Prozedur drin.
Ist das ok so?

Thx, Gina.