Delphi 中获取文件类型说明

就是根据文件名，获取文件类型说明，如.bat文件，可获取到“Windows 批处理文件”

代码：

var
  FileInfo: TSHFileInfo;
begin
  Result := INFO_UNKOWN_TYPE; //'未知类型'
  try
    SHGetFileInfo(pchar(AFileName), 0, FileInfo, sizeof(FileInfo), SHGFI_TYPENAME);
    Result := FileInfo.szTypeName;
  except
  end;
end;

 

需包含单元ShellAPI。