程序如何获取“文件类型”详细信息？(100分)

程序如何获取“文件类型”详细信息，包括图标、各种操作的程序，就是
“文件夹选项→文件类型” 里面显示的哪些信息。

procedure GetBuildInfo(var V1, V2, V3, V4: Word);
var
VerInfoSize: DWORD;
VerInfo: Pointer;
VerValueSize: DWORD;
VerValue: PVSFixedFileInfo;
Dummy: DWORD;
begin
VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
GetMem(VerInfo, VerInfoSize);
GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
VerQueryValue(VerInfo, '/', Pointer(VerValue), VerValueSize);
with VerValue^ do
begin
V1 := dwFileVersionMS shr 16;
V2 := dwFileVersionMS and $FFFF;
V3 := dwFileVersionLS shr 16;
V4 := dwFileVersionLS and $FFFF;
end;
FreeMem(VerInfo, VerInfoSize);
end;

至于其他的都很好做

5~~~~~~~~~~~~~~~~~~~~~~~~

[]
看HD_Copy的待答问题。

大侠们，看清楚看明白，不是你们说的那么回事吧？
我要文件的图标、用什么程序来打开它等等信息，好象要读注册表才行的，
只是我不能确切的知道它各项的含义。

Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT/wrifile]
@="书写器文档"
[HKEY_CLASSES_ROOT/wrifile/CLSID]
@="{73FDDC80-AEA9-101A-98A7-00AA00374959}"
[HKEY_CLASSES_ROOT/wrifile/DefaultIcon]
@=hex(2):22,00,25,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,69,00,6c,/
00,65,00,73,00,25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,77,00,73,00,20,00,/
4e,00,54,00,5c,00,41,00,63,00,63,00,65,00,73,00,73,00,6f,00,72,00,69,00,65,/
00,73,00,5c,00,57,00,4f,00,52,00,44,00,50,00,41,00,44,00,2e,00,45,00,58,00,/
45,00,22,00,2c,00,32,00,00,00
[HKEY_CLASSES_ROOT/wrifile/shell]
[HKEY_CLASSES_ROOT/wrifile/shell/open]
[HKEY_CLASSES_ROOT/wrifile/shell/open/command]
@="C://Program Files//Windows NT//Accessories//WORDPAD.EXE /"%1/""
[HKEY_CLASSES_ROOT/wrifile/shell/print]
[HKEY_CLASSES_ROOT/wrifile/shell/print/command]
@="C://Program Files//Windows NT//Accessories//WORDPAD.EXE /p /"%1/""
[HKEY_CLASSES_ROOT/wrifile/shell/printto]
[HKEY_CLASSES_ROOT/wrifile/shell/printto/command]
@="C://Program Files//Windows NT//Accessories//WORDPAD.EXE /pt /"%1/" /"%2/" /"%3/" /"%4/""
这是比较好理解的一个，有许多就不容易了。
我的意思我来写个“文件夹选项→文件类型”相似的东西怎么办？

up

呵呵~，关注

多人接受答案了。