(Resolvido) Obter o nome dos arquivos selecionados na ShellListView...

[Elvio.Tchê]

Não estou conseguindo "puxar" o nome dos arquivos selecionados numa ShellListView (Delphi 7):

for x:=0 to ( ShellListView1.Items.Count-1 ) do
      begin
        if ( ShellListView1.Items[x].Selected ) then  // Testa se o arquivo da lista está selecionado
            lb_arqs.Items.Add(ShellListView1.Items[x].Caption); // Adiciona o arq. selecionado a um ListBox
      end;

A ListBox fica com itens sem descrição, que seriam o nome dos arquivos.

Grato.

[Progr'amador]

Olá,

veja se isso te ajuda:

ShellListView1.SelectedFolder.DisplayName

Abs. Progr'amador

[Elvio.Tchê]

Olá,

veja se isso te ajuda:

ShellListView1.SelectedFolder.DisplayName

Abs. Progr'amador

Minha ShellListView tem a listagem dos arquivos de uma determinada pasta, vou selecionar alguns arquivos, por exemplo, tem 5 arquivos, eu seleciono 3 deles...

abc.doc

asdf.rpt - Marcado/selecionado

mko.dat

qwerty.lst - Marcado/selecionado

xyz.txt - Marcado/selecionado

quando o for...next passar pela lista, deverá retornar somente os nomes que estão marcados/selecionados, no caso:>

asdf.rpt

qwerty.lst

xyz.txt

e estes itens vou adicionar a uma simples ListView.

Porém, não consigo obter os nomes dos arquivos que estão marcados/selecionados e minha listview fica com o nro de itens correspondente a seleção, porém, cada item em branco (sem o nome).

[Jhonas]

a maneira correta é :

procedure TForm1.Button1Click(Sender: TObject);
var x : integer;
begin
   for x := 0 to ( ShellListView1.Items.Count-1 ) do
      begin
        if ( ShellListView1.Items[x].Selected ) then  // Testa se o arquivo da lista está selecionado
            lb_arqs.Items.Append(TShellFolder(ShellListView1.Folders[x]).DisplayName);
      end;

end;

abraço

[Elvio.Tchê]

a maneira correta é :

procedure TForm1.Button1Click(Sender: TObject);
var x : integer;
begin
   for x := 0 to ( ShellListView1.Items.Count-1 ) do
      begin
        if ( ShellListView1.Items[x].Selected ) then  // Testa se o arquivo da lista está selecionado
            lb_arqs.Items.Append(TShellFolder(ShellListView1.Folders[x]).DisplayName);
      end;

end;

abraço

Boa noite.

É exatamente isso, depois que postei a dúvida, acabei olhando com mais calma e acabei chegando a esta solução mesmo.

Só o lb_arqs.Items.Append que mantive o Add, pois toda vez que eu clicar em no botão "Converter", ele vai limpar a ListBox.

Sds.,

Elvio.