Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Вниз

Как узнать текущую версию приложения... 


tovSuhov   (2002-02-04 08:06) [0]

В ФАК-ах ничего не нашел...
Имеется ввиду версия разрабатываемого приложения (а не сторонней программы)...
Заранее благодарен.



Юрий Федоров   (2002-02-04 10:05) [1]

type
TFileVersion = record
Major : integer;
Minor : integer;
Release : integer;
Build : integer;
AsString : string;
end;

function GetFileVersion(fName:String;var ver:tFileVersion):Boolean;
var str :pVSFixedFileInfo;
FvSize:dWord;
s :AnsiString;
{$ifdef ver100}
h :integer;
{$else}
h :Cardinal;
{$Endif}
p :Pointer;
begin
result:=false;
s:=fName;
FvSize:=GetFileVersionInfoSize(pChar(s),h);
if FvSize<>0 then
begin
GetMem(p,fvSize);
if GetFileVersionInfo(pChar(s),0,Fvsize,p) then
begin
if VerQueryValue(p,"\",Pointer(str),h) then
begin
ver.Major := HiWord(str.dwFileVersionMS);
ver.Minor := LoWord(str.dwFileVersionMS);
ver.Release:= HiWord(str.dwFileVersionlS);
ver.Build := LoWord(str.dwFileVersionlS);
ver.AsString:=IntToStr(ver.Major) +"."+
IntToStr(ver.Minor) +"."+
IntToStr(ver.Release)+"."+
IntToStr(ver.Build);
result:=true;
end;
end;
freeMem(p,FvSize);
end;
end;

Проверь, код очень старый, может оказаться какая-то лажа




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.021 c
1-57046           Амелин Вадим          2002-02-04 11:34  2002.02.18  
Одновременное нажатие двух кнопок мыши


4-57272           ВС                    2001-12-19 12:58  2002.02.18  
Может это уже спрашивали, но осмелюсь спросить еще раз!


4-57253           GOSHAT                2001-12-19 01:18  2002.02.18  
DELPHI, WIN API


1-57069           novomod               2002-01-31 14:24  2002.02.18  
HELP. Алгоритм.


6-57165           Zharik                2001-11-28 12:41  2002.02.18  
Как в Delphi пройти через прокси-сервер, в котором есть имя и пароль?