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.