使用Delphi XE,我想以编程方式查看按日期修改的驱动器上的所有文件,但找不到如何对其进行编码。现有搜索没问题,但这不是重点。
ShellExecute(Application.Handle,
nil,
'D:\datemodified11-12-2019 .. 12-12-2019.search-ms',
nil,
nil,
SW_NORMAL
);
这是我所追求的,
ShellExecute(Application.Handle,
nil,
'explorer.exe', 'search-ms:query=d:\datemodified:yesterday .. today',
nil,
nil,
SW_NORMAL
);
经过大量搜索,我找不到正确的语法来打开文件资源管理器并将查询传递到其搜索框。
非常感谢收到任何帮助。
回答我自己的问题,绕过各种grep尝试,并尝试使用Quicksearch(https://github.com/nvuono/ExplorerQuickSearch),然后将'datemodified:yesterday..today'粘贴到文件资源管理器搜索框中,似乎很节省尽管冒号已被Windows删除,但是搜索“ datemodifiedyesterday..today.search-ms”确实可以工作,因此-
ShellExecute(Application.Handle,nil,'D:\ datemodifiedyesterday .. today.search-ms',nil,nil,SW_NORMAL);
打开文件资源管理器并自动执行搜索。因此,尽管我可能需要在我的应用上添加一些按钮来替代范围,但是现在我每天都有一种方便的方式来备份文件。