Function GetAppVersion: String;
Var
Size, Size2: DWord;
Pt, Pt2: Pointer;
Begin
Size:= GetFileVersionInfoSize(PChar (ParamStr (0)), Size2);
If Size > 0 then
Begin
GetMem(Pt, Size);
Try
GetFileVersionInfo(PChar (ParamStr (0)), 0, Size, Pt);
VerQueryValue(Pt, '\', Pt2, Size2);
With TVSFixedFileInfo(Pt2^) do
Begin
Result:=
IntToStr (HiWord(dwFileVersionMS)) + '.' +
IntToStr (LoWord(dwFileVersionMS)) + '.' +
IntToStr (HiWord(dwFileVersionLS)) + '.' +
IntToStr (LoWord(dwFileVersionLS));
End;
Finally
FreeMem(Pt);
End;
End;
End;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption:= 'Club Delphi v' + GetAppVersion;
Application.Title:= Form1.Caption;
end;