* Allow vendor specific registry XML files. Patch by Iluha Companets. Fixes issue #40910

packages/fcl-registry/src/registry.pp

@@ -308,6 +308,7 @@ ResourceString
 
 var
   GlobalXMLFile : Boolean = False;
+  VendorXMLFile : Boolean = False;
 
 implementation
 

packages/fcl-registry/src/xregreg.inc

@@ -176,6 +176,8 @@ var s : string;
 begin
   FStringSizeIncludesNull:=False;
   s:=includetrailingpathdelimiter(GetAppConfigDir(GlobalXMLFile));
+  if VendorXMLFile and (VendorName <> '') and (ApplicationName <> '') then
+    s:= Copy(s, 1, Length(s)-Length(ApplicationName)-1);
   {$ifdef XMLRegfile_in_CurDir}
   s:='.' + PathDelim;
   {$endif}