Узнать версию IE

[indexx]

Какой смысл лезть в реестр за путём, чтоб потом идти по этому пути и выдёргивать версию из exe, если можно сразу в реестре глянуть версию? Какой путь оптимальнее?

А зачем реестр? Путь к Program Files и без реестра узнается через винапи

А WinApi откуда путь берёт? Не из реестра ли?

[min@y™]

будь мужиком признать.

Признаю. Я - мужик. Чо дальше-то?
В данном случае нинада никакой реестр, т.к. IE торчит всегда в папке

%SYSTEMDRIVE%\Program Files\Internet Explorer

Какой смысл лезть в реестр за путём, чтоб потом идти по этому пути и выдёргивать версию из exe, если можно сразу в реестре глянуть версию?

Вопрос аффтара перечитай, гений мля, он говорит, что в реестре неверная инфа!

[indexx]

Признаю. Я - мужик. Чо дальше-то?

Дальше ты тряпка, ибо цитируешь кусок фразы, меняя её смысл. С тряпками говорить, и тем более спорить нет смысла.

[Alex11223]

А WinApi откуда путь берёт? Не из реестра ли?

Какая разница? Он-то уж точно разрулит где нужные значения в реестре.

[min@y™]

Дальше ты тряпка, ибо цитируешь кусок фразы, меняя её смысл. С тряпками говорить, и тем более спорить нет смысла.

Не передёргивай. Настало время тебе признать, что ты не прав.
Мне пришлось доказывать свою правоту, я это сделал.
Твой ход.

[indexx]

Правоту ты свою не доказал тряпка. %SYSTEMDRIVE% это системная переменная, получаемая угадай откуда. Более мне с тобой говорить не о чем, тряпка.

[min@y™]

Правоту ты свою не доказал тряпка. %SYSTEMDRIVE% это системная переменная, получаемая угадай откуда. Более мне с тобой говорить не о чем, тряпка.

Собака лает - караван идёт.
Автор, я в каментах срать не стал, сходил пообедал, повалялся на диване, а заодно тебе пример написал.

program p266870;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

function QueryString(const EntryName: string; pInfoBuffer: Pointer): String;
var
  Buffer: array[0..255] of Char;
  FuncSize, Size, LangCharset: UINT;
  Ptr: Pointer;
  Translation: string;
begin
   Result:= '';

   VerQueryValue(pInfoBuffer, '\VarFileInfo\Translation', Ptr, Size);
   LangCharset:= pCardinal(Ptr)^;
   Translation := Format('%4.4x%4.4x',[LangCharset and $FFFF,  HiWord(LangCharset)]);

   StrPCopy(Buffer, '\StringFileInfo\' + Translation + '\' + EntryName);
   if VerQueryValue(pInfoBuffer, Buffer, Ptr, FuncSize) then
     Result := StrPas(PChar(Ptr));
end;

function GetFileVersion(const FileName: string): string;
var
  ExePath: PChar;
  Size: Cardinal;
  Buffer: PChar;
begin
  Result:= 'not available.';
  ExePath:= PChar(FileName);
  Size:= GetFileVersionInfoSize(ExePath, Size);

  if Size = 0
    then Exit;

  Buffer:= StrAlloc(Size + 1);
  try
    if not GetFileVersionInfo(ExePath, 0, Size, Buffer)
      then Exit;
    Result:= QueryString('FileVersion', Buffer);
  finally
    StrDispose(Buffer);
  end;
end;

function SystemHostDrive: Char;
var
   SysDir: array[0..MAX_PATH - 1] of Char;
begin
   GetWindowsDirectory(SysDir, MAX_PATH+1);
   result:= SysDir[0];
end;

var
  IEName: string;

begin
  IEName:= SystemHostDrive + ':\Program Files\Internet Explorer\iexplore.exe';
  WriteLn('Current IE version: ', GetFileVersion(IEName));
  ReadLn;
end.

Отлажено на Delphi 7 + Windows 8.1x64.

[Пепел Феникса]

Сообщение от indexx

Правоту ты свою не доказал тряпка. %SYSTEMDRIVE% это системная переменная, получаемая угадай откуда. Более мне с тобой говорить не о чем, тряпка.

это переменная окружения, которая уже лежит в вашем приложении между прочим.
в систему за ней лезть не нужно.