Access to all 3 hives in the registry

Question

Creating a 32-bit application with delphi I don’t have access to all the hives depending on whether the application is running on a win32 or win64 machine. Here is the default access link: http://msdn.microsoft.com/en-us/library/aa390789(v=VS.85).aspx

I just want to create one application, and not a separate version for 32 and 64. And I would like to use WMI and extract information from the 32-bit registry hive, 64-bit registry hive and WOW6432Node. There are FLAGS to install, but I can’t figure out how to send flags with a regular WMI request call from my delphi application. Here is information about FLAG: http://msdn.microsoft.com/en-us/library/aa393067(v=VS.85).aspx

GLibWmi and DelphiWmiCodeCreator exmple:

function GetWMIObject(const objectName: String): IDispatch; //create the Wmi instance var chEaten: Integer; BindCtx: IBindCtx; Moniker: IMoniker; begin OleCheck(CreateBindCtx(0, bindCtx)); OleCheck(MkParseDisplayName(BindCtx, StringToOleStr(objectName), chEaten, Moniker)); OleCheck(Moniker.BindToObject(BindCtx, nil, IDispatch, Result)); end; procedure GetWin32_StartupCommandInfo; var objWMIService : OLEVariant; colItems : OLEVariant; colItem : OLEVariant; oEnum : IEnumvariant; iValue : LongWord; begin; objWMIService := GetWMIObject('winmgmts:\\localhost\root\CIMV2'); colItems := objWMIService.ExecQuery('SELECT * FROM Win32_StartupCommand','WQL',0); oEnum := IUnknown(colItems._NewEnum) as IEnumVariant; while oEnum.Next(1, colItem, iValue) = 0 do begin Writeln(''); end; end; 

REVISED CODE:

 procedure GetWin32_StartupCommandInfo(aIDispatch: IDispatch); var objWMIService : OLEVariant; colItems : OLEVariant; colItem : OLEVariant; oEnum : IEnumvariant; iValue : LongWord; begin; objWMIService := aIDispatch; //GetWMIObject('winmgmts:\\localhost\root\CIMV2'); colItems := objWMIService.ExecQuery('SELECT * FROM Win32_StartupCommand','WQL',0); oEnum := IUnknown(colItems._NewEnum) as IEnumVariant; while oEnum.Next(1, colItem, iValue) = 0 do begin with Form1.lst1 do begin items.Add(Format('Caption="%s"; Location="%s"',[colItem.Caption,colItem.Location]));// String {items.Add(Format('Command %s',[colItem.Command]));// String items.Add(Format('Description %s',[colItem.Description]));// String items.Add(Format('Location %s',[colItem.Location]));// String items.Add(Format('Name %s',[colItem.Name]));// String items.Add(Format('SettingID %s',[colItem.SettingID]));// String items.Add(Format('User %s',[colItem.User]));// String items.Add(Format('UserSID %s',[colItem.UserSID]));// String } items.Add(''); end; end; end; function MyConnectWMI(wmiHost:string; var Services: ISWbemServices):Boolean; const STR_CIM2_ROOT ='root\CIMV2'; STR_EMPTY = ''; var NVS: SWbemNamedValueSet; providerArchitecture : OleVariant; requiredArchitecture : OleVariant; Locator : ISWbemLocator; //CoSWbemLocator; begin try providerArchitecture := 32; // or 64 requiredArchitecture := true; NVS := CoSWbemNamedValueSet.Create( ); NVS.Add('__ProviderArchitecture', providerArchitecture , 0); NVS.Add('__RequiredArchitecture', requiredArchitecture , 0); // Create the Location object Locator := CoSWbemLocator.Create(); // Connect to the WMI service, with the root\cimv2 namespace Services := Locator.ConnectServer(wmiHost, STR_CIM2_ROOT, {user}STR_EMPTY, {password}STR_EMPTY, STR_EMPTY,STR_EMPTY, 0, NVS); Result := True; except Result := False; end; end; procedure TForm1.btn1Click(Sender: TObject); var aServices: ISWbemServices; begin if MyConnectWMI('localhost', aServices) then GetWin32_StartupCommandInfo(aServices); end; 

Answer 1

You are using Wiki Moniker, and as far as I can see, you cannot specify the parameters that you need through it. Instead, you need to use the SWbemLocator object, since you can pass the SWbemNamedValueSet as the final parameter.

The UProcedures.pas GLibWMI file has a ConnectWMI function. It passes zero to the final parm:

 Services := Locator.ConnectServer(wmiHost, STR_CIM2_ROOT, {user}STR_EMPTY, {password}STR_EMPTY, STR_EMPTY,STR_EMPTY, 0, nil); 

You need to create an alternative, something like this:

 var NVS: SWbemNamedValueSet; providerArchitecture : OleVariant; requiredArchitecture : OleVariant; ///// providerArchitecture := 32; // or 64 requiredArchitecture := true; NVS := CoSWbemNamedValueSet.Create(); NVS.Add('__ProviderArchitecture', providerArchitecture , 0); NVS.Add('__RequiredArchitecture', requiredArchitecture , 0); // Create the Location object Locator := CoSWbemLocator.Create(); // Connect to the WMI service, with the root\cimv2 namespace Services := Locator.ConnectServer(wmiHost, STR_CIM2_ROOT, {user}STR_EMPTY, {password}STR_EMPTY, STR_EMPTY,STR_EMPTY, 0, NVS); 

This will give you the ISWbemServices interface where you can execute ExecQuery.

Access to the registry through StdRegProv -

 procedure Get_RegistryValue(aIDispatch: IDispatch); var objWMIService : OLEVariant; strKeyPath : OLEVariant; strValue : OLEVariant; strOut : OLEVariant; objStdRegProv : OLEVariant; begin; objWMIService := aIDispatch; objStdRegProv := objWMIService.Get('StdRegProv'); strKeyPath := 'Software\Microsoft\Wbem\CIMOM'; strValue := 'Logging'; objStdRegProv.GetStringValue(HKEY_LOCAL_MACHINE, strKeyPath, strValue, strOut); with Form1.lst1 do begin items.Add(strOut); end; end; end; // connect to root\default instead of cimv2 function MyConnectWMI(wmiHost:string; var Services: ISWbemServices):Boolean; const STR_DEFAULT_ROOT = 'root\default' STR_EMPTY = ''; var NVS: SWbemNamedValueSet; providerArchitecture : OleVariant; requiredArchitecture : OleVariant; Locator : ISWbemLocator; //CoSWbemLocator; begin try providerArchitecture := 32; // or 64 requiredArchitecture := true; NVS := CoSWbemNamedValueSet.Create( ); NVS.Add('__ProviderArchitecture', providerArchitecture , 0); NVS.Add('__RequiredArchitecture', requiredArchitecture , 0); // Create the Location object Locator := CoSWbemLocator.Create(); // Connect to the WMI service, with the root\cimv2 namespace Services := Locator.ConnectServer(wmiHost, STR_DEFAULT_ROOT, {user}STR_EMPTY, {password}STR_EMPTY, STR_EMPTY,STR_EMPTY, 0, NVS); Result := True; except Result := False; end; end;