1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

const
  VerInfoNames : array[0..9] of ShortString =
                            ('CompanyName','FileDescription',
                             'FileVersion','InternalName','LegalCopyright',
                             'LegalTradeMarks','OriginalFilename','ProductName',
                             'ProductVersion','Comments');

//************************************************************

procedure GetAllVersionInfo(FileName: String; InfoList : TStringList);
var
  i : integer;
  Info, InfoName, DEInfoName : string;

begin
  for i := 0 to High(VerInfoNames) do
  begin
    InfoName := VerInfoNames[i];
    DEInfoName := DEVerInfoNames[i];
    Info := GetVersionInfo(FileName, InfoName);
    if Length(Info) > 0 then
      Infolist.Add(DEInfoName + Tab + Info);
  end;
end;

//************************************************************