我正在开发一个需要ShellListView1的Delphi 7项目,所以只显示.PNG或.JPG文件。
如何仅查看文件夹和特定文件类型(例如:'。exe; .bat')?
我被告知是一个带有屏蔽的ShellListView1组件,但我尝试的网站是离线的。
您可以为OnAddFolder
事件编写处理程序,只要将项目添加到列表中,该事件就会触发。以下代码允许仅将包含*.exe
或*.bat
扩展名的文件添加到列表中:
procedure TForm1.ShellListView1AddFolder(Sender: TObject;
AFolder: TShellFolder; var CanAdd: Boolean);
var
FileExt: string;
begin
CanAdd := not AFolder.IsFolder;
if CanAdd then
begin
FileExt := ExtractFileExt(AFolder.PathName);
CanAdd := (FileExt = '.exe') or (FileExt = '.bat');
end;
end;
uses Masks;
...
procedure TForm1.ShellListView1AddFolder(Sender: TObject;
AFolder: TShellFolder; var CanAdd: Boolean);
begin
CanAdd := AFolder.IsFolder or MatchesMask(AFolder.PathName, '*.exe');
end;
函数MatchesMask()如果字符串值与掩码指定的格式匹配,则返回True。
语法上有效的Mask由文字字符,集合和通配符组成。通配符是星号(*)或问号(?)。星号与任意数量的字符匹配。问号与单个任意字符匹配。