如何获得自身程序的版本号 ???? 急!!!!!!!!!!!!-优快云博客

本文介绍了一种使用Delphi和Windows SDK API获取应用程序版本号的方法，通过详细代码展示了如何从文件版本信息中读取版本号，并在程序界面上显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

如何获得自身程序的版本号 ???? 急!!!!!!!!!!!! Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiBase/html/delphi_20061215121930148.html
如何获得自身程序的版本号 ???? 急!!!!!!!!!!!!

请给出详细的代码!

function GetFileVersion(FileName : String): String;
var
InfoSize, Wnd: DWORD;
VerBuf: Pointer;
FI: PVSFixedFileInfo;
VerSize: DWORD;
begin
Result := '';
InfoSize := GetFileVersionInfoSize(PChar(FileName), Wnd);
if InfoSize <> 0 then
begin
GetMem(VerBuf, InfoSize);
try
if GetFileVersionInfo(PChar(FileName), Wnd, InfoSize, VerBuf) then
if VerQueryValue(VerBuf, '\', Pointer(FI), VerSize) then
begin
Result := InttoStr(FI.dwFileVersionMS div $FFFF);
Result := Result+'.'+InttoStr(FI.dwFileVersionMS mod $10000);
Result := Result+'.'+InttoStr(FI.dwFileVersionLS div $FFFF);
Result := Result+'.'+InttoStr(FI.dwFileVersionLS mod $10000);
end;
finally
FreeMem(VerBuf);
end;
end;
end;

procedure TAboutForm.FormCreate(Sender: TObject);
var
strTemp,FileName: String;
begin
FileName := Application.EXEName+chr(0);
strTemp := GetFileVersion(FileName);
if strTemp<>'' then
Label1.Caption := '（V'+strTemp+'）';
end;