2009-08-03 16:26:00
| 分類：
電腦.測繪|字型大小
訂閱 delphi做的程式,如果想包含版本資訊, 必須在delphi的整合編輯環境的選單「project/options/version info」裡面新增版本資訊。即在version info 選項卡中選中「include version information in project」項，並在「module version number」中設定major version（主版本號）、 minor version（副版本號）、 release（發行版本號）、 build（內部版本號）。
設定好後，在程式中寫入下面的函式：
function getbuildinfo: string; //獲取版本號
varverinfosize : dword;
verinfo : pointer;
vervaluesize : dword;
vervalue : pvsfixedfileinfo;
dummy : dword;
v1,v2,v3,v4 : word;
begin
verinfosize := getfileversioninfosize(pchar(paramstr(0)),dummy);
if verinfosize = 0 then begin
dummy := getlasterror;
result := '0.0.0.0';
end;
getmem(verinfo,verinfosize);
getfileversioninfo(pchar(paramstr(0)),0,verinfosize,verinfo);
verqueryvalue(verinfo,'\',pointer(vervalue),vervaluesize);
with vervalue^ do begin
v1 := dwfileversionms shr 16;
v2 := dwfileversionms and $ffff;
v3 := dwfileversionls shr 16;
v4 := dwfileversionls and $ffff;
end;
result := inttostr(v1) + '.' + inttostr(v2) + '.' + inttostr(v3) + '.' + inttostr(v4);
freemem(verinfo,verinfosize);
end;
然後，在程式中呼叫函式即可。
procedure tform1.formcreate(sender: tobject);
begin
label1.caption := '版本 ' + getbuildinfo;
end;
Delphi中取得程式版本號
delphi做的程式,如果想包含版本資訊,必須在delphi的整合編輯環境的選單 project options version info 裡面新增版本資訊。即在version info 選項卡中選中 include version information in project 項，並在 modul...
獲取程式版本號
取程序版本號碼 vc 2008 控制台程式的版本資源需要手動插入 include stdafx.h include pragma comment lib,version.lib dword getver word wver1,word wver2,word wver3,word wver4 int ...
golang程式新增版本號
這段時間專案經常發布版本,導致我們版本管理混亂。特別是在真實環境上面，沒有了版本控制軟體協助版本管理，我們無法確認程式到底是新版本還是舊版本。這給我們排查問題帶來了很大困擾。於是，我就想給程式本身打上版本號，通過程式就可以看到程式是新版本還是舊版本了。檢視資料發現golang不能像c 那樣通過巨集定...