引言: 請問 GetFileVersionInfo 要如何使用 查了本站相關的訊息還是不會的菜鳥留 謝謝 < face="Verdana, Arial, Helvetica"> mobitaco 你好: 請參考以下的連結文章

引言: mobitaco 你好: 請參考以下的連結文章 >< face="Verdana, Arial, Helvetica"> 我用了上面的方法 但我try 時 if n > 0 then begin Buf := AllocMem(n); GetFileVersionInfo(PChar(S), 0, n, Buf); for i := 1 to InfoNum do if VerQueryValue(Buf, PChar('StringFileInfo\040904E4\' InfoStr[i]), Pointer(Value), Len) then showmessage(Value); stringlist1.Add(InfoStr[i] ' = ' Value); FreeMem(Buf, n); end; N 都小於0 if 裡面的程式都不會執行 請問我哪裡沒改到 謝謝

引言: 我用了上面的方法 但我try 時 if n > 0 then begin Buf := AllocMem(n); GetFileVersionInfo(PChar(S), 0, n, Buf); for i := 1 to InfoNum do if VerQueryValue(Buf, PChar('StringFileInfo\040904E4\' InfoStr[i]), Pointer(Value), Len) then showmessage(Value); stringlist1.Add(InfoStr[i] ' = ' Value); FreeMem(Buf, n); end; N 都小於0 if 裡面的程式都不會執行 請問我哪裡沒改到 謝謝

mobitaco 你好:
(1)這個範例是利用 Application.ExeName 來做示範，因此如果你的 Project/
   Options/Version Info 的 Include version information in project 沒有
   打勾的話，自然也就沒有版本的資訊
(2)試試看別的檔案 (例如: *.exe, *.dll...)
(3)那個連結裡面除了這個範例以外，之後還有很多的資料，再參考看看
(4)另外，這裡也有
   http://delphi.ktop.com.tw/topic.php?TOPIC_ID=7358