喫茶XRAY [Mr.XRAY掲示板]

例えば，アプリ開始時に，パスワードを入力させて，間違いなら
見かけ上，アプリを起動しないようにする．
何かのファイルがない場合，
システムに何かが不足している

場合等に応用できます．
実際にアプリを起動しないのではなく，アプリそのものは起動します．
メインフォームを閉じると，アプリの終了となることと，
OnShow ではまだ，フォームが表示されていないことを利用しています．
OnCreate イベントでの処理も可能です．
用途によって使い分けることになります．

//-----------------------------------------------------------------
//  条件によって，メインフォームを表示と非表示を切り替える
//  メインフォームを閉じることは，アプリケーションの終了となる
//-----------------------------------------------------------------
procedure TForm1.FormShow(Sender: TObject);
var
  AValue : String;
begin
  if InputQuery('入力画面', 'パスワード', AValue) then begin
    if Trim(AValue) = '' then begin
      //入力が空文字の場合
      //WM_CLOSEの送信はPostMessageで行う
      PostMessage(Handle, WM_CLOSE, 0, 0);
    end;
  end else begin
    //[キャンセル]でダイアログを閉じた時も強制終了
    PostMessage(Handle, WM_CLOSE, 0, 0);
  end;
end;

[OnCreateでFormを消すには？？]
http://hpcgi3.nifty.com/e-papy/DelphiBBS/wwwlng.cgi?print+201404/14040005.txt

も，こういうことではないかと思いますが，
本人が，「今は、次の質問に移ってますので、」
と書いていますし．
「消す」とか「richeditの問題のほうも見ていただけませんか？？」
というのもすごいですけどね．
たまにみかけるパターンですが．

アプリ起動直後の画面
空文字入力だと，フォームを表示しないでアプリを終了する