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

← →
kvt (2004-08-19 12:28) [0]

Как программно можно узнать версию программы выставляемой в OPTIONS->VERSION INFO у проекта? Например при запуске программы в Caption окна писать название программы плюс версия. А не писать этот caption вручную постоянно.

← →
Думкин © (2004-08-19 12:32) [1]

Options -> Version Info - > Help -> Reading version information -> Delphi example - > Наслаждение.

← →
Алхимик © (2004-08-19 12:33) [2]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621696&n=15
?

← →
kvt (2004-08-19 12:47) [3]

Думкин -и где вы это откопали.. У меня нету

← →
Думкин © (2004-08-19 12:51) [4]

Project -> Options ->.....

← →
kvt (2004-08-19 14:08) [5]

в пятой дельфе нету такого

← →
Sergey Kaminski © (2004-08-19 17:20) [6]

2 kvt

Хочешь, намылю свой юнит для этих (и чуть более продвинутых) целей. Положил бы в кладовку, да не работает...

← →
Думкин © (2004-08-20 07:23) [7]

Там в общем следующее:
procedure TForm1.Button1Click(Sender: TObject); 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); Memo1.Lines.Add("VersionInfoSize = " + IntToStr(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 Memo1.Lines.Add(InfoStr[i] + " = " + Value); FreeMem(Buf, n); end else Memo1.Lines.Add("No version information found"); end;

← →
-SeM- (2004-08-20 10:42) [8]

Думкин © (20.08.04 07:23) [7]
Только так можно прочитать только стандартные значения и "Comments" может быть переименован.

> [8] -SeM- (20.08.04 10:42)

А нестандартные спрашивали?

← →
-SeM- (2004-08-20 10:55) [10]

Да я так, к сведению, чтобы человек знал :)

Как можно узнать версию программы? Найти похожие ветки