2 Reg Keys, 1 Install Dir

weidhas
25th May 2002 16:03 UTC

2 Reg Keys, 1 Install Dir
hi!

i want to search for reg key A und reg key B. when the one of these keys is found it should be the install dir.

i tried it with

InstallDirRegKey ...
InstallDirRegKey ...

but it don't work

...

Smile2Me
25th May 2002 17:16 UTC

Do something like this:

function .onInit
ReadRegStr $0 [RegAddress_A]
StrCmp $0 "" 0 Found
ReadRegStr $0 [RegAddress_B]
StrCmp $0 "" NotFound
Found:
StrCpy $INSTDIR $0
...
NotFound:
...
functionend

-Hendri.

weidhas
26th May 2002 16:25 UTC

mh
it doesn't work :(

perhaps an example would help ...

- christoph

kichik
26th May 2002 17:54 UTC

What error does it give you?

veekee
26th May 2002 18:22 UTC

I'ld have written ...

function .onInit
ReadRegStr $0 [RegAddress_A]
ReadRegStr $1 [RegAddress_B]

; if $0 and $1 are null -> goto notfound else continue

StrCmp $0 $1 NotFound 0

; (we dunno which one is the right one)
; so if $0 is empty, copy $1 (which is not) into $0

StrCmp $0 "" 0 Continue
StrCpy $0 $1

; now $0 has got the right path

...

NotFound:
...

functionend

veekee
26th May 2002 18:23 UTC

.. sorry, i forgot a label :D !

StrCmp $0 "" 0 Continue
StrCpy $0 $1
Continue:

;)

Smile2Me
26th May 2002 19:00 UTC

veekee, my code works fine.
weidhas, an example? The code supplied already was an example. But ok.

outfile 2regs.exe
name 2regs

function .onInit
  ; Make sure we have a regentry
  WriteRegStr HKLM "Software\2regs" "dir" "c:\My docs"

  ; Now check the regentries as if
  ; we don't know the info above
  ReadRegStr $0 HKLM "Software\skjgllfsg" "dir"
  StrCmp $0 "" 0 Found
  ReadRegStr $0 HKLM "Software\2regs" "dir"
  StrCmp $0 "" NotFound
  Found:
  StrCpy $INSTDIR $0 ; So $INSTDIR contains install dir
  MessageBox MB_OK $INSTDIR
  Goto Continue
  NotFound:
  MessageBox MB_OK "No regsettings found!"
  Continue:
functionend

section
  DeleteRegKey HKLM "Software\2regs"
sectionend

-Hendri.

veekee
26th May 2002 19:11 UTC

Apologizes
Sure, your code works :up: ! I didn't understood the first time i read it ! I beg your pardon, dear Smile2Me.... :(

Bad veekee, bad !

Smile2Me
27th May 2002 07:24 UTC

Veekee, it's OK.

-Hendri.