請問在project中屬性中有一個vertion info,請問怎么用﹖(35分)

里面還有build 等信息﹐我怎樣才能在程序中利用呢﹖

这个是版本信息，你随便写上一些，编译为exe，用鼠标右键点击这个
exe，看“属性”，就看到你输入的版本信息了。

但是我想在程中用到此信息﹐不知如何實現。如windows 版本都會有一個自動的build 2195等﹐
請問怎么實現﹗﹗﹗﹗

版本信息你写上多少就是多少了，不知道你说“我想在程中用到此信息”是什么意思？

还有“如windows 版本都會有一個自動的build 2195等”不对啊，可不是自动的，也不是
都有build 2195的。

其實我的意思是﹐我想在我的程序的about中顯示此程序我編譯了多少次。而且是自動的。

Delphi好像有这样的功能，但我没用过

是不是因為分少﹐大蝦們都不愿答我﹗﹗﹗但是兄弟我沒錢﹐請幫幫忙吧﹐一百多塊錢﹐我還得過下半輩子呢﹗

<a href="./DispQ.asp?LID=139289">来自cAkk的答案</a>

我也再给个答案:

var versize:integer;ppchar;
pp1:^VS_FIXEDFILEINFO;
LastVer1, LastVer2, LastVer3, LastVer4:WORD;
pbuflen:integer;


versize:=getfileversioninfosize(pchar(FilePath+Filename), pbuflen);
pp:=stralloc(versize+10);
if getfileversioninfo(pchar(FilePath+Filename), 0, versize, pp) then
begin
if verqueryvalue(pp, '/', pointer(pp1), pbuflen) then
begin
//此处得到的是数字型的版本号,是真正的文件版本号, 一般不显示在"文件属性"的版本窗口中的
//此部分可以和字符串显示的版本号不同
LastVer1:=(pp1.dwFileVersionMS and $FFFF0000) shr 16;
LastVer2:=pp1.dwFileVersionMS and $0000FFFF;
LastVer3:=(pp1.dwFileVersionLS and $FFFF0000) shr 16;
LastVer4:=pp1.dwFileVersionLS and $0000FFFF;
end
end;

我是一只菜鳥﹐不知你們所給答案到對不對﹐但Iknow的答案我copy上就成功了。但是我更感謝
wjiachum對我的幫助

那是, 是从我做的商用程序中copy出来的. ^_*