Как найти файл на диске?

[Dux]

Второй час роюсь в нете, перебираю разные варианты, однако так и не нашел правильного алгоритма, как найти определенный файл на диске.

К примеру нужно найти файл test.mpg. В случае удачного поиска необходимо вывести путь к этому файлу. Может у кого есть готовый пример?

[eoln]

Тема уже обсуждалась на форуме. Вот переделал чуток своего сыщика для консоли

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure ScanDir(StartDir: string; FileNam: string);
var  SearchRec : TSearchRec;
begin
    if StartDir[Length(StartDir)] <> '\' then
         StartDir := StartDir + '\';
    try
    if FindFirst(StartDir+FileNam, faAnyFile, SearchRec) = 0 then
    repeat   
        if (SearchRec.Attr and faDirectory) <> faDirectory then begin
            writeln(StartDir+SearchRec.Name);
            readln;
            halt
        end;
    until FindNext(SearchRec) <> 0;FindClose(SearchRec);
    except end;
    {разделение по каталогам}
    if FindFirst(StartDir+'*', faAnyFile, SearchRec) = 0 then
    try
    repeat
        if (SearchRec.Attr and faDirectory) = faDirectory then
        if (SearchRec.Name <> '..')
            and (SearchRec.Name <> '.') then
        begin
            ScanDir(StartDir + SearchRec.Name + '\', FileNam);
        end;
    until FindNext(SearchRec) <> 0;FindClose(SearchRec);
    except end;
end;

var
  chrI:char;
begin
  for chrI:='A' to 'Z' do begin
    //if not diskexist(chrI) then continue;
    ScanDir(chrI+':\','test.mpg') //имя файла
  end
end.

[Dux]

Ув. Eoln, спасибо, разобрался!!

[Dux]

Возник следующий вопрос, как найти все файлы на диске, в имени которых присутствует определенное слово, к примеру 'win'?

Уже разобрался в маске надо написать win*.*

[crayzi_skript]

Как можно сделать чтоб поиск не останавливался на первом найденном файле. Допустим я ищу все файлы на диске с названием 1.txt а не один?
Помогите

[саша40]

Вместо большого кода можно использовать FileExists("Полное имя файла"). Оно выдаст True, ecли файл есть и False, если его нет.

[Stilet]

halt убери.

[crayzi_skript]

я в этом не особо разбираюсь, что за halt?

[crayzi_skript]

Сообщение от саша40

Вместо большого кода можно использовать FileExists("Полное имя файла"). Оно выдаст True, ecли файл есть и False, если его нет.

так оно опять же таки даст true и остановится мол вот он файл

[Stilet]

В коде. Там. Присмотрись. Команда halt стоит. Она вызывает завершение работы программы.

        if (SearchRec.Attr and faDirectory) <> faDirectory then begin
            writeln(StartDir+SearchRec.Name);
            readln;
            halt
        end;

Увидел?