| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

kvt ©   (2004-08-19 12:28:00) 

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

---

-SeM-   (2004-08-20 10:55:00) [1]

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

---

Думкин   (2004-08-20 10:53:00) [2]

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

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

---

-SeM-   (2004-08-20 10:42:00) [3]

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

---

Думкин   (2004-08-20 07:23:00) [4]

Там в общем следующее:
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;

---

Sergey Kaminski   (2004-08-19 17:20:00) [5]

2 kvt

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

---

kvt   (2004-08-19 14:08:00) [6]

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

---

Думкин   (2004-08-19 12:51:00) [7]

Project -> Options ->.....

---

kvt   (2004-08-19 12:47:00) [8]

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

---

Алхимик   (2004-08-19 12:33:00) [9]

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

---

Думкин   (2004-08-19 12:32:00) [10]

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

---

Наверх