| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать Номер версии программы [D3, D5]
VladTen © (2002-10-17 10:33:00)Подскажите пожалуйста. Как узнать номер версии программы, которую видать из Свойств файла. Всем заранее благодарен.
VladTen (2002-10-18 10:17:00) [1]Большой сенкс Praco. Очень помог.
Praco (2002-10-17 11:11:00) [2]function GetFileVersion(FileName: string; var Major1, Major2, Minor1, Minor2: Integer): boolean;
var
Info: Pointer;
InfoSize: DWORD;
FileInfo: PVSFixedFileInfo;
FileInfoSize: DWORD;
Tmp: DWORD;
begin
Result:= false;
InfoSize := GetFileVersionInfoSize(PChar(FileName), Tmp);
if InfoSize > 0 then begin
GetMem(Info, InfoSize);
try
GetFileVersionInfo(PChar(FileName), 0, InfoSize, Info);
VerQueryValue(Info, "\", Pointer(FileInfo), FileInfoSize);
Major1 := FileInfo.dwFileVersionMS shr 16;
Major2 := FileInfo.dwFileVersionMS and $FFFF;
Minor1 := FileInfo.dwFileVersionLS shr 16;
Minor2 := FileInfo.dwFileVersionLS and $FFFF;
Result:= true;
finally
FreeMem(Info, FileInfoSize);
end;
end;
end;
VladTen (2002-10-17 10:41:00) [3]А попроще как нибудь нельзя???
Виктор Щербаков (2002-10-17 10:37:00) [4]Эта информация хранится в ресурсах.
См. Resource Functions в SDK
| |
