Hola a todos, estoy trabajando con Delphi 11 comunity, anteriormente estaba usando delphi 10.3 comunity
Yo he creado un bpl, cada vez que hago un ajuste realizo el cambio de versión.
Tengo un programa que me lee la versión de la bpl, este es el codigo
Código Delphi
[-]
procedure TFrmPrincipal.mniSelecionandoRutaClick(Sender: TObject);
var
FileName, Dir,
MsgUsr, MsgApp : String;
begin
Dir := 'C:\';
FileCtrl.SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP);
FileName := Dir+ '\Servicios.bpl';
if (FileName <> EmptyStr) and (FileExists(FileName)) then
begin
MsgApp := 'GetFileVersion';
MsgUsr := Format('%s v%s',[ExtractFileName(FileName),GetFileVersion(FileName)]);
MessageBox(Handle, PChar(MsgUsr), PChar(MsgApp), MB_OK + MB_ICONINFORMATION);
end
else
Application.MessageBox('No se encuentra Servicios.bpl en la ruta',
'GetFileVersion', MB_OK + MB_ICONSTOP);
end;
Resulta que si leo una bpl que compile con delphi10.3 me lee de manera correcta la versión, pero si leo una bpl que compile con delphi11 me carga la ultima versión que compile con delphi 10 (1.1.0.4)
No se si me haga entender
Tengo las versiones;
(compilada con delphi 10.3) 1.1.0.1 me la lee bn
(compilada con delphi 10.3)1.1.0.2 me la lee bn
(compilada con delphi 10.3)1.1.0.3 me la lee bn
(compilada con delphi 10.3)1.1.0.4 me la lee bn
(compilada con delphi 11)1.1.0.5 me la lee con versión 1.1.0.4
(compilada con delphi 11)1.1.0.6 me la lee con versión 1.1.0.4
Adjunto el programa que lee la versión y las bpls
https://drive.google.com/file/d/1gkE...usp=drive_link