{"id":1816,"date":"2010-11-25T09:00:20","date_gmt":"2010-11-25T08:00:20","guid":{"rendered":"http:\/\/blogs.wittwer.fr\/whiler\/?p=1816"},"modified":"2012-03-03T05:29:32","modified_gmt":"2012-03-03T04:29:32","slug":"recuperation-version-fichier","status":"publish","type":"post","link":"https:\/\/blogs.wittwer.fr\/whiler\/2010\/11\/25\/recuperation-version-fichier\/","title":{"rendered":"R\u00e9cup\u00e9ration de la version d\u2019un fichier"},"content":{"rendered":"

En ce moment a lieu le CodeWay 4<\/a>.<\/p>\n

\"CodeWay<\/center>
\n 
\nLors de la session sur FinalBuilder, une question a \u00e9t\u00e9 pos\u00e9e, \u00e0 savoir :<\/p>\n

Peut-on r\u00e9cup\u00e9rer le num\u00e9ro de version ?<\/p><\/blockquote>\n

Personnellement, je me suis fait un programme (application console) qui me g\u00e9n\u00e8re un fichier texte qui contient le num\u00e9ro de build<\/em> d’un ex\u00e9cutable et que j’inclue dans mes scripts.<\/p>\n

Vous pouvez directement t\u00e9l\u00e9charger le binaire \u00e0 partir de ce lien<\/a>, GenerateVersionFile<\/a>.<\/p>\n

Si vous pr\u00e9f\u00e9rez le code source, il est en seconde page<\/a>.
\n<\/p>\n

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
<\/div><\/td>
program<\/span> GenerateVersionFile;<\/span>
\n
\n{$APPTYPE CONSOLE}<\/span>
\n
\nuses<\/span>
\n  SysUtils,<\/span> Windows;<\/span>
\n
\ntype<\/span>
\n  TFileVersionInfo =<\/span> record<\/span>
\n    fCompanyName,<\/span>
\n    fFileDescription,<\/span>
\n    fFileVersion,<\/span>
\n    fInternalName,<\/span>
\n    fLegalCopyRight,<\/span>
\n    fLegalTradeMark,<\/span>
\n    fOriginalFileName,<\/span>
\n    fProductName,<\/span>
\n    fProductVersion,<\/span>
\n    fComments         :<\/span> string<\/span>;<\/span>
\n    fMajor,<\/span>
\n    fMinor,<\/span>
\n    fRelease,<\/span>
\n    fBuild            :<\/span> Word<\/span>;<\/span>
\n  end<\/span>;<\/span>
\n
\n{$R *.res}<\/span>
\n
\nprocedure<\/span> GetAppVersionInfo(<\/span>sAppNamePath:<\/span> string<\/span>;<\/span> var<\/span> aFileVersionInfo:<\/span> TFileVersionInfo)<\/span>;<\/span>
\nvar<\/span>
\n  iVerSize     :<\/span> Integer<\/span>;<\/span>
\n  pcVerBuf     :<\/span> PChar<\/span>;<\/span>
\n  pVerBufValue :<\/span> Pointer<\/span>;<\/span>
\n  {$IFDEF Delphi3Below}<\/span>
\n  iVerHandle   :<\/span> Integer<\/span>;<\/span>
\n  iVerBufLen   :<\/span> Integer<\/span>;<\/span>
\n  {$ELSE}<\/span>
\n  iVerHandle   :<\/span> Cardinal<\/span>;<\/span>
\n  iVerBufLen   :<\/span> Cardinal<\/span>;<\/span>
\n  {$ENDIF}<\/span>
\n  sVerKey      :<\/span> string<\/span>;<\/span>
\n
\n  function<\/span> GetInfo(<\/span>ThisKey:<\/span> string<\/span>)<\/span>:<\/span> string<\/span>;<\/span>
\n  begin<\/span>
\n    Result  :<\/span>=<\/span> ''<\/span>;<\/span>
\n    sVerKey :<\/span>=<\/span> '\\StringFileInfo\\'<\/span> +<\/span> IntToHex<\/span>(<\/span>loword(<\/span>integer<\/span>(<\/span>pVerBufValue^<\/span>)<\/span>)<\/span>,<\/span> 4<\/span>)<\/span> +<\/span>
\n                  IntToHex<\/span>(<\/span>hiword(<\/span>integer<\/span>(<\/span>pVerBufValue^<\/span>)<\/span>)<\/span>,<\/span> 4<\/span>)<\/span> +<\/span> '\\'<\/span> +<\/span> ThisKey;<\/span>
\n   
\n    if<\/span> VerQueryValue(<\/span>pcVerBuf,<\/span> PChar<\/span>(<\/span>sVerKey)<\/span>,<\/span> pVerBufValue,<\/span> iVerBufLen)<\/span> then<\/span>
\n      Result :<\/span>=<\/span> StrPas<\/span>(<\/span>PChar<\/span>(<\/span>pVerBufValue)<\/span>)<\/span>;<\/span>
\n     
\n  end<\/span>;<\/span>
\n
\n  function<\/span> QueryValue(<\/span>ThisValue:<\/span> string<\/span>)<\/span>:<\/span> string<\/span>;<\/span>
\n  begin<\/span>
\n    Result :<\/span>=<\/span> ''<\/span>;<\/span>
\n   
\n    if<\/span> GetFileVersionInfo(<\/span>PChar<\/span>(<\/span>sAppNamePath)<\/span>,<\/span> iVerHandle,<\/span> iVerSize,<\/span> pcVerBuf)<\/span> and<\/span>
\n        VerQueryValue(<\/span>pcVerBuf,<\/span> '\\VarFileInfo\\Translation'<\/span>,<\/span> pVerBufValue,<\/span> iVerBufLen)<\/span> then<\/span>
\n      Result :<\/span>=<\/span> GetInfo(<\/span>ThisValue)<\/span>;<\/span>
\n     
\n  end<\/span>;<\/span>
\n
\n  function<\/span> GetFileVersion<\/span>(<\/span>const<\/span> FileName:<\/span> TFileName)<\/span>:<\/span> boolean<\/span>;<\/span>
\n  \/\/ Returns True on success and False on failure.<\/span>
\n  var<\/span>
\n    lwSize,<\/span> lwLen :<\/span> LongWord<\/span>;<\/span>
\n    hFile         :<\/span> THandle<\/span>;<\/span>
\n    pcBuffer      :<\/span> PChar<\/span>;<\/span>
\n    pInfo         :<\/span> ^<\/span>VS_FIXEDFILEINFO;<\/span>
\n  begin<\/span>
\n    Result :<\/span>=<\/span> False<\/span>;<\/span>
\n    lwSize :<\/span>=<\/span> GetFileVersionInfoSize(<\/span>Pointer<\/span>(<\/span>FileName)<\/span>,<\/span> hFile)<\/span>;<\/span>
\n    if<\/span> lwSize > 0<\/span> then<\/span>
\n    begin<\/span>
\n      GetMem<\/span>(<\/span>pcBuffer,<\/span> lwSize)<\/span>;<\/span>
\n      if<\/span> GetFileVersionInfo(<\/span>Pointer<\/span>(<\/span>FileName)<\/span>,<\/span> 0<\/span>,<\/span> lwSize,<\/span> pcBuffer)<\/span> then<\/span>
\n        if<\/span> VerQueryValue(<\/span>pcBuffer,<\/span> '\\'<\/span>,<\/span> pointer<\/span>(<\/span>pInfo)<\/span>,<\/span> lwLen)<\/span> then<\/span>
\n        begin<\/span>
\n          aFileVersionInfo.<\/span>fMajor<\/span>   :<\/span>=<\/span> HiWord(<\/span>pInfo.<\/span>dwFileVersionMS<\/span>)<\/span>;<\/span>
\n          aFileVersionInfo.<\/span>fMinor<\/span>   :<\/span>=<\/span> LoWord(<\/span>pInfo.<\/span>dwFileVersionMS<\/span>)<\/span>;<\/span>
\n          aFileVersionInfo.<\/span>fRelease<\/span> :<\/span>=<\/span> HiWord(<\/span>pInfo.<\/span>dwFileVersionLS<\/span>)<\/span>;<\/span>
\n          aFileVersionInfo.<\/span>fBuild<\/span>   :<\/span>=<\/span> LoWord(<\/span>pInfo.<\/span>dwFileVersionLS<\/span>)<\/span>;<\/span>
\n          Result  :<\/span>=<\/span> True<\/span>;<\/span>
\n        end<\/span>;<\/span>
\n      FreeMem<\/span>(<\/span>pcBuffer)<\/span>;<\/span>
\n    end<\/span>;<\/span>
\n  end<\/span>;<\/span>
\n
\nbegin<\/span>
\n  if<\/span> sAppNamePath =<\/span> ''<\/span> then<\/span>
\n    Exit;<\/span>
\n
\n  GetFileVersion<\/span>(<\/span>sAppNamePath)<\/span>;<\/span>
\n  iVerSize :<\/span>=<\/span> GetFileVersionInfoSize(<\/span>PChar<\/span>(<\/span>sAppNamePath)<\/span>,<\/span> iVerHandle)<\/span>;<\/span>
\n  pcVerBuf :<\/span>=<\/span> AllocMem<\/span>(<\/span>iVerSize)<\/span>;<\/span>
\n  try<\/span>
\n    with<\/span> aFileVersionInfo do<\/span>
\n    begin<\/span>
\n      fCompanyName      :<\/span>=<\/span> QueryValue(<\/span>'CompanyName'<\/span>)<\/span>;<\/span>
\n      fFileDescription  :<\/span>=<\/span> QueryValue(<\/span>'FileDescription'<\/span>)<\/span>;<\/span>
\n      fFileVersion      :<\/span>=<\/span> QueryValue(<\/span>'FileVersion'<\/span>)<\/span>;<\/span>
\n      fInternalName     :<\/span>=<\/span> QueryValue(<\/span>'InternalName'<\/span>)<\/span>;<\/span>
\n      fLegalCopyRight   :<\/span>=<\/span> QueryValue(<\/span>'LegalCopyRight'<\/span>)<\/span>;<\/span>
\n      fLegalTradeMark   :<\/span>=<\/span> QueryValue(<\/span>'LegalTradeMark'<\/span>)<\/span>;<\/span>
\n      fOriginalFileName :<\/span>=<\/span> QueryValue(<\/span>'OriginalFileName'<\/span>)<\/span>;<\/span>
\n      fProductName      :<\/span>=<\/span> QueryValue(<\/span>'ProductName'<\/span>)<\/span>;<\/span>
\n      fProductVersion   :<\/span>=<\/span> QueryValue(<\/span>'ProductVersion'<\/span>)<\/span>;<\/span>
\n      fComments         :<\/span>=<\/span> QueryValue(<\/span>'Comments'<\/span>)<\/span>;<\/span>
\n    end<\/span>;<\/span>
\n  finally<\/span>
\n    FreeMem<\/span>(<\/span>pcVerBuf,<\/span> iVerSize)<\/span>;<\/span>
\n  end<\/span>;<\/span>
\nend<\/span>;<\/span>
\n
\nvar<\/span>
\n  sSource,<\/span> sTarget :<\/span> TFileName;<\/span>
\n  fvi              :<\/span> TFileVersionInfo;<\/span>
\n  tfTarget         :<\/span> TextFile<\/span>;<\/span>
\nbegin<\/span>
\n  case<\/span> ParamCount of<\/span>
\n    2<\/span>:<\/span>
\n    begin<\/span>
\n      sSource :<\/span>=<\/span> ParamStr<\/span>(<\/span>1<\/span>)<\/span>;<\/span>
\n      sTarget :<\/span>=<\/span> ParamStr<\/span>(<\/span>2<\/span>)<\/span>;<\/span>
\n      if<\/span> (<\/span>FileExists<\/span>(<\/span>sSource)<\/span>)<\/span> then<\/span>
\n      begin<\/span>
\n        if<\/span> (<\/span>DirectoryExists<\/span>(<\/span>ExtractFilePath<\/span>(<\/span>sTarget)<\/span>)<\/span>)<\/span> then<\/span>
\n        begin<\/span>
\n          GetAppVersionInfo(<\/span>sSource,<\/span> fvi)<\/span>;<\/span>
\n          if<\/span> (<\/span>fvi.<\/span>fFileVersion<\/span> <> ''<\/span>)<\/span> then<\/span>
\n          begin<\/span>
\n            AssignFile<\/span>(<\/span>tfTarget,<\/span> sTarget)<\/span>;<\/span>
\n            Rewrite<\/span>(<\/span>tfTarget)<\/span>;<\/span>
\n            Write<\/span>(<\/span>tfTarget,<\/span> fvi.<\/span>fFileVersion<\/span>)<\/span>;<\/span>
\n            Flush<\/span>(<\/span>tfTarget)<\/span>;<\/span>
\n            Close<\/span>(<\/span>tfTarget)<\/span>;<\/span>
\n            Writeln<\/span>(<\/span>''<\/span>)<\/span>;<\/span>
\n            Writeln<\/span>(<\/span>''<\/span>''<\/span> +<\/span> ExtractFileName<\/span>(<\/span>sTarget)<\/span> +<\/span> ''<\/span>' updated with value: '<\/span> +<\/span> fvi.<\/span>fFileVersion<\/span>)<\/span>;<\/span>
\n          end<\/span>
\n          else<\/span>
\n          begin<\/span>
\n            Writeln<\/span>(<\/span>'File Version is emmpty!'<\/span>)<\/span>;<\/span>
\n          end<\/span>;<\/span>
\n        end<\/span>
\n        else<\/span>
\n        begin<\/span>
\n          Writeln<\/span>(<\/span>'Folder '<\/span> +<\/span> ExtractFilePath<\/span>(<\/span>sTarget)<\/span> +<\/span> ' doesn'<\/span>'t exist!'<\/span>)<\/span>;<\/span>
\n        end<\/span>;<\/span>
\n      end<\/span>
\n      else<\/span>
\n      begin<\/span>
\n        Writeln<\/span>(<\/span>sSource +<\/span> ' doesn'<\/span>'t exist!'<\/span>)<\/span>;<\/span>
\n      end<\/span>;<\/span>
\n    end<\/span>;<\/span>
\n    else<\/span>
\n    begin<\/span>
\n      Writeln<\/span>(<\/span>'This program expects 2 parameters!'<\/span>)<\/span>;<\/span>
\n    end<\/span>;<\/span>
\n  end<\/span>;<\/span>
\n
\nend<\/span>.<\/span><\/div><\/td><\/tr><\/tbody><\/table><\/div>\n","protected":false},"excerpt":{"rendered":"

\u00ab\u00a0Peut-on r\u00e9cup\u00e9rer le num\u00e9ro de version ?\u00a0\u00bb
\nPersonnellement, je me suis fait un programme (application console) qui me g\u00e9n\u00e8re un fichier texte qui contient le num\u00e9ro de build d\u2019un ex\u00e9cutable et que j\u2019inclue dans mes scripts…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":"","_links_to":"","_links_to_target":""},"categories":[7,6],"tags":[27,154,44,93,108],"class_list":["post-1816","post","type-post","status-publish","format-standard","hentry","category-delphi","category-dev","tag-coloration-syntaxique","tag-delphi","tag-embarcadero","tag-freeware","tag-script"],"_links":{"self":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/1816","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/comments?post=1816"}],"version-history":[{"count":0,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/1816\/revisions"}],"wp:attachment":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/media?parent=1816"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/categories?post=1816"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/tags?post=1816"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}