[BlueLeaf1336]> PROGRAM>

汎用バージョン情報フォーム

historyTOP

2006/09/07:作成
2008/01/31:開発環境とThanksコメントをバージョンリソースから取得するように変更

downloadTOP

最新版:Version20080131.zip(192,189bytes)※ソースコードと実行ファイルです。
Version20060907.zip(190,515bytes)

usage & screenshotTOP

プロジェクトのあるフォルダに Info.dfm と Info.pas と version.rc(2008/01/31追記) をコピーします。

Info.pas とversion.rc をプロジェクトに追加します。(2008/01/31追記)

uses に Info を加えて、OpenInfoForm() という関数を呼び出します。すると、関数内でフォームを作成してバージョン情報っぽい感じに ShowModal 表示します。

実際には、スタートアップフォルダや「送る」フォルダへのショートカット作成機能は状況に応じて隠したりしています。隠したら、空いた隙間を埋めるようにそれより下にあるラベルを全部上に詰めてくる必要がありますが。 

uses
    Info;

procedure TForm1.Button1Click(Sender: TObject);
begin
    OpenInfoForm();
end;


featureTOP

EOFTOP