Получить путь к выделенному файлу в 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