Hi all,

While seting up a new app installer and webupdate I realised that :

Under Server 2008 64 bits or Vista 64 Bits when in any SB script there is
any reg function used on
LOCAL_MACHINE/SOFTWARE/LINDERSOFT/xxxx
then it automatically writes in Wow6432Node/LINDERSOFT/xxxx and all is fine
for SB scripts (installer - updater etc)

Now when from withinn Clarion 6 9056 I use a GETREG on the same keys I get a
0 in return as it does not knwo how to translate from SOFTWARE to
SOFTWARE/Wow6432Node/

BUT when I use a PUTREG from Clarion then all is fine again
????????????????????????????????????

This is the code I now have to use from my app to set things properly (small
code before running updater as I want to give users with the latest version
the possibility to run it again in case of pbs on their machines)

RUN('dmccheck.exe',1) ! this is a SB script compiled just to retreive
the latest update version from site
Vista# = 0 ! I had to add this check as otherwise ....
returns 0

LOC:VersionLocal =
GETREG(REG_LOCAL_MACHINE,'SOFTWARE\Lindersoft\WebU pdate\Apps\{{500CCD05-81A0-11D9-390C-009F3F177E87}','LOCAL_VERSION')
! Vista or 2008
IF LOC:VersionLocal = 0
Vista# = 1
LOC:VersionLocal =
GETREG(REG_LOCAL_MACHINE,'SOFTWARE\Wow6432Node\Lin dersoft\WebUpdate\Apps\{{500CCD05-81A0-11D9-390C-009F3F177E87}','LOCAL_VERSION')
END
LOC:VersionSite = GETREG(REG_CURRENT_USER,'SOFTWARE\CGF\Data
Management Center','Version en Ligne')

IF LOC:VersionLocal = LOC:VersionSite
GLO:MessageCGFButton = 0
GLO:MessageCGFIcon = 'QUESTION' ! INFO - QUESTION et par defaut
STOP
GLO:MessageCGFButOKIcon = '' ! 1= cacher
GLO:MessageCGFButOKTip = Translator.TranslateString('Oui')
GLO:MessageCGFButOKText = Translator.TranslateString('Oui')
GLO:MessageCGFButKOIcon = '' ! 1= cacher
GLO:MessageCGFButKOTip = Translator.TranslateString('Non')
GLO:MessageCGFButKOText = Translator.TranslateString('Non')
GLO:MessageCGFL1Text = Translator.TranslateString('Mise à Jour du
Logiciel')
GLO:MessageCGFL2Text = ''
GLO:MessageCGFL3Text = Translator.TranslateString('Voulez-vous
forcer la réinstallation du logiciel ?')
GLO:MessageCGFL4Text = Translator.TranslateString('(Cliquez sur
Oui)')
GLO:MessageCGFL5Text = ''
GLO:MessageCGFL6Text = ''
GLO:MessageCGFEntry = 0 ! 1 = afficher
GLO:MessageCGFEntryText = ''
GLO:MessageCGFEntryValue = ''
GLO:MessageCGFL1Pos = 'CENTER'
GLO:MessageCGFL2Pos = ''
GLO:MessageCGFL3Pos = 'CENTER'
GLO:MessageCGFL4Pos = 'CENTER'
GLO:MessageCGFL5Pos = 'CENTER'
GLO:MessageCGFL6Pos = 'CENTER'
GLO:MessageCGFL1Style = '700' ! 700 = gras | 400 = normal | 4496 =
italique
GLO:MessageCGFL2Style = ''
GLO:MessageCGFL3Style = ''
GLO:MessageCGFL4Style = ''
GLO:MessageCGFL5Style = ''
GLO:MessageCGFL6Style = ''
GLO:MessageCGFL1Color = '16711680' ! 255 = Rouge | 65535 = jaune |
16711680 = bleu | 8388608 = bleu foncé | 32768 = vert
GLO:MessageCGFL2Color = '8388608'
GLO:MessageCGFL3Color = '8388608'
GLO:MessageCGFL4Color = '8388608'
GLO:MessageCGFL5Color = '8388608'
GLO:MessageCGFL6Color = '8388608'

MessageCGF

IF GLO:MessageCGFButton = 1
IF Vista# = 0
PUTREG(REG_LOCAL_MACHINE,'SOFTWARE\Lindersoft\WebU pdate\Apps\{{500CCD05-81A0-11D9-390C-009F3F177E87}','LOCAL_VERSION','1.0.0.0')
ELSE
PUTREG(REG_LOCAL_MACHINE,'SOFTWARE\Wow6432Node\Lin dersoft\WebUpdate\Apps\{{500CCD05-81A0-11D9-390C-009F3F177E87}','LOCAL_VERSION','1.0.0.0')
END

RUN('dmcupdate.exe')
END
ELSE
RUN('dmcupdate.exe')
END

(I renamed wupdate to dmcupdate as I needed to have two update files in the
same dir for 2 different apps)

The PUTREG part is no use - I left it to be sure ....
The GETREG returns 0 and the PUTREG knows where to go ??????

Clarion GETREG BUG ????

Merci for your ideas and tests

JP

--
Merci - Thank you

JP