Überprüfen ob ein bestimmter Pfad ein JPEG ist?

[himitsu]

Also, da man ja die Dateiendung beliebig festlegen/ändern kann und somit kein wirklicher Zusammenhang zwischen Dateinamen und Inhalt vorhanden ist,
würde ich ich einfach die Datei laden und nachsehn was passiert.

z.B. (ist natürlich nur ein Vorschlag und kein wirklich funktionierender Code )

Delphi-Quellcode:

Var J: TJpeg;

Try
  J := TJpeg.Create;
  Try
    J.LoadFile(Pfad);
    Ergebnis := True;
  Except
    Ergebnis := False;
  End;
Finally
  J.Free;
End;
If Ergebnis Then {Ja, es ist ein JPeg}