This website uses cookies. By clicking Accept, you consent to the use of cookies. Click Here to learn more about how we use cookies.
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
- Revenera Community
- :
- InstallShield
- :
- InstallShield Forum
- :
- Re: Installscript project can't write to 64 registry
Subscribe
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Subscribe
- Mute
- Printer Friendly Page
- Mark as New
- Subscribe
- Mute
- Permalink
- Report Inappropriate Content
‎Feb 20, 2012
04:07 PM
Installscript project can't write to 64 registry
I'm sure I''m missing something simple but I don't see it.
Why does this only write to the Wow6432Node registry key??
Pure Installscript 2011 project.
function OnBegin()
NUMBER i, nAutoSize, nResult;
STRING sTemp;
begin
nAutoSize = -1;
// TODO: Perform custom initialization steps, check requirements, etc.
nResult = Disable (WOW64FSREDIRECTION);
nResult = REGDB_OPTIONS = REGDB_OPTIONS | REGDB_OPTION_WOW64_64KEY;
nResult = RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
if (RegDBKeyExist(PROPERTY_KEY) < 0) then
nResult = RegDBCreateKeyEx(PROPERTY_KEY, "");
if nResult <0 then
MessageBox(FormatMessage(nResult), SEVERE);
endif;
endif;
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test1", REGDB_STRING, "sb1", nAutoSize);
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test2", REGDB_STRING, "sb2", nAutoSize);
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test3", REGDB_STRING, "sb3", nAutoSize);
Enable(WOW64FSREDIRECTION);
end;
Why does this only write to the Wow6432Node registry key??
Pure Installscript 2011 project.
function OnBegin()
NUMBER i, nAutoSize, nResult;
STRING sTemp;
begin
nAutoSize = -1;
// TODO: Perform custom initialization steps, check requirements, etc.
nResult = Disable (WOW64FSREDIRECTION);
nResult = REGDB_OPTIONS = REGDB_OPTIONS | REGDB_OPTION_WOW64_64KEY;
nResult = RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
if (RegDBKeyExist(PROPERTY_KEY) < 0) then
nResult = RegDBCreateKeyEx(PROPERTY_KEY, "");
if nResult <0 then
MessageBox(FormatMessage(nResult), SEVERE);
endif;
endif;
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test1", REGDB_STRING, "sb1", nAutoSize);
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test2", REGDB_STRING, "sb2", nAutoSize);
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test3", REGDB_STRING, "sb3", nAutoSize);
Enable(WOW64FSREDIRECTION);
end;
(2) Replies
![](/skins/images/D60DF682EA37BF37032955CE10F3F0BB/responsive_peak/images/icon_anonymous_message.png)
Not applicable
- Mark as New
- Subscribe
- Mute
- Permalink
- Report Inappropriate Content
‎Feb 20, 2012
11:44 PM
function OnBegin()
NUMBER i, nAutoSize, nResult;
STRING sTemp;
begin
nAutoSize = -1;
// TODO: Perform custom initialization steps, check requirements, etc.
//nResult = Disable (WOW64FSREDIRECTION);
REGDB_OPTIONS = REGDB_OPTION_WOW64_64KEY;
nResult = RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
if (RegDBKeyExist(PROPERTY_KEY) < 0) then
nResult = RegDBCreateKeyEx(PROPERTY_KEY, "");
if nResult <0 then
MessageBox(FormatMessage(nResult), SEVERE);
endif;
endif;
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test1", REGDB_STRING, "sb1", nAutoSize);
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test2", REGDB_STRING, "sb2", nAutoSize);
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test3", REGDB_STRING, "sb3", nAutoSize);
//Enable(WOW64FSREDIRECTION);
end;
NUMBER i, nAutoSize, nResult;
STRING sTemp;
begin
nAutoSize = -1;
// TODO: Perform custom initialization steps, check requirements, etc.
//nResult = Disable (WOW64FSREDIRECTION);
REGDB_OPTIONS = REGDB_OPTION_WOW64_64KEY;
nResult = RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
if (RegDBKeyExist(PROPERTY_KEY) < 0) then
nResult = RegDBCreateKeyEx(PROPERTY_KEY, "");
if nResult <0 then
MessageBox(FormatMessage(nResult), SEVERE);
endif;
endif;
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test1", REGDB_STRING, "sb1", nAutoSize);
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test2", REGDB_STRING, "sb2", nAutoSize);
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test3", REGDB_STRING, "sb3", nAutoSize);
//Enable(WOW64FSREDIRECTION);
end;
- Mark as New
- Subscribe
- Mute
- Permalink
- Report Inappropriate Content
‎Feb 21, 2012
08:39 AM
Thanks I knew it would be something simple that I just wasn't seeing.
No return value for regdb_options kept biteing me.
No return value for regdb_options kept biteing me.
![](/skins/images/D60DF682EA37BF37032955CE10F3F0BB/responsive_peak/images/icon_anonymous_message.png)