procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
vBuffer: array[0..MAX_PATH] of Char;
begin
for I := 0 to ShellListView1.Items.Count - 1 do
if ShellListView1.Items[I].Selected then
if SHGetPathFromIDList(ShellListView1.Folders[I].AbsoluteID, vBuffer) then
Memo1.Lines.Add(vBuffer);
end;