delphi - 例外が発生した場合にサービスを再起動する

Question

再起動が必要なサービス アプリケーションを開発しています。それを行う方法は何ですか？システム起動アプリが停止している場合、再度アプリ起動を依頼することはできますか? Delphi 2007 を使用しています。

Answer 1

サービスは、そのイベントChangeServiceConfig2()内で Win32 API 関数を呼び出すことにより、それ自体の回復オプションをプログラムで構成できます。toを設定しAfterInstall、サービスが失敗したときに何をしたいかを説明するレコードを指すように設定します。dwInfoLevelSERVICE_CONFIG_FAILURE_ACTIONSlpInfoSERVICE_FAILURE_ACTIONS

Answer 2

入るservices.mscと、サービス用にこれを構成できます。コードで行う必要はありません。サービスのプロパティを開くと、[回復] タブが表示されます。