const
  InfoNum =  10 ;
  InfoStr: array[ 1 ..InfoNum] of string =
    ('CompanyName', 'FileDescription', 'FileVersion', 'InternalName',
     'LegalCopyright', 'LegalTradeMarks', 'OriginalFileName',
     'ProductName', 'ProductVersion_', 'Comments');
var
  S: string;
  n, Len, i: DWORD;
  Buf: PChar;
  Value: PChar;
begin
  S := Application.ExeName;
  n := GetFileVersionInfoSize(PChar(S), n);
  if n >  0  then
  begin
    Buf := AllocMem(n);
    GetFileVersionInfo(PChar(S),  0 , n, Buf);
    for i :=  1  to InfoNum do
      if VerQueryValue(Buf, PChar('StringFileInfo\040904E4\' + InfoStr[i]),
                       Pointer(Value), Len) then begin
        { 040904E4 фигня какая-то 
                0409  - английский язык, при установке русского надо менять
               04E4 - не  знаю}
        // InfoStr[i] -> наименование ключа
        // Value -> значение
      end;
    FreeMem(Buf, n);
  end;
end;