mirror of
https://github.com/keymanapp/keyman.git
synced 2026-09-17 21:27:40 +00:00
37 lines
776 B
ObjectPascal
37 lines
776 B
ObjectPascal
unit TikeUnicodeData;
|
|
|
|
interface
|
|
|
|
uses
|
|
UnicodeData;
|
|
|
|
procedure CreateTikeUnicodeData(UIManager: IUnicodeDataUIManager);
|
|
|
|
implementation
|
|
|
|
uses
|
|
System.SysUtils,
|
|
Winapi.Windows,
|
|
|
|
ErrorControlledRegistry,
|
|
RedistFiles,
|
|
RegistryKeys;
|
|
|
|
procedure CreateTikeUnicodeData(UIManager: IUnicodeDataUIManager);
|
|
var
|
|
FUnicodePath: string;
|
|
begin
|
|
with TRegistryErrorControlled.Create do // I3463
|
|
try
|
|
RootKey := HKEY_LOCAL_MACHINE;
|
|
if OpenKeyReadOnly(SRegKey_KeymanDeveloper_LM) and ValueExists(SRegValue_RootPath)
|
|
then FUnicodePath := IncludeTrailingPathDelimiter(ReadString(SRegValue_RootPath))
|
|
else FUnicodePath := '';
|
|
finally
|
|
Free;
|
|
end;
|
|
|
|
CreateUnicodeData(GetUnicodeDataSourcePath(FUnicodePath), UIManager, FUnicodePath); // I3463
|
|
end;
|
|
|
|
end.
|