{"id":186,"date":"2007-05-12T16:48:27","date_gmt":"2007-05-12T14:48:27","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/how-to-get-versioninformation\/"},"modified":"2007-05-12T16:48:29","modified_gmt":"2007-05-12T14:48:29","slug":"how-to-get-versioninformation","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/how-to-get-versioninformation\/","title":{"rendered":"How To Get VersionInformation"},"content":{"rendered":"

> Can I get the Application Version, which I set using IDE’s option menu , in
\n> code? How?
\n<\/em>
\nHere’s an example:
\n
\n[code lang=”delphi”]type
\n PTransBuffer = ^TTransBuffer;
\n TTransBuffer = array[1..4] of smallint;<\/p>\n

const
\n CInfoStr : array[1..4] of string =
\n (‘FileVersion’,’LegalCopyright’, ‘ProductName’, ‘ProductVersion’);<\/p>\n

procedure TFrmAbout.GetVersionInfo(AVersionList: TStrings);
\nvar
\n filename: string;
\n i: integer;
\n infoSize: DWORD;
\n ptrans: PTransBuffer;
\n transStr: string;
\n typeStr: string;
\n value: PChar;
\n verBuf: pointer;
\n verSize: DWORD;
\n wnd: DWORD;
\nbegin
\n AVersionList.Clear;
\n filename := Application.ExeName;
\n infoSize := GetFileVersioninfoSize(PChar(filename), wnd);<\/p>\n

if infoSize <> 0 then
\n begin
\n GetMem(verBuf, infoSize);
\n try
\n if GetFileVersionInfo(PChar(filename), wnd, infoSize, verBuf) then
\n begin
\n VerQueryvalue(verBuf, PChar(‘\\VarFileInfo\\Translation’),
\n Pointer(ptrans), verSize);<\/p>\n

transStr := IntToHex(ptrans^[1], 4) + IntToHex(ptrans^[2], 4);<\/p>\n

for i := Low(CInfoStr) to High(CInfoStr) do
\n begin
\n typeStr := ‘StringFileInfo\\’ + transStr + ‘\\’ + CInfoStr[i];<\/p>\n

if VerQueryvalue(verBuf, PChar(typeStr),
\n Pointer(value), verSize) then
\n (*AVersionList.Add(CInfoStr[i] + ‘: ‘ + value);
\n *)
\n AVersionList.Add(value);
\n end
\n end;
\n finally
\n FreeMem(verBuf);
\n end;<\/p>\n

end;
\nend;
\n[\/code]<\/p>\n

[tags]Delphi, Misc, Files[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"

> Can I get the Application Version, which I set using IDE’s option menu , in > code? How? Here’s an example:<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,112,107],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-30","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/186"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=186"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/186\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=186"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=186"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=186"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}