Q
qutwah
Unregistered / Unconfirmed
GUEST, unregistred user!
function SetFileVer(const DestFileName:string;Info:TFileInfo):Boolean;const SFInfo='/StringFileInfo/';var mSize: Integer; mLen: UINT; mTranslate, mFixV: Pointer; mHExe, mRes: THandle; mVersion: array of Byte; //mFixVersion: VS_FIXEDFILEINFO; mFixVersion1: PVSFixedFileInfo; mLang: PLANGANDCODEPAGE; VersionValue: string;begin mSize := GetFileVersionInfoSize(Pchar(DestFileName), mRes); if mSize>0 then begin SetLength(mVersion, mSize); GetFileVersionInfo(Pchar(DestFileName), mRes, mSize, mVersion);