From ad752f3ef7cf7d6f4223e04db08c9aa2f65cec2d Mon Sep 17 00:00:00 2001
From: Marc Durdin <marc@durdin.net>
Date: Tue, 31 Jan 2023 11:13:27 +0700
Subject: [PATCH] feat(windows): add additional registry keys to report

HKCU\Software\Microsoft\CTF
HKCU\Control Panel\International\User Profile
---
 windows/src/engine/tsysinfo/si_language.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/windows/src/engine/tsysinfo/si_language.pas b/windows/src/engine/tsysinfo/si_language.pas
index fcc2e03940..27bcf99ed4 100644
--- a/windows/src/engine/tsysinfo/si_language.pas
+++ b/windows/src/engine/tsysinfo/si_language.pas
@@ -145,6 +145,8 @@ begin
 
   regnode := xmlAddChild(subnode,'CurrentUser');
   AddRegistry(regnode, HKEY_CURRENT_USER, SRegKey_KeyboardLayout_CU);
+  AddRegistry(regnode, HKEY_CURRENT_USER, 'Software\Microsoft\CTF');
+  AddRegistry(regnode, HKEY_CURRENT_USER, SRegKey_ControlPanelInternationalUserProfile);
   subnode := xmlAddChild(node,'Uniscribe');
   AddFileVersion(subnode, GetFolderPath(CSIDL_SYSTEM) + 'usp10.dll');
   str := TStringList.Create;