Code:
procedure TForm3.Button3Click(Sender: TObject);
var
files: string;
i: integer;
begin
for i:=0 to ShellListView1.SelCount-1 do
begin
files := ShellListView1.Folders[ShellListView1.GetNextItem(ShellListView1.Selected,
sdAll,[isSelected]).Index+i-1].PathName;
ListBox1.Items.Add(files);
end;
end;
Hi
Ich habe das Problem, das wenn ich 2 oder mehr Dateien Selektiere dann funzzt alles wunderbar, nehm ich aber nur eine Datei und will diese hinzufügen bekomme ich eine zugriffsverletzung. Hat da einer ne idee woran das liegt.
Gruß
The Re@l