tokyo - delphi xe2

Cómo determinar la versión de la aplicación Delphi

Question

Desea obtener el número de compilación de la aplicación Delphi y publicarlo en la barra de título

Answer 1

Así es como lo hago. Puse esto en casi todas mis pequeñas utilidades:

procedure GetBuildInfo(var V1, V2, V3, V4: word);
var
VerInfoSize, VerValueSize, Dummy: DWORD;
VerInfo: Pointer;
VerValue: PVSFixedFileInfo;
begin
VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
if VerInfoSize > 0 then
begin
GetMem(VerInfo, VerInfoSize);
try
if GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo) then
begin
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;
end;
finally
FreeMem(VerInfo, VerInfoSize);
end;
end;
end;
function GetBuildInfoAsString: string;
var
V1, V2, V3, V4: word;
begin
GetBuildInfo(V1, V2, V3, V4);
Result := IntToStr(V1) + ''.'' + IntToStr(V2) + ''.'' +
IntToStr(V3) + ''.'' + IntToStr(V4);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption := Form1.Caption + '' - v'' + GetBuildInfoAsString;
end;

Answer 2

De http://www.martinstoeckli.ch/delphi/delphi.html#AppVersion

Con esta función, puede obtener la versión de un archivo, que contiene un recurso de versión. De esta forma, puede mostrar el número de versión de su aplicación en un diálogo de información. Para incluir un recurso de versión en su aplicación Delphi, configure "Versioninfo" en las opciones del proyecto.

Answer 3

Gracias a las publicaciones anteriores, hice mi propia biblioteca para este propósito.

Creo que es un poco más correcto que todas las otras soluciones aquí, así que lo comparto, siéntete libre de reutilizarlo ...

unit KkVersion;
interface
function FileDescription: String;
function LegalCopyright: String;
function DateOfRelease: String; // Proprietary
function ProductVersion: String;
function FileVersion: String;
implementation
uses
Winapi.Windows, System.SysUtils, System.Classes, Math;
(*
function GetHeader(out AHdr: TVSFixedFileInfo): Boolean;
var
BFixedFileInfo: PVSFixedFileInfo;
RM: TMemoryStream;
RS: TResourceStream;
BL: Cardinal;
begin
Result := False;
RM := TMemoryStream.Create;
try
RS := TResourceStream.CreateFromID(HInstance, 1, RT_VERSION);
try
RM.CopyFrom(RS, RS.Size);
finally
FreeAndNil(RS);
end;
// Extract header
if not VerQueryValue(RM.Memory, ''//', Pointer(BFixedFileInfo), BL) then
Exit;
// Prepare result
CopyMemory(@AHdr, BFixedFileInfo, Math.Min(sizeof(AHdr), BL));
Result := True;
finally
FreeAndNil(RM);
end;
end;
*)
function GetVersionInfo(AIdent: String): String;
type
TLang = packed record
Lng, Page: WORD;
end;
TLangs = array [0 .. 10000] of TLang;
PLangs = ^TLangs;
var
BLngs: PLangs;
BLngsCnt: Cardinal;
BLangId: String;
RM: TMemoryStream;
RS: TResourceStream;
BP: PChar;
BL: Cardinal;
BId: String;
begin
// Assume error
Result := '''';
RM := TMemoryStream.Create;
try
// Load the version resource into memory
RS := TResourceStream.CreateFromID(HInstance, 1, RT_VERSION);
try
RM.CopyFrom(RS, RS.Size);
finally
FreeAndNil(RS);
end;
// Extract the translations list
if not VerQueryValue(RM.Memory, ''//VarFileInfo//Translation'', Pointer(BLngs), BL) then
Exit; // Failed to parse the translations table
BLngsCnt := BL div sizeof(TLang);
if BLngsCnt <= 0 then
Exit; // No translations available
// Use the first translation from the table (in most cases will be OK)
with BLngs[0] do
BLangId := IntToHex(Lng, 4) + IntToHex(Page, 4);
// Extract field by parameter
BId := ''//StringFileInfo//' + BLangId + ''//' + AIdent;
if not VerQueryValue(RM.Memory, PChar(BId), Pointer(BP), BL) then
Exit; // No such field
// Prepare result
Result := BP;
finally
FreeAndNil(RM);
end;
end;
function FileDescription: String;
begin
Result := GetVersionInfo(''FileDescription'');
end;
function LegalCopyright: String;
begin
Result := GetVersionInfo(''LegalCopyright'');
end;
function DateOfRelease: String;
begin
Result := GetVersionInfo(''DateOfRelease'');
end;
function ProductVersion: String;
begin
Result := GetVersionInfo(''ProductVersion'');
end;
function FileVersion: String;
begin
Result := GetVersionInfo(''FileVersion'');
end;
end.

Answer 4

Hacemos esto para todas nuestras aplicaciones, pero usamos un componente de Raize, RzVersioninfo. funciona bastante bien solo necesita usar el siguiente código

en la forma de crear

Leyenda: = RzVersioninfo1.filedescripion + '':'' + RzVersionInfo1.FileVersion;

obviamente, si no desea que ninguno de los otros componentes funcione, use una de las opciones anteriores, ya que los componentes de Raize tienen un costo.

Answer 5

Pase el nombre de archivo completo de su EXE a esta función, y devolverá una cadena como: 2.1.5.9, o cualquiera que sea su versión #.

function GetFileVersion(exeName : string): string;
const
c_StringInfo = ''StringFileInfo/040904E4/FileVersion'';
var
n, Len : cardinal;
Buf, Value : PChar;
begin
Result := '''';
n := GetFileVersionInfoSize(PChar(exeName),n);
if n > 0 then begin
Buf := AllocMem(n);
try
GetFileVersionInfo(PChar(exeName),0,n,Buf);
if VerQueryValue(Buf,PChar(c_StringInfo),Pointer(Value),Len) then begin
Result := Trim(Value);
end;
finally
FreeMem(Buf,n);
end;
end;
end;

Después de definir eso, puede usarlo para configurar el título de su formulario de la siguiente manera:

procedure TForm1.FormShow(Sender: TObject);
begin
//ParamStr(0) is the full path and file name of the current application
Form1.Caption := Form1.Caption + '' version '' + GetFileVersion(ParamStr(0));
end;

Answer 6

Recomiendo encarecidamente no utilizar GetFileVersion cuando quiera saber la versión del ejecutable que se está ejecutando actualmente. Tengo dos buenas razones para hacer esto:

1. El ejecutable puede ser inaccesible (unidad desconectada / compartir) o cambiado (.exe renombrado a .bak y reemplazado por un nuevo .exe sin que se detenga el proceso en ejecución).
2. Los datos de la versión que está tratando de leer ya se han cargado en la memoria y están disponibles para usted cargando este recurso, que siempre es mejor que realizar operaciones de disco adicionales (relativamente lentas).

Para cargar el recurso de versión en Delphi, uso un código como este:

uses Windows,Classes,SysUtils;
var
verblock:PVSFIXEDFILEINFO;
versionMS,versionLS:cardinal;
verlen:cardinal;
rs:TResourceStream;
m:TMemoryStream;
p:pointer;
s:cardinal;
begin
m:=TMemoryStream.Create;
try
rs:=TResourceStream.CreateFromID(HInstance,1,RT_VERSION);
try
m.CopyFrom(rs,rs.Size);
finally
rs.Free;
end;
m.Position:=0;
if VerQueryValue(m.Memory,''/',pointer(verblock),verlen) then
begin
VersionMS:=verblock.dwFileVersionMS;
VersionLS:=verblock.dwFileVersionLS;
AppVersionString:=Application.Title+'' ''+
IntToStr(versionMS shr 16)+''.''+
IntToStr(versionMS and $FFFF)+''.''+
IntToStr(VersionLS shr 16)+''.''+
IntToStr(VersionLS and $FFFF);
end;
if VerQueryValue(m.Memory,PChar(''//StringFileInfo//'+
IntToHex(GetThreadLocale,4)+IntToHex(GetACP,4)+''//FileDescription''),p,s) or
VerQueryValue(m.Memory,''//StringFileInfo//040904E4//FileDescription'',p,s) then //en-us
AppVersionString:=PChar(p)+'' ''+AppVersionString;
finally
m.Free;
end;
end;