How can I obtain the version number of my program ???? Urgent !!!!!!!!!!!! Delphi/Windows SDK/API
Http://www.delphi2007.net/DelphiBase/html/delphi_20061215121930148.html
How to get yourself Program Version Number ???? Urgent !!!!!!!!!!!!
Please provide detailed Code !
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;
It's late. Points.
Ding
Use the raize component's trzversioninfostatus