TShellListView.Folder속성을 이용하시면 아이템의 모든 정보를 얻으실 수 있습니다.
procedure TForm1.Button1Click(Sender: TObject);
var
Item: TListItem;
ShellFolder: TShellFolder;
begin
Item := ShellListView1.Selected;
if Item <> nil then
begin
ShellFolder := ShellListView1.Folders[Item.Index];
ShowMessage(ShellFolder.PathName);
end;
end;
TShellListView.Folder속성을 이용하시면 아이템의 모든 정보를 얻으실 수 있습니다.
procedure TForm1.Button1Click(Sender: TObject);
var
Item: TListItem;
ShellFolder: TShellFolder;
begin
Item := ShellListView1.Selected;
if Item <> nil then
begin
ShellFolder := ShellListView1.Folders[Item.Index];
ShowMessage(ShellFolder.PathName);
end;
end;
^^ 항상 즐코하세요...