erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-09-25 00:57:42 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 12

feat(windows): fix installHelper

Browse source
This commit is contained in:
rc-swag 2024-11-06 15:53:45 +10:00
parent 79a23a71fd
commit 883092e217
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
windows/src/engine/insthelper/Keyman.System.Install.EnginePostInstall.pas
View file

@ -29,15 +29,13 @@ end;
function UpdateState: Boolean;
var
UpdateStr : UnicodeString;
UpdatePBytes : PByte;
hk: Winapi.Windows.HKEY;
updateData: Cardinal;
begin
Result := False;
UpdateStr := 'usPostInstall';
if RegCreateKeyEx(HKEY_CURRENT_USER, PChar(SRegKey_KeymanEngine_CU), 0, NULL, KEY_ALL_ACCESS, NULL, &hk, NULL) = ERROR_SUCCESS then
if RegCreateKeyEx(HKEY_CURRENT_USER, PChar(SRegKey_KeymanEngine_CU), 0, nil, 0, KEY_ALL_ACCESS, nil, &hk, nil) = ERROR_SUCCESS then
begin
try
if RegSetValueEx(hk, PChar(SRegValue_Update_State), 0, REG_SZ, PChar(UpdateStr), (Length(UpdateStr)+1) * SizeOf(Char)) = ERROR_SUCCESS then
@ -54,7 +52,7 @@ begin
end
else
begin
// TODO-WINDOWS-UPDATES: error log creating key
//TODO-WINDOWS-UPDATES: error log creating key
end;
end;