Today I'm found that this is possible!
This is code on Delphi, which uses MMC 2.0 Automation Object Model
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;
And now to show service properties dialog just call ShowSvcProperties('Plug and Play');