如何得知檔案屬性 |
尚未結案
|
mobitaco
一般會員 發表:19 回覆:22 積分:8 註冊:2003-09-24 發送簡訊給我 |
|
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
|
mobitaco
一般會員 發表:19 回覆:22 積分:8 註冊:2003-09-24 發送簡訊給我 |
引言: 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 裡面的程式都不會執行 請問我哪裡沒改到 謝謝 |
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
引言: 我用了上面的方法 但我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-- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2003/10/13 23:09:44
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |