Поиск файла по фразе из него

[Sawoq12]

Доброго времени суток, всем...
Подобная тема уже была, но не совсем раскрыта.
Как осуществить в Delphi поиск файлов содержащих слово или фразу.
Файлы могут быть таких форматов .doc, .xls, .ppt, rtf, .txt и т. п.
Дело том чтобы открывать, загружать, искать, закрывать каждый файл, очень долго. Мне интересно в Windows поиск по такой же схеме происходит.

[Vlad_55]

В Windows файлы индексируются. Механизм примерно как у поисковиков. Вот, что пишут, например, разработчики Windows 7^
http://blogs.msdn.com/e7ru/archive/2...z-windows.aspx
Чудес не бывает, всё равно придётся жертвовать временем, хотя бы даже на создание индекса файлов.

[123q123q123]

Здравствуйте уважаемые программисты!
У меня таже проблема. Делаю электронный учебник, где в TreeView список тем(уроков), при выборе отображаюца в WebBrouser (уроки лежат в папке 1 в каталоге программы в формате .html)
Подскажите пожалуйста как осуществить при вводе в edit слова и нажатии button в данной папке производился поиск и в memo или в ListBox отображался список уроков содержащий данное слово?
Нашел только поиск фалов в дерикториях и поиск слова из файла .txt

вот пример 2го

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  public
    { Public declarations }
  procedure Searching( aSearchWord: string; aFileName : string );
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Searching( aSearchWord: string; aFileName : string );
var
  I : Integer;
  List : TStringList;
begin
  try
    List := TStringList.Create;
    List.LoadFromFile(aFileName);
    for I := 0 to List.Count-1 do
    if System.Pos(aSearchWord, List.Strings[I])<> 0 then
      begin
        Memo1.Lines.LoadFromFile(aFileName);
      end;
  finally
    FreeAndNil(List);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Searching( edit1.Text, 'temp.txt' )
end;

end.

может там какие компоненты специальные существуют?
ну а если это совсем задница то думаю можно и обойтись без поиска
Заранее спасибо!