あるサービスが起動しているかどうかを検知して動作を分岐するにはどうすればよろしいのでしょうか。
開発マシンはXP、利用者マシンはXP、Vista
delphi5,6,ターボいずれかの環境で開発します。
サービスの状態は QueryServiceStatus() で取得できます。
・OpenSCManager()
・OpenService()
・CloseServiceHandle()
等も一緒に使う必要がありますね。
場合によっては EnumServicesStatus() も使わなくてはならないかもしれません。
・StartService()
・ControlService()
を使うと、サービスの状態を変更できます。
(開始/停止/一時停止/再開)
# WinSvc を uses して下さい。
サービスの一覧取得と開始と停止
ProcessServiceUnit.pas
http://khe00221.image.coocan.jp/index.php?FrontPage%2FUnit%2FProcessServiveUnit.pas
PrivilegeUnit.pas
http://khe00221.image.coocan.jp/index.php?FrontPage%2FUnit%2FPrivilegeUnit.pas
ツイート | ![]() |