delphi - Delphi - フォームを使用してアプリケーション内でサービスをインストール、開始、停止する

Question

Delphi アプリケーションがあり、それにサービスを追加しました。メイン フォームボタンでインストール、開始、停止するにはどうすればよいですか。

私は別のプロジェクトサービスでそれを行うことができますが、私の目標はサービスがそれを制御するためのインターフェースを作ることです.

ありがとう

Answer 1

Win32 API Service Control 関数 ( 、 、 、 など) を使用する必要がありますCreateService()。OpenService()サービス StartService()はControlService()、実行中に独自の UI を表示することはできません。UI は別のプロセスとして実行する必要があります。ただし、必要に応じて、サービス コードと UI コードを同じ実行可能ファイルでホストし、コマンド ライン パラメーターを使用して、いつサービスとして実行し、いつ UI として実行するかを知ることができます。しかし、それはコード管理の問題です。代わりに、2 つのコードベースを別々の実行可能ファイルで簡単にホストすることもできます。

Answer 2

同じアプリケーション内でサービスへの視覚的なインターフェイスを持つことはできなくなりました。

Windows Vista 以降では、サービスはユーザーとは別のデスクトップで実行され、ユーザーと視覚的にやり取りすることはできません。名前付きパイプ、メールスロット、またはその他の形式のプロセス間通信を介して、またはservice control functionsWindows API で利用可能ないずれかを介して、サービスと通信する別のアプリケーションを作成する必要があります。