= 0x500 ifTrue: [ hkcr := hkey := Handle localNew. WINAPI RegOpenCurrentUser: KEY_READ|KEY_SET_VALUE with: hkey basicAddress. ] ifFalse: [ hkey := HKEY_CURRENT_USER. ]. ] ifFalse: [ hkey := hkr. ]. ptbsp _longAtOffset: 0 put: hkey. ptbsp _longAtOffset: 4 put: szSubKey basicAddress. ptbsp _longAtOffset: 8 put: szValueName basicAddress. WINAPI SendMessage: m_handle with: wmMsg with: fSave with: ptbsp basicAddress. hkcr notNil ifTrue: [WINAPI RegCloseKey: hkcr].]]>