１５番会議室「ＦＡＱ編纂委員会」に寄せられた「よくある質問の答え」
[Ｑ]
アプリケーションを終了する方法を教えてください (1)MainForm の FormCreate メソッドで条件によっては終了したい場合 (2)MainForm 以外（子フォーム）から終了させたい場合
[Ａ]
(1)Application.Terminateを使えば終了できます。 または、プロジェクトファイル(.DPR)を"例"のようにする方法もあります。 (2)Application.MainForm.Closeを使えば終了できます。 （MainFormのプロシジャーなら、単にCloseとします）[例]
ファイルを探して見つからなかったときに終了させる方法の例です。
以下のようにプロジェクトファイル(DPRが拡張子のもの）を書きます。
コマンドライン引数に指定したファイルが見つからなければすぐに終了します。
program Project1;
Forms,
Unit1 in 'UNIT1.PAS' {Form1};
{$R *.RES}
begin
if FileExists(ParamStr(1)) then
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.
ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum FDELPHIに寄せられる質問の中から、よくある質問への回答を FDELPHIのメンバーがまとめたものです。 したがって、これらの回答はボーランド株式会社がサポートする公式のものではなく、掲示されている内容についての問い合わせは受けられない場合があります。