ShellListView1怎么返回上一层目录?

Question

ShellListView1怎么返回上一层目录?

Answer 1

重新设定路径
var i:integer;
    s:string;
begin
  s:=ShellListView1.Root;
  for i:=length(s) downto 1 do
    if (s[i]<>':')and(s[i]<>'\') then
       s[i]:=#0
    else
       begin
         if (s[i-1]<>':')and(s[i]='\') then s[i]:=#0;
         break;
       end;
  ShellListView1.Root:=s;
end;

Answer 2

s:=ShellListView1.Root;
  s的值总为:rfDesktop
  是不是有问题呢,谢谢 liangqingzhi(老之)

Answer 3

应该是s:=ShellListView1.RootFolder.PathName;
我把盘的根目录设为最顶端。
楼主可以根据需要设成rfMyComputer、rfDesktop，要另外处理。