1.アプリケーション変数（標準アプリケーション）
アプリケーションレベルの情報を説明する
ユニット
フォーム
var アプリケーション: TApplication;
説明する
デフォルトでは、新しいプロジェクトを作成すると、Delphi は Application オブジェクトを構築し、それを Forms ユニットにある Application 変数に割り当てます。アプリケーションには、アプリケーションの実行中にアプリケーションに関する情報を取得するために使用できるプロパティがいくつかあります。
例
このコードは、編集ボックスにプロジェクトの名前を表示します。
手順 TForm1.Button1Click(送信者: TObject);
始める
Edit1.Text := Application.Title;
終わり;
2.CmdShow変数
CmdShow は Windows API 関数 ShowWindow に渡されます。
ユニット
システム
var CmdShow: 整数;
説明する
プログラムでは、アプリケーションがメイン ウィンドウを作成するときに、CmdShow 変数には、Windows が ShowWindow に渡すことが期待されるパラメーター値が含まれています。
ライブラリ (DLL) では、CmdShow は常に 0 です。
3.CompilerVersion 定数
Delphi コンパイラのバージョン番号を指定します
ユニット
システム
const コンパイラバージョン = 15.0;
説明する
CompilerVersion を使用して、Delphi コンパイラの全体的な構成レベルをテストします。これは、Delphi 言語の新しい機能を利用するコードを条件付きで設定する場合に便利です。
4.ExitProcessProc変数
ExitProcessProc は、アプリケーションがシャットダウンされる前に実行される最後のプロシージャを指定します。
ユニット
システム
var ExitProcessProc: プロシージャ;
説明する
ExitProcessProc に割り当てて、アプリケーションを閉じる前に実行するプロセスを指定します。 ExitProcessProc の値はパラメータのないプロシージャです。
5.GetFileVersion関数
ファイルのバージョンを返す
ユニット
システムユーティリティ
function GetFileVersion(const AFileName: string): 基数;
説明する
GetFileVersion は、ファイルのバイナリ バージョン番号の最上位 32 ビットを返します。 AFileName は、LoadLibrary 関数と同じパスを使用して検索できるファイル名を指定します。
6.GetModuleName関数
指定されたハンドルのモジュールの完全修飾名を返します。
ユニット
システムユーティリティ
関数 GetModuleName(モジュール: HMODULE): 文字列;
説明する
GetModuleFileName を呼び出して、指定されたハンドルのモジュールの完全修飾名を取得します。
Module はモジュールのハンドルです。
7.Hインスタンス変数
Windows によってモジュールに提供されるハンドル。
ユニット
SysInit
var HInstance: LongWord;
説明する
HInstance は、Windows が提供するアプリケーションまたはライブラリのインスタンス ハンドルを保持します。
8.HintWindowClass変数
ヘルプヒントの表示に使用するウィンドウのクラスを指定します。
ユニット
フォーム
var HintWindowClass: THintWindowClass = THintWindow;
説明する
アプリケーションがヘルプ ヒントを表示すると、ヒントの表示に使用されるウィンドウを表す HintWindowClass のインスタンスが作成されます。アプリケーションは、THintWindow の派生クラスを作成し、アプリケーションの起動時にその派生クラスを HintWindowClass 変数に割り当てることで、このウィンドウをカスタマイズできます。
9.InitProc変数
InitProc は、最後にインストールされた初期化プロセスです。
ユニット
システム
var InitProc: ポインタ。
説明する
InitProc に割り当てて、アプリケーションの起動時に実行するプロシージャを指定します。 InitProc はパラメータのないプロシージャです。例えば：
プロシージャ MyInitProcedure;
...
初期化
InitProc := @MyInitProcedure;
始める
終わり;
InitProc 変数には初期化プロシージャのみを割り当てることができます。アプリケーションが複数の初期化プロシージャを定義している場合、InitProc に割り当てられた最後の初期化プロシージャのみが実行されます。他の初期化プロシージャを実行できるようにするには、InitProc の新しい値から古い値を呼び出して、プロシージャを「チェーン」する必要があります。たとえば、ComObj ユニットの次のコードは、新しい値を割り当てる前に InitProc の元の値を保存し、新しく割り当てられた初期化プロセス中に保存された値を呼び出します。
SaveInitProc := InitProc;
InitProc := @InitComObj;
10.IsConsole変数
モジュールがコンソール アプリケーションとしてコンパイルされるかどうかを示します。
ユニット
システム
var IsConsole: ブール値;
説明する
モジュールがコンソール アプリケーションとしてコンパイルされた場合、IsConsole 変数は True になります。これは、実行可能ファイルと DLL の両方で True になります。
11.IsLibrary変数
モジュールが DLL であるかどうかを示します。
ユニット
システム
var IsLibrary: ブール値;
説明する
モジュールが DLL の場合、IsLibrary 変数は True です。
12.JITEnable変数
ジャストインタイム デバッガーがいつ呼び出されるかを制御します。
ユニット
システム
var JITEnable: バイト = 0;
説明する
JITEnable を使用して、どのタイプの例外がジャストインタイム デバッガーをトリガーするかを示します。
JITEnable が 0 (デフォルト値) の場合、すべての例外はアプリケーションの例外処理メカニズムを使用して処理されます。タイムリー デバッガーは、アプリケーションが例外をキャッチするメカニズムを提供していない場合にのみ呼び出されます。 Delphi ユニットの初期化および終了領域を除き、Forms ユニットを含むアプリケーションは例外処理を (Application オブジェクトを通じて) 提供し、タイムリーなデバッガをトリガーしないことに注意してください (Forms ユニットを含むすべてのアプリケーションは例外処理を提供することに注意してください) (Application オブジェクト経由) 初期化セクションと終了セクションを除くすべてのセクションで、ジャストインタイム デバッガーはトリガーされません。
JITEnable が 1 の場合、非ネイティブ例外 (他の製品を使用してコンパイルされたコードによってスローされる)。リアルタイム デバッガーをトリガーします。ネイティブ例外は、アプリケーションの例外処理メカニズムによって処理されます。
JITEnable が 1 より大きい場合、すべての例外がリアルタイム デバッガーをトリガーします。
注: IDE をインストールすると、タイムリー デバッガーとして登録されます。デバッガーを使用して他のツールをインストールした場合、それらのツール自体が登録され、IDE の登録が上書きされる可能性があります。
13.言語機能
サポートが利用可能なロケールをリストします。
ユニット
システムユーティリティ
関数言語: TLanguages;
説明する
Languages によって返された値を使用して、システムでサポートされているロケールに関する情報を取得します。この機能は Windows プラットフォームでのみ利用可能です
14.MainInstance変数
メインの実行可能ファイルのインスタンス ハンドルを示します。
ユニット
システム
var MainInstance: LongWord;
説明する
MainInstance を使用して、アプリケーション内のメインの実行可能ファイルへのインスタンス ハンドルを取得します。これは、ランタイム ライブラリまたはパッケージを使用するアプリケーションで、ライブラリではなく実行可能ファイルへのハンドルが必要な場合に便利です。
注: 他のツールでコンパイルされた実行可能ファイルから CLX ダイナミック リンク ライブラリ (Windows) または共有オブジェクト (Linux) を実行する場合は、MainInstance を使用しないでください。
15.MainThreadID変数
現在のモジュールのメイン実行スレッドを示します。
ユニット
システム
var MainThreadID: LongWord;
説明する
MainThreadID を使用して、メイン実行スレッド (モジュールが初期化されたときの現在のスレッド) のスレッド ID を取得します。
デバッグ中、このメイン スレッド ID がスレッド ステータス ボックスに表示されます。
Windows では、MainThreadID 値は、一部の Win32 API 呼び出しで必要なスレッド ID と互換性があります。
16.NoErrMsg変数
実行時エラーが発生したときにアプリケーションがエラー メッセージを表示するかどうかを制御します。
ユニット
システム
var NoErrMsg: ブール値 = False;
説明する
Windows では、NoErrMsg を設定して、実行時エラーが発生したことを示すメッセージを表示するかどうかを制御します。 NoErrMsg が false (デフォルト) の場合、実行時エラーにより、アプリケーションは発生したエラーの種類を提案するメッセージ ボックスを表示します。 NoErrMsg が true の場合、これらのメッセージは抑制されます。
Linux では、NoErrMsg は効果がありません。
注: SysUtils ユニットは、ほとんどのランタイム エラーを例外に変換します。アプリケーションに SysUtils が含まれている場合、NoErrMsg が false であっても、ランタイム エラー メッセージ ボックスが表示されない場合があります。
17.PopupList変数
ポップアップ メニューに送信される Windows メッセージの集中処理を提供します。
ユニット
メニュー
var ポップアップリスト: TPopupList;
説明する
PopupList を使用して、アプリケーション内のすべてのポップアップ メニューにアクセスするか、ポップアップ メニュー メッセージに応答するウィンドウのウィンドウ ハンドルにアクセスします。 PopupList は、アプリケーションで作成されたすべてのポップアップ メニュー コンポーネントのリストを保持します。このリストは、これらのポップアップ メニューに送信される Windows メッセージを一元的に処理する非表示ウィンドウへのハンドルを保持します。
18.RTLバージョン定数
Delphi ランタイム ライブラリのバージョン番号を示します。
ユニット
システム
const RTLVersion = 15.0;
説明する
RTLVersion を使用して、コンパイラのバージョン レベルに依存しない Delphi ランタイム ライブラリのバージョン番号を確認します。
19.画面変数
画面デバイスを表します
ユニット
フォーム
var スクリーン: TScreen;
説明する
Screen 変数は、アプリケーションが実行されているシステムの画面を表す TScreen コンポーネントです。デフォルトでは、アプリケーションは現在の画面デバイスに関する情報に基づいて画面コンポーネントを作成し、それを Screen 変数に割り当てます。
20.Win32Platform変数
Win32 プラットフォームの識別子を指定します
ユニット
システムユーティリティ
var Win32Platform: 整数 = 0;
説明する
Win32Platform は、システムが実行されている Win32 プラットフォームの種類を識別するために使用されます。これは次のいずれかの値になります。
値の意味
VER_PLATFORM_WIN32s システムは Win32 です
VER_PLATFORM_WIN32_WINDOWS システムは Windows 95 です
VER_PLATFORM_WN32_NT システムは Windows NT です
Win32Platform は Windows でのみ使用できます。