Получить путь к выделенному файлу в TShellListView

Previous  Top  Next

    
 

 

Code:

Label1.Caption := ShellListView1.Folders[ShellListView1.ItemIndex].PathName

 

{**************************************************************}

 

{

To retrieve full paths to each file selected files:

}

 

var

  path: string;

begin

  for i:=0 to ShellListView1.SelCount-1 do

  begin

    path := ShellListView1.Folders[ShellListView1.GetNextItem(ShellListView1.Selected,

              sdAll,[isSelected]).Index+i-1].PathName;

    // ...

end;

end

 

©Drkb::01143

Взято с сайта: http://www.swissdelphicenter.ch