Ver Mensaje Individual
  #1  
Antiguo 25-09-2013
agustibaldo agustibaldo is offline
Miembro
 
Registrado: nov 2006
Posts: 105
Reputación: 18
agustibaldo Va por buen camino
Caracteres extraños al ejecutar función <GetFileVersionInfo>

Gente de ClubDelphi, les consulto por un problema que tengo.
Al ejecutar mi aplicación tengo un splash que muestra información sobre el nombre de la aplicación, el nro de versión, etc.
Al mostrar el nombre de la aplicación mediante la siguiente función:

Código Delphi [-]
function fncGetAppDescripcion:string;
var
  Size, Size2: DWord;
  Pt, Pt2: Pointer;
  zKeyPath : array[0..255] of Char;
begin
  try
      Size := GetFileVersionInfoSize(PChar(ParamStr(0)), Size2);
      if Size > 0 then
      begin
         GetMem (Pt, Size);
         try
            GetFileVersionInfo(PChar(ParamStr(0)), 0, Size, Pt);
            VerQueryValue(Pt, StrPCopy(zKeyPath,'\\StringFileInfo\\2C0A04E4\\FileDescription'), Pt2, Size2);
        Result := PWideChar(Pt2);
         finally
            FreeMem (Pt);
         end;
      end;
  except
    Result := Application.Title;
  end;
end;

me entrega la siguiente cadena de caracteres:

Código:
'◿ᅠ瞯邐邐ミ'#$D825'꼐遷邐邐ヒ譕诬'#$0C45'䶋樈─'#$FFFF'ÿ児ꗨ!崀'#$08C2'退邐邐쀳ԸȨ瞯锏쏀邐邐ミ쀥꼑遷邐邐◿ᄰ瞯횋'#$1CE9'C退邐邐啓'#$DB33'喋謄E¹'#$FF00#$0BFF'瓀윏M孝郃啓㌈觀␄ꅤ0'
Estoy usando XE3 sobre Windows 7.
Alguno puede darme una mano con esto?
Desde ya, muchas gracias!
Responder Con Cita