Вопрос по поводу поиск файлов

[Arxangelname]

Всем привет и спасибо заранее.
У меня такой вопрос мне нужно искать файл JPeg везде т.е. на всем компьютере при нажатии на кнопку как это сделать.
По определенной директории я знаю как искать.
У меня есть один исходник но он просто ищет все а файлов то не мало и прога застывает короче не работает а может что то надо переделать
Вот код:

uses
Masks;

procedure Scan(s: string);
var
  sr: TSearchRec;
  r: integer;
  OldDir: string;
begin
  {$I-}
  ChDir (s);
  {$I+}
  if IoResult = 0 then begin
    try
      r := FindFirst ('*.jpeg', faAnyFile, sr);
      while r = 0 do begin
        if (sr.Name = '*.Jpeg') and (sr.Name = '*.jpg') then begin
          Form1.Label1.Caption := ExpandFileName (sr.Name);
          Form1.Label1.Update;
          if (faDirectory and sr.Attr) = faDirectory then begin
            OldDir := GetCurrentDir;
            Scan (ExpandFileName (sr.Name));
            ChDir (OldDir);
          end else begin
            if MatchesMask (sr.Name, Form1.Edit1.Text) then
              Form1.sListBox1.Items.Add (ExpandFileName (sr.Name));
          end;
        end;
        r := FindNext (sr);
      end;
    finally
      FindClose (sr);
    end;
  end;
end;
 
procedure Search;
var
  DriveNum: Integer;
  DriveChar: Char;
  DriveBits: set of 0..25;
 
begin
  Form1.sListBox1.Clear;
  Integer(DriveBits) := GetLogicalDrives;
  for DriveNum := 0 to 25 do begin
  if not (DriveNum in DriveBits) then
    Continue;
    DriveChar := Char(DriveNum + Ord('a'));
    Scan (DriveChar + ':\');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Search;
end;

У нас принято оформлять код специальным тэгом - кнопочка "#".
Модератор

[Пепел Феникса]

ну правильно...файлов то не мало на всем компе.

многопоточность вас спасет.
хотя можно еще юзать Application.ProcessMessages

[Marsel737]

Arxangelname, я так понимаю что ты имел ввиду - этот код ищет все картинки формата jpg, тогда при первом взгляде на исходник возникает мысль что нужно вместо

r := FindFirst ('*.jpeg', faAnyFile, sr);
while r = 0 do begin
if (sr.Name = '*.Jpeg') and (sr.Name = '*.jpg') then begin

писать

r := FindFirst ('Имя нужной картинки.jpeg', faAnyFile, sr);
while r = 0 do begin
if (sr.Name = 'Имя нужной картинки.Jpeg') and (sr.Name = 'Имя нужной картинки.jpg') then begin

хотя могу ошибаться

[Arxangelname]

А вообще есть какой ни будь другой код подскажите пожалуйста

[Пепел Феникса]

вверху есть кнопка поиск.
примеров кода тут тысячи наверно.

я для ся уже давно модуль составил:P

[Arxangelname]

вот именно что много а то что надо нету везде надо директорию писать

[Пепел Феникса]

я вам дал подсказки в своем посте.

[Greek9000]

У меня есть подозрение, что автору необходимо часто искать у себя на жестком диске различные картинки. (В самом деле, зачем писать программу для поиска одного конкретного файла, если можно
нажать F3 ?!).
Если я не прав - поправьте меня, в противном случае можно порекомендовать создание индексного списка. Т.е. создаёте базу данных в любой удобной СУБД, в ней создаёте таблицу в которой будут храниться пути до всех Ваших картинок, правильно индексируете эту таблицу и наслаждаетесь скоростью поиска. Правда, один раз придётся потратить час-полтора на поиск всех картинок на диске.