Thanks all but never mind found out myself:
uses verinfo

with TVersionInfo.Create(Application.ExeName) do
  try
  Label5.Caption:=label5.Caption+' '+Fileversion;
  finally free;
  end;

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/

Reply via email to