Tshelllistview

[Guest Donatelo]

Aew...

Ei... como eu posso fazer para pegar o caminho de um arquivo em uma TShellListView.

valeu

[Capablanca]

Olá,

1) Coloque um Button;

2) Coloque um ListBox;

3) Coloque um ShellListView;

4) No evento OnClick do seu botão, coloque o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);
Var i : integer;
begin
 for i := 0 to ShellListView1.Items.Count - 1 do begin
   if ShellListView1.items[i].Selected then
   begin
     ListBox1.items.Add(ShellListview1.Folders[i].PathName);
   end;
end;

Abs.