Windows搜索4查询 - Delphi示例
-
01-10-2019 - |
题
以下网页以编程方式描述Windows搜索:
http://msdn.microsoft.com/en-us/library/aa965362.aspx
有人使用Delphi/Pascal有示例吗?
我想到的例子很简单:
- 搜索某些文件类型。
- 搜索文件中的特定文本。
- 将上述搜索限制为某个路径。
解决方案
这是我前一段时间做的 - 请注意,它可能已经过时了:
const GENERAL_COLUMNS = '"System.Itemname", "System.Size", "System.DateCreated", "System.ItemDate",' + '"System.ItemFolderPathDisplay", "System.Search.AutoSummary", "System.ItemType"'; IMAGE_COLUMNS = '"System.Image.HorizontalSize", "System.Image.VerticalSize", '+ '"System.Image.BitDepth", "System.Image.Compression", '+ '"System.Photo.CameraModel", "System.Photo.DateTaken", "System.Photo.Flash"'; MUSIC_COLUMNS = '"System.Music.Artist", "System.Music.Genre", "System.Music.TrackNumber", '+ '"System.Audio.Compression", "System.Audio.SampleRate", '+ '"System.DRM.IsProtected", "System.Music.AlbumTitle", "System.Rating", '+ '"System.Audio.EncodingBitrate"'; procedure TWDSDataSource.RetrieveDataFromDB; var manager : ISearchManager; catalogManager : ISearchCatalogManager; queryHelper : ISearchQueryHelper; wQuery : string; temp : PWideChar; sTemp : string; begin manager := CoCSearchManager.Create; if Succeeded(manager.GetCatalog('SystemIndex',catalogManager)) then begin if Succeeded(catalogManager.GetQueryHelper(queryHelper)) then begin if fMaxResults 0 then queryHelper.Set_QueryMaxResults(fMaxResults); queryHelper.Set_QuerySelectColumns(GENERAL_COLUMNS + ',' + MUSIC_COLUMNS + ',' + IMAGE_COLUMNS); queryHelper.GenerateSQLFromUserQuery(PWideChar(fQuery),temp); wQuery := temp; queryHelper.Get_ConnectionString(temp); sTemp := temp; dataset := CreateComObject(CLASS_Recordset) as _Recordset; dataset.CursorLocation := adUseClient; dataset.Open(wQuery, stemp, adOpenForwardOnly, adLockReadOnly, adCmdText); dataset.Set_ActiveConnection(nil); bDatabaseFailed := false; end else bDatabaseFailed := true; end else bDatabaseFailed := true; end;
我认为这都是自我解释的,FQuery是您要执行的查询。
关于基思
不隶属于 StackOverflow