Snippets

Home / Snippets / Delphi - Displaying App. Name/Version in Titlebar

Delphi - Displaying App. Name/Version in Titlebar

Snippet Menu

snippet |

revisions |

comments | Related Snippets

related |

Add to Favorites | Email

download | Print

print | Blog It

blog it

Tue. Oct. 24th, 2006 7:51 AM

1 of 1

bright

Delphi

1 comments

This code will get the application title and version information from the project options and display it in the titlebar automatically when the main form is created. The project options are accessed from the Delphi IDE by selecting Project -> Options from the main menu.

uses

  GetVersion {req. for kfVersionInfo}

procedure TForm1.FormCreate(Sender: TObject);

var

  AppName : string;

begin

  AppName := Copy(ExtractFileName(Application.ExeName),

                  1, Pos('.',ExtractFileName(Application.ExeName))-1);

  Application.Title := AppName;

  Caption := AppName + ' [V'+kfVersionInfo+']';