Как узнать версию уже скомпилированного exe

[Amilman]

Все доброго времени суток.
А вопрос у меня такой как из моей программы узнать версию другой программы?

[Stilet]

http://delphiworld.narod.ru/base/version_info.html
Там только путь к файлу подставь и попробуй.

[Amilman]

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

http://delphiworld.narod.ru/base/version_info.html
Там только путь к файлу подставь и попробуй.

Можете её расписать, если не трудно?

[Yurk@]

я пользуюсь короткой версией:

function GetFileVersion(FileName: string; var VerInfo : TVSFixedFileInfo): boolean;
var
  InfoSize, puLen: DWORD;
  Pt, InfoPtr: Pointer;
begin
  InfoSize := GetFileVersionInfoSize( PChar(FileName), puLen );
  FillChar(VerInfo, SizeOf(TVSFixedFileInfo), 0);
  if InfoSize > 0 then
  begin
    GetMem(Pt,InfoSize);
    GetFileVersionInfo( PChar(FileName), 0, InfoSize, Pt);
    VerQueryValue(Pt,'\',InfoPtr,puLen);
    Move(InfoPtr^, VerInfo, sizeof(TVSFixedFileInfo) );
    FreeMem(Pt);
    Result := True;
  end
  else
    Result := False;
end;

function ShowVersion(FileName:string):string;
var
  VerInfo : TVSFixedFileInfo;
begin
  if GetFileVersion(FileName, VerInfo) then
    Result:=Format('%u.%u.%u.%u',[HiWord(VerInfo.dwProductVersionMS), LoWord(VerInfo.dwProductVersionMS),
      HiWord(VerInfo.dwProductVersionLS), LoWord(VerInfo.dwProductVersionLS)])
  else
    Result:='------';
end;

[Amilman]

Для просмотра использую "Button1.Caption:=ShowVersion(Param str(0));"
А сюда нужно вписатьпуть до программы? VerQueryValue(Pt,'\',InfoPtr,puLen) ;
Если это так то вместо версии выдает набор цифр не относящихся к программе.

[Yurk@]

а

ShowVersion(Application.ExeName);

?

[Amilman]

Сообщение от Yurk@

а

ShowVersion(Application.ExeName);

?

Все также примерно получается что он пишет "3854.4568.1234.5678"

[Человек_Борща]

Все также примерно получается что он пишет "3854.4568.1234.5678"

Ну и правильно все. Это версия вашего EXE. Версия записана в ресурсах VersionInfo.

[Amilman]

Сообщение от Человек_Борща

Ну и правильно все. Это версия вашего EXE. Версия записана в ресурсах VersionInfo.

Но я у другой программы в Delphi сам прописал версию 1.0.0.1 Как тогда узнать именно эту версию?

[Serge_Bliznykov]

Но я у другой программы в Delphi сам прописал версию 1.0.0.1 Как тогда узнать именно эту версию?

А то, что Вам предложили, разве не её читает?
В проводнике Wndows прав.кнопкой мышки на файле, свойства, версия - там что написано?
Если не то, что Вы прописали, тогда Вам прочитать её оттуда, куда Вы её прописали!
Или пропишите туда, куда нужно, или показывайте, куда Вы её записали...