Windows Search 4 Query - Delphi Prime Пример

Question

Следующая веб-страница описывает запрос поиска Windows программно:

http://msdn.microsoft.com/en-us/library/aa965362.aspx.

У кого-нибудь есть примеры, используя Delphi / Pascal?

Примеры, которые я имею в виду довольно просты:

1. Поиск определенных типов файлов.
2. Поиск определенного текста в файлах.
3. Ограничьте эти вышеуказанные поиски определенным путем.

Answer 1

Вот один, я сделал некоторое время назад - осознавать, что это может быть устарело:

const general_columns = '"System.itemnamame", "system.size", "system.dateCreated", "System.itemdate", "+'" system.itemolderPathdisplay "," system.search.autosummary "," system.itemtype " '; Image_columns = '"system.image.horizontalsize", "system.image.veryporticalsize",' + '"system.image.bittdepth", "system.image.compression", "+' system.photo.cameramodel", " System.photo.dateaken "," 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 "'; Процедура TwdsdataSource.retriDeataFromdb; VAR Manager: ISearchManager; CatalogManager: ISearchCatalogmanager; QueryHelper: ISearchQueryHelper; WQUERY: строка; Temp: pwidechar; Стемп: строка; Начало менеджера: = cocsearchmanager.create; Если это удалось (Manager.getCatalog («Systemindex», CatalogManager)), затем начните, если получится (CatalogManager.getQueryHelper (Queryhehelper)), затем начните, если fmaxResults 0, затем queryheLper.set_querymaxresults (fmaxresults); QueryHelper.Set_QuerySelectColumns (General_Columns + ',' + Music_columns + ',' + Image_Columns); QueryHelper.generateqlfromuserQuery (Pwidechar (Fabery), Temp); WQUERY: = TEMP; QueryHelper.get_ConnectionStringString (Temp); statemp: = temp; DataSet: = CreateComobject (Class_recordset) как _recordset; dataset.cursorlocation: = aduseClient; DataSet.Open (WQUERY, stemp, requepenswardonly, adlockreadonly, adcmdtext); DataSet.Set_activeContection (Nil); bdatabasefailed: = false; конец еще bdatabasefailed: = true; конец еще bdatabasefailed: = true; конец;

Я думаю, что это все красивое самочувствие, Fabery - это запрос, который вы хотите выполнить.

С уважением Кит