Ver Mensaje Individual
  #2  
Antiguo 28-11-2023
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.549
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
A mi algo así me funciona correctamente con verisones de EXE's y BPL's compilados con calquer versión de Dlephi.

Código Delphi [-]
var AMajor, AMinor, ABuild: Cardinal;
GetProductVersion(FileName, AMajor, AMinor, ABuild);
memo1.Lines.Text := Format('GetProductVersion %d.%d.%d',[AMajor, AMinor, ABuild]);

NOTA: El adjunto que has puesto solicita permisos para descarga. Deberías eliminar esa restricción.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

Última edición por Neftali [Germán.Estévez] fecha: 28-11-2023 a las 14:12:53.
Responder Con Cita