delphi - Get FileVersion with Build -


delphixe.

for reception of version of file use function:

function fileversion(afilename: string): string; var   szname: array[0..255] of char;   p: pointer;   value: pointer;   len: uint;   gettranslationstring: string;   ffilename: pchar;   fvalid: boolean;   fsize: dword;   fhandle: dword;   fbuffer: pchar; begin   try     ffilename := strpcopy(stralloc(length(afilename) + 1), afilename);     fvalid := false;     fsize := getfileversioninfosize(ffilename, fhandle);     if fsize > 0     try       getmem(fbuffer, fsize);       fvalid := getfileversioninfo(ffilename, fhandle, fsize, fbuffer);     except       fvalid := false;       raise;     end;     result := '';     if fvalid       verqueryvalue(fbuffer, '\varfileinfo\translation', p, len)     else       p := nil;     if p <> nil       gettranslationstring := inttohex(makelong(hiword(longint(p^)),         loword(longint(p^))), 8);     if fvalid     begin       strpcopy(szname, '\stringfileinfo\' + gettranslationstring +         '\fileversion');       if verqueryvalue(fbuffer, szname, value, len)         result := strpas(pchar(value));     end;       try       if fbuffer <> nil         freemem(fbuffer, fsize);     except     end;     try       strdispose(ffilename);     except     end;   end; end;

for majority of executed files , libraries returns correct value. @ files version cut off , shown without build. here example file bass.dll (http://us.un4seen.com/files/bass24.zip) in windows explorer in properties of file see version 2.4.7.1, function result='2.4.7' :(

i open file through resourcehacker.exe (http://angusj.com/resourcehacker/), structure versioninfo:

1 versioninfo fileversion 2,4,7,1 productversion 2,4,0,0 fileos 0x4 filetype 0x2 { block "stringfileinfo" {     block "000004b0"     {         value "companyname", "un4seen developments"         value "filedescription", "bass"         value "fileversion", "2.4.7"         value "legalcopyright", "copyright © 1999-2010"     } }  block "varfileinfo" {     value "translation", 0x0000 0x04b0 } }

question: how receive 2.4.7.1, i.e. full version?

if want file version of root block, forget language specific translation:

function fileversion(const filename: tfilename): string; var   verinfosize: cardinal;   vervaluesize: cardinal;   dummy: cardinal;   pverinfo: pointer;   pvervalue: pvsfixedfileinfo; begin   result := '';   verinfosize := getfileversioninfosize(pchar(filename), dummy);   getmem(pverinfo, verinfosize);   try     if getfileversioninfo(pchar(filename), 0, verinfosize, pverinfo)       if verqueryvalue(pverinfo, '\', pointer(pvervalue), vervaluesize)         pvervalue^           result := format('v%d.%d.%d build %d', [             hiword(dwfileversionms), //major             loword(dwfileversionms), //minor             hiword(dwfileversionls), //release             loword(dwfileversionls)]); //build       freemem(pverinfo, verinfosize);   end; end;

Comments

Post a Comment

Popular posts from this blog

c# - SharpSVN - How to get the previous revision? -

i trying find efficient way previous revision of file text comparison using sharpsvn. using (svnclient c = new svnclient()) { c.authentication.defaultcredentials = new networkcredential( configurationmanager.appsettings.get("svnserviceusername") , configurationmanager.appsettings.get("svnservicepassword") , configurationmanager.appsettings.get("svnservicedomain") ); c.authentication.sslservertrusthandlers += new eventhandler<svnsslservertrusteventargs>(authentication_sslservertrusthandlers); collection<svnfileversioneventargs> fileversioncollection = new collection<svnfileversioneventargs>(); svnrevisionrange range = new svnrevisionrange(0, this.hooks.revision); svnfileversionsargs args = new svnfileversionsargs(); args.retrieveproperties = true; args.range = range; foreach (svnchangeitem item in log.changedpaths) { string path = this.repositorypath + it...
Read more

c++ - Is it possible to compile a VST on linux? -

for class project i'm attempting write vst plugin backed cuda. current cuda workflow on linux box, i'd prefer compile , link there. according wikipedia , should possible (i couldn't find steinberg documentation relevant linux) can't find makefile or instructions on how build if aren't using xcode or visual studio. i'm vst 3 sdk doesn't support linux. when try compile plugin under linux, error: ./base/source/fatomic.cpp:39:30: fatal error: libkern/osatomic.h: no such file or directory this issue caused following code in "vst3 sdk/base/source/fatomic.cpp" #if mac #include <libkern/osatomic.h> #if mac_os_x_version_min_required > mac_os_x_version_10_4 #define native_atomic_type (volatile int32_t*) #else #define native_atomic_type (int32_t*) #endif #elif windows #include <windows.h> #endif but hope compiling under linux work vst sdk 2.4. reading. jvstwrapper seems run on lin...
Read more

url - Querystring manipulation of email Address in PHP -

i using third party application (email2http) send me emailid, body , message. unable retrieve email id due name appended on , enclosed < , >. here querystring getting. test.php?from=ajay+reddy &subject=cx&body=somebody when print variable in php returns name , not email id. $from = $_get['from']; echo $from; //output ajay reddy please suggest me how can emailid also. i dont want use post method due testing , debugging. it's working fine. forgot use htmlentities() in debugging.
Read more