//导入类库C:/Winnt/System32/Com/ComAdmin.dll为ComAdmin_TLB.pas
var
i : ICOMAdminCatalog;
l : ICatalogCollection;
k : ICatalogObject;
begin
i:=CoCOMAdminCatalog.Create;
l:=i.GetCollection('Applications') as ICatalogCollection;
l.Populate;
k:=l.Add as ICatalogObject;
k.Value['Name']:='demo';
l.SaveChanges;
i.InstallComponent(k.Name,'D:/Demo.dll','','');
end;
发现一个问题,可以创建同名的应用程序?!!
