如何让ShellListView控件只显示固定的几个文件

我搜索到了一 些文件   怎么让这些文件  放到ShellListView里呢！ 现在我是放在listbox里面
procedure TForm1.Button2Click(Sender: TObject);
var
sr:tsearchrec;
i:integer;
begin
i:=self.ShellListView1.ItemIndex;

self.ListBox1.Items.Clear;
self.ShellListView1.Items.Clear;
if findfirst('d:\picturelook\images\*1*.jpg',faAnyFile,sr)=0  then
begin
  while findnext(sr)=0 do
  begin
//self.ShellListView1.GetNamePath:=sr.Name;
self.ListBox1.Items.Add(sr.Name);
  end;
  findclose(sr);
end;
end;

搜索更多相关主题的帖子: self 控件 文件 end begin

不会  没学过
















[url=http://www.aliyouxi.com/]在线小游戏[/url]

高手呢  老鸟出来说话了
斑竹总会吧