4895
社区成员
如何得到任意一个文件的文件类型？
例如：在资源管理器中选择一个zip文件，单击右键选择“属性”，在“常规”栏中
可以看到该“文件类型”是：WinZip File ，请问如何得到这个“文件类型”信息，
除了一个一个地判断文件的扩展名外有没有更好的办法？谢谢！
可以看到该“文件类型”是：WinZip File ，请问如何得到这个“文件类型”信息，
除了一个一个地判断文件的扩展名外有没有更好的办法？谢谢！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
dbpower 2001-04-17
先获得扩展名
然后读注册表
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;
然后读注册表
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;
Kingron 2001-04-17
自己读取注册表也可以。
Lin 2001-03-16
我用过SHGetFileInfo，完全可以的（SHGFI_TYPENAME）。请看MSDN的帮助。
Kingron 2001-03-13
Windows本来就是靠扩展名来判断的。不判断扩展名靠什么？
龙口市兰高镇六年级数学上册第二章有理数及其计算习题归类五（有理数的乘方计算）同步测试试题（无答案）鲁教版五四制.docx 龙口市兰高镇六年级数学上册第二章有理数及其计算习题归类五（有理数的乘方计算）同步测试试题（无答案）鲁教版五四制.docx
九年级数学上册 第23章 图形的相似 23.1 成比例线段 23.1.2 平行线分线段成比例导学案（无答案）.docx 九年级数学上册 第23章 图形的相似 23.1 成比例线段 23.1.2 平行线分线段成比例导学案（无答案）.docx
九年级数学上册 第22章 一元二次方程 22.2 一元二次方程的解法 22.2.2 配方法同步练习3 .docx 九年级数学上册 第22章 一元二次方程 22.2 一元二次方程的解法 22.2.2 配方法同步练习3 .docx
龙口市兰高镇六年级数学上册第二章有理数及其运算计算能力提升训练题六（有理数混合运算）（无答案）鲁教版五四制.docx 龙口市兰高镇六年级数学上册第二章有理数及其运算计算能力提升训练题六（有理数混合运算）（无答案）鲁教版五四制.docx
龙口市兰高镇七年级数学上册第一章三角形1.5利用全等三角形测距离导学案（无答案）鲁教版五四制.docx 龙口市兰高镇七年级数学上册第一章三角形1.5利用全等三角形测距离导学案（无答案）鲁教版五四制.docx
