如何得到任意一个文件的文件类型？

[xiaodong]

例如：在资源管理器中选择一个zip文件，单击右键选择“属性”，在“常规”栏中
可以看到该“文件类型”是：WinZip File ，请问如何得到这个“文件类型”信息，
除了一个一个地判断文件的扩展名外有没有更好的办法？谢谢！

[Kingron]

Windows本来就是靠扩展名来判断的。不判断扩展名靠什么？

[Lin]

我用过SHGetFileInfo，完全可以的（SHGFI_TYPENAME）。请看MSDN的帮助。

[Kingron]

自己读取注册表也可以。

[dbpower]

先获得扩展名
然后读注册表
var
MyExt,lx,Key:String;
Reg :TRegistry;
begin
MyExt := GetFileExt(FileName);
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
try
if reg.OpenKey(MyExt,False) then
begin
Key := Reg.ReadString('');
reg.closekey;
if reg.openkey(key,False) then
lx := Reg.readstring('')
else
ShowMessage('未知文件类型！');
end else
ShowMessage('未知文件类型！');
finally
Reg.free;
end;
ShowMessage('文件类型为'+lx);
end;