Fórum Como Pegar o que está selecionado no ShellListView #232264

Se nao for multi-select, tente assim:

procedure TFormINICIO.BotaoSELECIONAClick(Sender: TObject);
begin
Edit1.Text := ShellList.Folders[ShellList.itemindex].PathName;
end;
(=> já respondido no forum...)

... mas se for multi-select, o melhor é:

procedure TFormINICIO.BotaoSELECIONAClick(Sender: TObject);
var
i: short;
begin
if ShellList.itemindex < 0 then Exit; //(so executa se houver selecao..)
for i := 0 to ShellList.Items.Count - 1 do
begin
if ShellList.Items.Item[i].Selected
then Edit1.Text := EditPath.Text + ShellList.Folders[i].PathName + ´; ´;
end;
end;

.. Espero ter ajudado. :wink: