¿GetFileVersionInfo modifica su primer parámetro? (FileName, la ruta de archivo dada)

[Casimiro Noteví]

Yo uso esa función desde hace muchos años en todos los proyectos y nunca he tenido problemas de ese tipo, (sólo la he usado en winXP con D7 y D2007)

[roman]

Pero, ¿usas directamente la API de Windows o la función de la unidad SysUtils?

// Saludos

[dec]

O sea, que, mi respuesta mi mirarla siquiera.

[Casimiro Noteví]

Empezado por roman

Pero, ¿usas directamente la API de Windows o la función de la unidad SysUtils?
// Saludos

Ahí me has pillado... voy a ver...
Es la que está implementada en 'windows'; y es este código horroroso:

Código Delphi [-]
function getmVersion(cExe:string='') : string;
var
  InfoSize, H, RsltLen: cardinal;
  VersionBlock: pointer;
  Rslt: PVSFixedFileInfo;
begin
  if (cExe='') or (not FileExists(cExe)) then
    cExe := Application.ExeName;
  //
  //InfoSize := GetFileVersionInfoSize(PChar(Application.ExeName), H);
  InfoSize := GetFileVersionInfoSize(pChar(cExe), H);
  VersionBlock := AllocMem(InfoSize);
  try
    //GetFileVersionInfo(pChar(Application.ExeName), H, InfoSize, VersionBlock);
    GetFileVersionInfo(pChar(cExe), H, InfoSize, VersionBlock);
    VerQueryValue(VersionBlock, '\', Pointer(Rslt), RsltLen);
    result := Format('%d.%d.%d.%d', [
    Rslt.dwProductVersionMS div 65536,
    Rslt.dwProductVersionMS mod 65536,
    Rslt.dwProductVersionLS div 65536,
    Rslt.dwProductVersionLS mod 65536]);
  finally
    FreeMem(VersionBlock);
  end;
end;

[dec]

P.D. Perdona Al,... algún moderador serio puede borrar los mensajes que considere oportuno. No presentaré queja.

[roman]

Empezado por dec

algún moderador serio puede borrar los mensajes que considere oportuno.

En estos momentos no contamos con ese tipo de moderadores

// Saludos

[roman]

Por cierto, no sé a quién iban dirigidas las fanfarrias, pero en un sano ejercicio de autoestima ya las he escuchado varias veces

// Saludos

[dec]

Hola,

Las fanfarrías de la Diana iban, sin lugar a duda alguna, dirigidas a un humilde servidor de ustedes.

[[Al González]]

Todo esto es muy extraño, incluyendo exquisita música del video.

Tu teoría es cuando menos interesante, David, puede que por ahí vayan los tiros.

A ver, paso siguiente: ¿podrían ayudarme a averiguar en qué versión de Delphi apareció la función GetFileVersion y desde cuándo tiene ese comentario de "GetFileVersionInfo modifies the filename..."?

Vamos, aquellos que tengan Delphis anteriores al 7, ¿podrían por favor abrir la unidad SysUtils.pas para verificar esto? Creo que esa unidad no existía en las primeras versiones, pero en esos casos y hasta para más seguridad está la alternativa de buscar GetFileVersion con Find in Files sobre los fuentes de la RTL / VCL (C:\Archivos de programa\Borland\DelphiX\Source, marcando la opción "Include subdirectories").

Muchas gracias.

[roman]

Pues ahí está. Usas la API directamente. Si no te ha dado problemas nunca es de suponerse que el programador original en SysUtils estaba pensando en alguna otra cosa

// Saludos