アプリケーション固有のファイル【GV

ども、Norimakiです。

今回はアプリケーション固有のファイルについて書いてみます。

これは単にそのアプリケーションがどのような挙動をするのか
という事を設定するだけのファイルになります。

まずはソースをご覧ください。

unit GV_Application;

interface

uses NY_Values,NY_Application
;

 //============================================================================
 //---------------------------------------
 //【個別アプリケーション起動・終了設定】
 //---------------------------------------
 procedure GP_SetApplicationSetting;     //from GP_StartUpCheck  of ProjectFile
 procedure GP_ApplicationFin;            //from GP_Finalize      of ProjectFile


implementation

//============================================================================
// アプリケーションごとの設定を行う
//============================================================================
const
 //---------------------------------------------------------------
 // 多重起動禁止処理のための文字列 ⇒ メインフォームのクラス名
 //---------------------------------------------------------------
 GC_MainFormClassName='';

procedure GP_SetApplicationSetting;     //from GP_StartUpCheck
begin
 //----------------
 // システム設定
 //----------------
 NV_MainFormClassName:=GC_MainFormClassName;
 NV_MultiRunning     :=False;                    //多重起動を許可するかどうか
 NV_MakeSysFolder    :=True;
 NV_MakeUsrFolder    :=True;
 NV_MainFormShow     :=True;
 NV_SplashForm       :=True;
end;


procedure GP_ApplicationFin;
begin
 //-------------------------------------------------
 // GP_SetApplicationSettingでの処理の始末を行う
 // 基本的には何もしない
 //-------------------------------------------------
end;

end.

unit GV_Application;

interface

uses NY_Values,NY_Application

;

//============================================================================

//---------------------------------------

//【個別アプリケーション起動・終了設定】

//---------------------------------------

procedure GP_SetApplicationSetting; //from GP_StartUpCheck of ProjectFile

procedure GP_ApplicationFin; //from GP_Finalize of ProjectFile

implementation

//============================================================================

// アプリケーションごとの設定を行う

//============================================================================

const

//---------------------------------------------------------------

// 多重起動禁止処理のための文字列 ⇒ メインフォームのクラス名

//---------------------------------------------------------------

GC_MainFormClassName='';

procedure GP_SetApplicationSetting; //from GP_StartUpCheck

begin

//----------------

// システム設定

//----------------

NV_MainFormClassName:=GC_MainFormClassName;

NV_MultiRunning :=False; //多重起動を許可するかどうか

NV_MakeSysFolder :=True;

NV_MakeUsrFolder :=True;

NV_MainFormShow :=True;

NV_SplashForm :=True;

end;

procedure GP_ApplicationFin;

begin

//-------------------------------------------------

// GP_SetApplicationSettingでの処理の始末を行う

// 基本的には何もしない

//-------------------------------------------------

end;

end.

本当に単純で、
スプラッシュフォームを表示するかとか、
システムフォルダを作成するかとか言ったフラグを
設定するだけのファイルになっています。

ではでは。
Norimakiでした。