掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メインフォーム非表示でApplication.Run後に処理をするには？ (ID:14224)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じでしょうか？ begin Application.Initialize; Application.CreateForm(TForm1, Form1); if ParamCount <> 0 then begin // コマンドライン引数判定 Application.ShowMainForm := False; // メインフォーム非表示 end; Application.Run; end. 〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 Timer1 の Enabled は False にしておく。 Interval は 10 程度。 procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Enabled := True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled := False; //このタイマールーチンは１度しか動作しない ShowMessage('メイン処理実行中'); //コマンドライン引数が無→アプリの自動終了しない if ParamCount = 0 then begin //コマンドライン引数が有→アプリの自動終了する end else begin Close; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.