如何打开服务属性对话框

Question

我想在我的应用程序中添加一个按钮(服务的前端),它将为我的服务打开服务属性对话框(如服务mmc snapin).

打开文件属性有很多例子,但这不是我想要的.我不知道从哪里开始.

Answer 1

基于此services.msc,页面来自filemgmt.dll并被称为ServicePageGeneral.注册COM组件时,我找不到任何有关CLSID的文档,也找不到任何其他字符串filemgmt.dll.

这并不排除存在已建立的API或命令行选项来显示对话框的可能性,但我当然找不到一个.

进一步证实对话框不可重用的情况,Process Explorer和SQL Server配置管理器都重新实现对话框,而不是显示services.msc版本.

相关:如何从命令行或链接打开各个服务的属性框？

Answer 2

今天我发现这是可能的！

这是 Delphi 上的代码，它使用MMC 2.0 自动化对象模型

var
  objMMC: OleVariant;

procedure ShowSvcProperties(const ASvcName: string);
var
  objView, objList, objItem: OleVariant;
  SvcEnum: IEnumVariant;
  Value: UInt32;
  sName: string;
begin
  objMMC := CreateOleObject('MMC20.Application');
  objMMC.Load('services.msc');
  objView := objMMC.Document.ActiveView;
  objList := objView.ListItems;
  SvcEnum := IUnknown(objList._NewEnum) as IEnumVariant;
  while SvcEnum.Next(1, objItem, Value) = S_OK do
  try
    sName := objItem.Name;
    if SameText(sName, ASvcName) then begin
      objView.Select(objItem);
      objView.DisplaySelectionPropertySheet;
      Break;
    end;
  finally
    VariantClear(objItem);
  end;
end;

现在要显示服务属性对话框只需调用ShowSvcProperties('Plug and Play');