Dateityp auslesen

[Balu der Bär]

Also provisorisch geht es erstmal so:

Delphi-Quellcode:

function GetContentType(FileExt: String) : String;
begin
  with TRegistry.Create do
  begin
    try
      Rootkey := HKEY_CLASSES_ROOT;
      if OpenKey(FileExt, True) then
      begin
        result := ReadString('Content Type');
      end;
    finally
      Free;
    end;
  end;
end;

Das Ergebnis ist jedoch nicht unbedingt was ich haben wollte, so bringt eine Abfrage von .txt z.B. text/plain, der Windows Explorer zeigt aber "Testdokument" an. Wie kann ich exakt diesen Wert auslesen? Bei Photoshop-Dateien gibt es nämlich z.B. gar keinen Key "Content Type", sodass dort nichts ausgelesen werden kann.