請教前輩,如何取得於DELPHI中設定中的"發行版本數值" Project->Options->Versoin Info-> "Module Versoin Number"之 "Major Version"/Minor Version/Release Versoin/Build ..." 希望高手們能幫幫忙,先謝謝各位! DHM

------
ATEIN

用 GetFileVersionInfo 搜尋會有些收穫, 例如 http://delphi.ktop.com.tw/topic.php?topic_id=7358 http://delphi.ktop.com.tw/topic.php?topic_id=42196

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

function GetVersion: string;
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
  Dummy: DWORD;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
  with VerValue^ do
  begin
    Result := IntToStr(dwFileVersionMS shr 16);
    Result := Result   '.'   IntToStr(dwFileVersionMS and $FFFF);
    Result := Result   '.'   IntToStr(dwFileVersionLS shr 16);
    Result := Result   '.'   IntToStr(dwFileVersionLS and $FFFF);
  end;
  FreeMem(VerInfo, VerInfoSize);
end;     procedure TForm1.Button1Click(Sender: TObject); 
begin
  label1.Caption := GetVersion;
end; 

網海無涯，唯學是岸！

引言: 請教前輩,如何取得於DELPHI中設定中的"發行版本數值" Project->Options->Versoin Info-> "Module Versoin Number"之 "Major Version"/Minor Version/Release Versoin/Build ..." 希望高手們能幫幫忙,先謝謝各位! DHM

謝謝各位高手,現問題終於解決了,謝謝!pcboy2 也謝謝您的資料提供! 更感謝,qoo1234的程式解答! DHM