发信人: showskyws()
整理人: delfan(2001-04-18 23:12:18), 站内信件
|
【 在 coolqiang 的大作中提到：】
:就是将工程设置中的版本号（包括主版本号、副版本号、Release和Build等）显示出来！
:......
使用GetFileVersionInfo 得到版本信息的例子
Samples Using GetFileVersionInfo?
procedure GetBuildInfo(var V1, V2, V3, V4: Word);
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
V1 := dwFileVersionMS shr 16;
V2 := dwFileVersionMS and $FFFF;
V3 := dwFileVersionLS shr 16;
V4 := dwFileVersionLS and $FFFF;
end;
FreeMem(VerInfo, VerInfoSize);
end;
----
我每天都在努力，因为每天都要进步!
沉迷网络，程序人生，这就是我!
欢迎光临我的个人主页：示天工作室
网易北京社区 DELPHI版 版副发贴印 |
|