如何 获得 自身程序 的 版本号 ???? 急!!!!!!!!!!!!
2008-10-14 16:32
204 查看
如何 获得 自身程序 的 版本号 ???? 急!!!!!!!!!!!! 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;
来晚了。接分。
ding
用Raize组件的TRzVersionInfoStatus
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;
来晚了。接分。
ding
用Raize组件的TRzVersionInfoStatus
相关文章推荐
- Delphi2010如何获取程序内部自身版本号?
- C++程序如何获得自身路径(Qt源码)
- C++程序如何获得自身路径(Qt源码)
- C++程序如何获得自身路径(Qt源码)
- 如何获得当前程序的视图,文档指针
- 如何获得程序运行时间?
- 关于在COM组件中,如何获得组件自身所在路径及组件名称
- 【经典工具】:如何通过程序获得系统时间
- 如何让程序自身防病毒
- 【问题】如何获得报表中某对象的值与程序进行交互?
- c/s程序版本自动升级的问题,如何判断client端版本号是否最新,然后从指定ftp服务器down
- 如何利用程序获得当前系统的补丁情况
- Android开发:教你如何获取软件自身版本号和Android系统版本号
- [IE编程] 如何获得IE版本号
- Android 应用程序(APK) 如何获得系统签名权限 强制关闭程序(后台进程)
- 小程序如何快速获得3000用户?
- 【转】VC中如何启动其它程序,并且获得启动程序的PID 创建进程CreateProcess函数
- 如何在 Windows Mobile 程序中获得包含 Millisecond 的 DateTime
- 【问题】如何获得报表中某对象的值与程序进行交互?
- 如何在VC程序中获得当前显示器的分辨率