> >Local loReg As Registry >Local lcKey, lcKeyVal > >loReg = Newobject('Registry', Home()+'FFC\Registry.VCX') > >lcKey = 'Software\SOYKAN' >lcKeyVal = 'My_App' > >Wait 'Look in registry editor' Window >If (loReg.OpenKey(lcKey, loReg.nUserKey, .T.) == 0) > Wait '\HKCU\' + lcKey + ' created!' Window > > If (loReg.SetKeyValue(lcKeyVal, '8987-920092') == 0) > Wait '\HKCU\' + lcKey + '\' + lcKeyVal + ' created!' Window > > > RegDeleteValue(loReg.nCurrentKey, lcKeyVal) > Wait '\HKCU\' + lcKey + '\' + lcKeyVal + ' deleted!' Window > > Endif > loReg.DeleteKey(loReg.nUserKey, lcKey) > Wait '\HKCU\' + lcKey + ' deleted!' Window > loReg.Closekey() >Endif > >loReg = Null >Release loReg >Release All >Clear All > >
#Define HKEY_CURRENT_USER -2147483647 Local loReg As Registry Local lcKey, lcKeyVal, cOptVal loReg = Newobject('Registry', Home()+'FFC\Registry.VCX') lcKey = 'Software\SOYKAN' lcKeyVal = 'My_App' cOptVal = '' If loReg.GetRegKey(m.lcKeyVal,@cOptVal,m.lcKey,HKEY_CURRENT_USER) = 0 ? m.cOptVal endifCetin