Show Application Version

Kadang kita dalam membangun aplikasi, kita tidak begitu memperhatikan versi aplikasi. Sebenarnya versi ini sangat membantu dalam pengembangannya. Untuk membuat versi pada aplikasi yang kita buat, Klik Project > Option > Version Info. Klik Include version information in project. Untuk informasi pada aplikasi, silahkan isi tabel di bawahnya.

version1

Untuk membuat versi pada aplikasi agar bisa ditampilkan pada aplikasi kita, gunakan fungsi dibawah ini.

uses
  Windows, Forms..

function GetVersion(sFileName:string): string;
  var
    VerInfoSize: DWORD;
    VerInfo: Pointer;
    VerValueSize: DWORD;
    VerValue: PVSFixedFileInfo;
    Dummy: DWORD;
  begin
    VerInfoSize := GetFileVersionInfoSize(PChar(sFileName), Dummy);
    GetMem(VerInfo, VerInfoSize);
    GetFileVersionInfo(PChar(sFileName), 0, VerInfoSize, VerInfo);
    VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
    with VerValue^ do
    begin
      Result := IntToStr(dwFileVersionMS shr 16);
      Result := Result + '.' + IntToStr(dwFileVersionMS and $FFFF);
      Result := Result + '.' + IntToStr(dwFileVersionLS shr 16);
      Result := Result + '.' + IntToStr(dwFileVersionLS and $FFFF);
    end;
    FreeMem(VerInfo, VerInfoSize);
end;

Fungsi diatas akan menampilkan versi aplikasi berdasarkan module version number. Major Version | Minor Version | Release | Build.

untuk menggunakannya seperti ini:

 ShowMessage(GetVersion(Application.ExeName));

Silahkan mencobanya.😀

One Response to “Show Application Version”

  1. wahyu Says:

    Bisa di jelaskan ga fungsi – fungsi tiap listing codenya ?? mohon pencerahannya🙂


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: