我需要定义是否在Visual Studio 2017中安装了特定的扩展名。我可以使用Microsoft.VisualStudio.Setup.Configuration.Interop
C#获取注册到VS实例的包引用。这是工作代码的示例:
var query = (ISetupConfiguration2) new SetupConfiguration();
var e = query.EnumInstances();
int fetched;
var instances = new ISetupInstance[1];
do
{
e.Next(1, instances, out fetched);
if (fetched <= 0) continue;
ISetupInstance2 instance = instances[0] as ISetupInstance2;
if (instance == null)
continue;
var temp = instance.GetPackages();
var temp2 = temp.Select(p => p.GetId());
} while (fetched > 0);
问题是我必须使用Inno Setup及其Pascal脚本来执行此操作。目前,我有以下代码:
const
CLSID_SetupConfiguration = '{177F0C4A-1CD3-4DE7-A32C-71DBBB9FA36D}';
type
ISetupPackageReference = interface(IUnknown)
'{DA8D8A16-B2B6-4487-A2F1-594CCCCD6BF5}'
function GetId(out result: WideString): HResult;
end;
packageReference = array[0..10] of ISetupPackageReference;
ISetupInstance2 = interface(IUnknown)
'{89143C9A-05AF-49B0-B717-72E218A2185C}'
function GetPackages(out pack: packageReference): HResult;
end;
arrISetupInstance2 = array[1..1] of ISetupInstance2;
IEnumSetupInstances = interface(IUnknown)
'{6380BCFF-41D3-4B2E-8B2E-BF8A6810C848}'
function Next(celt: Integer; var rgelt: arrISetupInstance2; out pceltFetched: Integer): HResult;
function Skip(celt: Integer): HResult;
function Reset: HResult;
function Clone(out pEnumSetupInstances: IEnumSetupInstances): HResult;
end;
ISetupConfiguration = interface(IUnknown)
'{42843719-DB4C-46C2-8E7C-64F1816EFD5B}'
function EnumInstances(out pEnumSetupInstances: IEnumSetupInstances): HResult;
end;
ISetupConfiguration2 = interface(IUnknown)
'{26AAB78C-4A60-49D6-AF3B-3C35BC93365D}'
function EnumInstances(out pEnumSetupInstances: IEnumSetupInstances): HResult;
end;
procedure GetArrayOfVSExtensions;
var
MyResult: String;
obj: IUnknown;
setupConfiguration: ISetupConfiguration2;
setupInstances: IEnumSetupInstances;
instances: arrISetupInstance2;
instance: ISetupInstance2;
fetched: Integer;
hr: HResult;
MyPackages: packageReference;
FirstInstance: ISetupPackageReference;
NameOfExtension: WideString;
begin
obj := CreateComObject(StringToGUID(CLSID_SetupConfiguration));
setupConfiguration := ISetupConfiguration2(obj);
hr := setupConfiguration.EnumInstances(setupInstances);
fetched := 0;
hr := setupInstances.Next(1, instances, fetched);
instance := instances[1];
hr := instance.GetPackages(MyPackages);
FirstInstance := MyPackages[3];
hr := FirstInstance.GetId(NameOfExtension); { Here I get null pointer exception }
end;
GetPackages()
在我的情况下,方法似乎无法正常工作,结果MyPackages
为空。
有谁知道我如何获得有效的扩展数组并使此方法起作用?
提前致谢。
感谢马丁·普里克里(Martin Prikryl)的评论,我设法解决了这个问题(再次感谢您)。
该GetPackages()
方法在ISetupInstance2
继承自的接口中声明ISetupInstance
。因此,ISetupInstance
在声明时必须声明from的方法ISetupInstance2
。
ISetupInstance2
为了使用该GetPackages()
方法,接口的声明必须如下所示:
ISetupInstance2 = interface(IUnknown)
'{89143C9A-05AF-49B0-B717-72E218A2185C}'
{ Inherited methods from ISetupInstance }
function GetInstanceId(out id: WideString): HResult;
procedure Dummy2;
function GetInstallationName(out installationName: WideString): HResult;
function GetInstallationPath(out installationName: WideString): HResult;
function GetInstallationVersion(out installationVersion: WideString): HResult;
function GetDisplayName(lcid: Integer; out displayName: WideString): HResult;
function GetDescription(lcid: Integer; out description: WideString): HResult;
function ResolvePath(pwszRelativePath: WideString; out result: WideString): HResult;
{ Own methods of ISetupInstance2 }
procedure Dummy3;
function GetPackages(out pack: packageReference): HResult;
procedure Dummy4;
procedure Dummy5;
procedure Dummy6;
procedure Dummy7;
procedure Dummy8;
procedure Dummy9;
procedure Dummy10;
end;
也许这会帮助某人解决类似的问题。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句