🚀 go-pugleaf

Ok.

Thanks;

"Ronaldo Souza" <nospam@nospam.org.zz> escreveu na mensagem
news:400C47AB.8000600@nospam.org.zz...
> Try this:
> function GetProgramDescription(FName : string) : string;
> var
>    W1,W2                          : Word;
>    Dummy,VerInfoSize,VerValueSize : DWORD;
>    VerInfo                        : Pointer;
>    VerValue                       : PVSFixedFileInfo;
>    s,TranlationStr                : string;
> begin
>    Result := StrDescriptionNotAvailable; //const declared elsewere
>    if (FName <> '')
>      then begin
>             VerInfoSize := GetFileVersionInfoSize(PChar(FName),Dummy);
>             GetMem(VerInfo,VerInfoSize);
>             GetFileVersionInfo(PChar(FName),0,VerInfoSize,VerInfo);
>             if
>
VerQueryValue(VerInfo,'\VarFileInfo\Translation',Pointer(VerValue),VerValueS
ize)
>               then begin   //swap words
>                      Dummy := DWord(Pointer(VerValue)^);
>                      W1 := Dummy shr 16;
>                      W2 := Dummy and $FFFF;
>                      Dummy := (DWord(W2) shl 16)+W1;
>                      TranlationStr := IntToHex(Dummy,8);
>                    end
>               else TranlationStr := '040904E4';
>             if
>
VerQueryValue(VerInfo,PChar('StringFileInfo\'+TranlationStr+'\FileDescriptio
n'),Pointer(VerValue),VerValueSize)
>               then s := PChar(VerValue)
>               else if
>
VerQueryValue(VerInfo,'StringFileInfo\040904E4\FileDescription',Pointer(VerV
alue),VerValueSize)
>                      then s := PChar(VerValue)
>                      else if
>
VerQueryValue(VerInfo,'StringFileInfo\041604E4\FileDescription',Pointer(VerV
alue),VerValueSize)
>                             then s := PChar(VerValue)
>                             else s := '';
>             s := Trim(s);
>             if (s = '')
>               then s := StrDescriptionNotAvailable;
>             Result := s;
>             FreeMem(VerInfo,VerInfoSize);
>           end;
> end;
>