Delphi 自作Webサーバー作成 IISの稼働停止

Question

前提・実現したいこと

Delphiで自作のWebサーバーを作成しています。

コンポーネントを用いてHTTP通信可能なものを作りましたが、ポート80がIISとバッティングしていました。

ポート設定は８０のままで自作サーバーを動かしたいです。

手動でIISのサーバーを落とすことはできたのですが、コード上で稼働停止、稼働再開を実装したいのですが、

よく分からず、詰まっています。どのように進めればよいでしょうか。

Answer 1

IISを終了・再開するバッチをShellExecute関数で実行する方法があります。IISの終了・再開を行うiisresetコマンドの実行には管理者権限が必要であることに注意してください。
バッチの実行結果を取得する必要がある場合は、「ERRORLEVEL」環境変数を参照して一時ファイルに書き出す方法があります。
以下のサイトが参考になります。

・バッチでIISを起動、終了する方法
https://garafu.blogspot.com/2014/05/batiis.html

・バッチファイルをShellExecute関数で実行
http://mrxray.on.coocan.jp/Delphi/plSamples/530_ConsoleBat1.htm

・管理者権限でコマンドプロンプトや他のアプリを起動
http://mrxray.on.coocan.jp/Delphi/plSamples/490_CmdPrompt1.htm#04

・Windowsバッチファイル実行結果の取得
http://capm-network.com/?tag=Windows%E3%83%90%E3%83%83%E3%83%81%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E5%AE%9F%E8%A1%8C%E7%B5%90%E6%9E%9C%E3%81%AE%E5%8F%96%E5%BE%97