5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Allblus 2006-05-10
- 打赏
- 举报
ShellListView1.back也可以
老之 2006-01-04
- 打赏
- 举报
应该是s:=ShellListView1.RootFolder.PathName;
我把盘的根目录设为最顶端。
楼主可以根据需要设成rfMyComputer、rfDesktop，要另外处理。
我把盘的根目录设为最顶端。
楼主可以根据需要设成rfMyComputer、rfDesktop，要另外处理。
haijun1130 2006-01-04
- 打赏
- 举报
s:=ShellListView1.Root;
s的值总为:rfDesktop
是不是有问题呢,谢谢 liangqingzhi(老之)
s的值总为:rfDesktop
是不是有问题呢,谢谢 liangqingzhi(老之)
老之 2006-01-04
- 打赏
- 举报
重新设定路径
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;
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;
