Форум: "Основная";
Поиск по всему сайту: 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.036 c
1-57084           Лана Розанова         2002-02-02 05:08  2002.02.18  
Двоичный формат


4-57249           Cossys                2001-12-18 19:01  2002.02.18  
Подскажите описание параметров DrawCaption


3-57028           kserg@ukr.net         2002-01-22 16:22  2002.02.18  
Мне надо в MSSQL задать для моей БД установку SET DATEFORMAT mdy.


3-56994           _РК                   2002-01-09 08:08  2002.02.18  
Нужен совет.


4-57240           BDRON                 2001-12-18 16:30  2002.02.18  
Закрыть другую программу