* Explicitly specify CP1252 for registry tests which depends on this CP.

tests/test/packages/fcl-registry/tw35060a.pp

@@ -1,4 +1,5 @@
 { %TARGET=win32,win64,wince }
+{ %OPT=-Fccp1252 }
 
 program tw35060a;
 
@@ -115,6 +116,7 @@ var
   Err: Integer;
   CP: TSystemCodePage;
 begin
+  DefaultSystemCodePage:=1252;
   CreateTestKey;
   try
     Name := 'äëï';

tests/test/packages/fcl-registry/tw35060c.pp

@@ -1,4 +1,5 @@
 { %TARGET=win32,win64,wince }
+{ %OPT=-Fccp1252 }
 
 program tw35060c;
 
@@ -119,6 +120,7 @@ var
   Err: Integer;
 
 begin
+  DefaultSystemCodePage:=1252;
   CreateTestKey;
   Name := 'äëï';
   U := UnicodeString(Name);