function GetVersionComponents(const Filename: String; var Major, Minor, Revision, Build: Word): Boolean;
Выполняет чтение отдельных компонентов версии файла, указанного в параметре Filename. В случае успеха функция возвращает значение True, иначе False. Полученные значения компонентов версии передаются соответственно в параметрах Major, Minor, Revision и Build.
function InitializeSetup: Boolean; var Major, Minor, Rev, Build: Word; Msg: String; begin GetVersionComponents('C:\path\MyProg.exe', Major, Minor, Rev, Build); Msg := Format('Version is: %d.%d.%d.%d', [Major, Minor, Rev, Build]); MsgBox(Msg, mbInformation, MB_OK); Result := True; end;