Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
ВнизКак можно узнать версию программы? Найти похожие ветки
← →
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" может быть переименован.
← →
Думкин © (2004-08-20 10:53) [9]> [8] -SeM- (20.08.04 10:42)
А нестандартные спрашивали?
← →
-SeM- (2004-08-20 10:55) [10]Да я так, к сведению, чтобы человек знал :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.049 c