如何让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;
