Hi, 在 BCB 的 Project Options 中有 Version Info, 我把它設定為 Auto-increment build number. 我的問題是, 如果我想把這個 Version number 取到 程式中秀在 Title 上, 要如何做? 謝謝! 發表人 - taishyang 於 2004/02/12 13:25:56

引言: Hi, 在 BCB 的 Project Options 中有 Version Info, 我把它設定為 Auto-increment build number. 我的問題是, 如果我想把這個 Version number 取到 程式中秀在 Title 上, 要如何做? 謝謝!

physics 你好: 請參考以下的連結文章，再依照自己的需求做修改即可 class="code"> void __fastcall TForm1::FormCreate(TObject *Sender) { DWORD dwVerInfoSize=0; AnsiString szFile=Application->ExeName; dwVerInfoSize=GetFileVersionInfoSize(szFile.c_str(), &dwVerInfoSize); BYTE *bVerInfoBuf=new BYTE[dwVerInfoSize]; if(GetFileVersionInfo(szFile.c_str(), 0, dwVerInfoSize, bVerInfoBuf)) { VS_FIXEDFILEINFO *vsInfo; UINT vsInfoSize; if(VerQueryValue(bVerInfoBuf, "\\", (void**)&vsInfo, &vsInfoSize)) { int iFileVerMajor=HIWORD(vsInfo->dwFileVersionMS); int iFileVerMinor=LOWORD(vsInfo->dwFileVersionMS); int iFileVerRelease=HIWORD(vsInfo->dwFileVersionLS); int iFileVerBuild=LOWORD(vsInfo->dwFileVersionLS); Caption=IntToStr(iFileVerMajor)+"."+IntToStr(iFileVerMinor)+ "."+IntToStr(iFileVerRelease)+"."+IntToStr(iFileVerBuild); } } delete bVerInfoBuf; } -- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2004/02/12 08:58:59