如何 获得 自身程序 的 版本号 ???? 急!!!!!!!!!!!! Delphi / Windows SDK/APIhttp://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