Показать сообщение отдельно
  #2  
Старый 22.02.2019, 19:51
Аватар для Lothlorien
Lothlorien Lothlorien вне форума
Новичок
 
Регистрация: 06.04.2011
Адрес: Солнечная система
Сообщения: 69
Версия Delphi: 7.0
Репутация: 12
По умолчанию

Пардон, проблема решена самостоятельно. Покопался в модуле Graphics и скомбинировал функцию проверки:

Код:
function IsBitmap(const FileName: string): boolean;
var Bmf: TBitmapFileHeader;
    S: TStream;
begin
  S:=TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  S.ReadBuffer(Bmf, SizeOf(Bmf));
  Result:=Bmf.bfType = $4D42;
  S.Free;
end;
__________________
Ne timeas obscurum.
Ответить с цитированием