نمایش نسخه برنامه در هنگام Run time

همون طور که می دونید از قسمت project----> options------> version info می تونیم نسخه برنامه رو تنظیم کنیم
آیا می شه شماره نسخه تنظیم شده در این قسمت را در هنگام اجرای برنامه نشون داد؟

جاي اين سوال تو بخش مباحث عمومي هست نه محيط توسعه دلفي ، ميتونيد از تابع زير استفاده كنيد :

   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:= ' Ver '+

                     IntToStr (HiWord (dwFileVersionMS)) + '.' +

                     IntToStr (LoWord (dwFileVersionMS)) + '.' +

                     IntToStr (HiWord (dwFileVersionLS)) + '.' +

                     IntToStr (LoWord (dwFileVersionLS));

         end;

       finally

         FreeMem (Pt);

       end;

     end;

   end;