Форум: "Начинающим";
Текущий архив: 2006.05.21;
Скачать: [xml.tar.bz2];
ВнизInfo для приложения. Найти похожие ветки
← →
Wood (2006-05-03 16:29) [0]Доброй ночи.
В опциях приложения можно установить информацию о exe-файле - такие как FileInfo, Version и т.п.
Как обратиться к этим данным из программы?
Спасибо.
← →
Desdechado © (2006-05-03 16:43) [1]считать как ресурс
← →
Джо © (2006-05-03 16:47) [2]GetFileVersionInfoSize, GetFileVersionInfo, VerQueryValue.
← →
Wood (2006-05-03 16:47) [3]м...м чу-уть подробнее, плз! Это то, что прикомпиливается к приложению ресурсом? Где можно посмотреть на пример обращения к этому ресурсу, что это за ресурс, его формат?
← →
Wood (2006-05-03 16:52) [4]
> Джо © (03.05.06 16:47) [2]
А-а...! Ну, конечно.. Сенкс ба-а-альшой!
← →
Джо © (2006-05-03 16:54) [5]В таком духе:
procedure TForm1.Button1Click(Sender: TObject);
type
TVer1 = record
Minor: Word;
Major: Word;
end;
TVer2 = record
Build: Word;
Release: Word;
end;
var
VerBuf: Pointer;
InfoSize: DWord;
FI: PVSFixedFileInfo;
VerSize: DWORD;
Ver1: TVer1;
Ver2: TVer2;
Dummy: Cardinal;
begin
InfoSize := GetFileVersionInfoSize(Pchar(Application.ExeName),Dummy);
if InfoSize = 0 then
RaiseLastOSError;
GetMem (VerBuf, InfoSize);
try
if not GetFileVersionInfo (Pchar(Application.ExeName),0,InfoSize, VerBuf) then
RaiseLastOSError;
VerQueryValue(VerBuf, "\", Pointer(FI), VerSize);
Ver1 := TVer1(FI.dwFileVersionMS);
Ver2 := TVer2(FI.dwFileVersionLS);
ShowMessageFmt ("%d.%d.%d.%d",
[Ver1.Major,Ver1.Minor,Ver2.Build,Ver2.Release]);
finally
FreeMem (VerBuf);
end;
end;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.05.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.014 c