Von
Hador kommt folgende Funktion, um zu prüfen, ob eine angegebene Datei ein PNG-Bild ist:
Delphi-Quellcode:
function IsPNG(const AFileName: String): Boolean;
var
FileHandle: Integer;
Buffer: array[0..2] of Byte;
begin
FileHandle := FileOpen(AFileName, fmOpenRead);
FileSeek(FileHandle, 1, 0);
FileRead(FileHandle, Buffer, 3);
FileClose(FileHandle);
Result := (Buffer[0] = $50) and (Buffer[1] = $4E) and (Buffer[2] = $47);
end;