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.
