搞掂了:)procedure TForm1.ShellListView1Click(Sender: TObject);
Var
ListItem:TListItem;
begin
ListItem := ShellListView1.Selected;
Edit1.Text:= ShellListView1.Folders[ListItem.Index].PathName;
end;自己给分了,另外,别人是否也给偶加些?
Var
ListItem:TListItem;
begin
ListItem := ShellListView1.Selected;
Edit1.Text:= ShellListView1.Folders[ListItem.Index].PathName;
end;自己给分了,另外,别人是否也给偶加些?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货