маска файла

[BESS]

необходимо найти в директории только граффические файлы
ищи вот таким образом
маска *.* все файлы

FindFirst(localgraph+'\*.*',faAnyFile+(NOT faDirectory),SR)

какую маску нужно указать это чтоб найти только графические файлы
gif jpeg png bmp ?

[Serge_Bliznykov]

только ручками?

var s : string;
  SR : TSearchRec;
  isFound : integer; // результат
begin
 isFound := FindFirst('*.*',faAnyFile+(NOT faDirectory),SR);
 while (isFound = 0 ) do begin
   s := UpperCase(ExtractFileExt(SR.Name));
   if (s = '.GIF') or (s = '.JPEG') or (s = '.PNG') or  (s = '.BMP')
   then begin
     ShowMessage(SR.Name);
   end;
   isFound := FindNext(sr);
 end;
 FindClose(sr)
end;