Home » Tipps & Tricks » Dateien/Verzeichnisse » Dateieigenschaften » Dateityp ermitteln

Dateityp ermitteln

Im Windows-Explorer wird jeder Dateityp mit einem kurzen Text beschrieben. Dieser Text lässt sich mit folgender Funktion ermitteln:

uses ShellApi;

function GetFileTypename(const Filename: string): string;
var Info: TSHFileInfo;
begin
  if SHGetFileInfo(PChar(Filename), 0, Info, SizeOf(Info), SHGFI_TYPENAME)  0 then
    Result := Info.szTypeName
  else
    Result := '';
end;