Hola MAXIUM.
Cita:
Empezado por MAXIUM
...
¿Como puedo obtener la versión de otro ejecutable que obviamente posea dicha información?
...
|
Si te referis a un archivo ejecutable podes hacer:
Código Delphi
[-]
function GetExeVersion(const aFileName: string): string;
var
sz1,sz2: DWord;
P1, P2: Pointer;
begin
if not FileExists(aFileName) then Exit;
sz1:= GetFileVersionInfoSize(PChar(aFileName), sz2);
if sz1 > 0 then
begin
GetMem(p1, sz1);
try
GetFileVersionInfo (PChar(aFileName), 0, sz1, p1);
VerQueryValue(p1, '\', p2, sz2);
with TVSFixedFileInfo(p2^) do
begin
Result:= Format('%d.%d.%d.%d', [HiWord(dwFileVersionMS),
LoWord(dwFileVersionMS),HiWord(dwFileVersionLS),LoWord(dwFileVersionLS)]);
end;
finally
FreeMem(p1);
end;
end;
end;
Uso:
Código Delphi
[-]
ShowMessage(GetExeVersion('C:\Windows\regedit.exe'));
Saludos