如何获取文件属性中的“描述”信息(点右键弹出属性框“文件类型”下面那个)?

Question

不是版本信息中的那个。找了些都是什么隐藏啊啥子的，没找到这个地方的值。这一页上的值怎么取得？
下面是弹出属性页的代码，但是没找到怎么取这些值的代码。
procedure TForm1.Button1Click(Sender: TObject);
var
  filename : string;
  sei : TShellExecuteInfo;
begin
  if opendialog1.Execute then
    begin
        filename:=opendialog1.FileName;
        FillChar(sei,SizeOf(sei),#0);
        sei.cbSize:=SizeOf(sei);
        sei.lpFile:=PChar(filename);
        sei.lpVerb:='properties';
        sei.fMask:=SEE_MASK_INVOKEIDLIST;
        ShellExecuteEx(@sei);
    end;end;

Answer 1

只有可执行文件才有的，这个在文件的版本信息当中。对象的的版本信息可识别名称为"FileDescription"。

Answer 2

有的文件没有版本信息那一页，但是有描述信息。请问DX怎么回事？我查到可以获取版本信息的函数了，但是没有版本信息的EXE，这个描述如何取得？