como obtengo la version de mi aplicacion?

[squenda]

Gracias por tu respuesta Ohcan, funciona muy bien, el problema es que me muestra efectivamente la version pero solo con tres caracteres ejemplo: "2.1" y yo necesito que me muestre todos los caracteres ejemplo "2.1.0.1".

Gracias y saludos

[marcoszorrilla]

Haz este cambio:

Código Delphi [-]
if v3<>0 then Result := Result + '.' + IntToStr(v3)+'.' + IntToStr(v4);
except

Un Saludo.

[squenda]

Gracias, ya funciona como lo necesitaba, lo que hice fue quitar la condicion If y al Result le asigne los cuatro valores

try
GetBuildInfo(v1,v2,v3,v4);
Result := IntToStr(v1) + '.' + IntToStr(v2) + '.' + IntToStr(v3) + '.' + IntToStr(v4);
except
Result := '';
end;


Muchar Gracias

Saludos