From: "Peter Below (TeamB)" <100113.1101@compuXXserve.com>
Subject: Re: About Version Build number
Date: 19 Dec 1999 00:00:00 GMT
Message-ID: <VA.00004486.00a8a504@petersnewbox>
Content-Transfer-Encoding: 8bit
References: <83i14f$sp66@forums.borland.com>
Content-Type: text/plain; charset=iso-8859-1
Organization: TeamB
Mime-Version: 1.0
Reply-To: 100113.1101@compuXXserve.com
Newsgroups: borland.public.delphi.vcl.components.using

>
> How to get project version control information inside Delphi Application?
> For example I need Build number.

 procedure GetBuildInfo(var V1, V2, V3, V4: Word);
   { by Steve Schafer }
 var
   VerInfoSize:  DWORD;
   VerInfo:      Pointer;
   VerValueSize: DWORD;
   VerValue:     PVSFixedFileInfo;
   Dummy:        DWORD;
 begin
 VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
 GetMem(VerInfo, VerInfoSize);
 GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
 VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
 with VerValue^ do
   begin
   V1 := dwFileVersionMS shr 16;
   V2 := dwFileVersionMS and $FFFF;
   V3 := dwFileVersionLS shr 16;
   V4 := dwFileVersionLS and $FFFF;
   end;
 FreeMem(VerInfo, VerInfoSize);
 end;

Peter Below (TeamB)  100113.1101@compuserve.com)
No e-mail responses, please, unless explicitly requested!