REM > BLib\Win\Choices 1.00 14-Mar-2005
REM
REM Find user's choices
:
:
DEFFNChoices_Find(Publisher$,Application$)
LOCAL Key$, K%, R%, T%, DIM buffer% 255
:
Key$="Software\"+Publisher$+"\"+Application$
SYS "RegOpenKeyEx", &80000001, Key$, 0, &20001, ^K% TO R%:IF R%:=""
L%=255:SYS "RegQueryValueEx", K%, "Settings", 0, ^T%, buffer%, ^L% TO R%
SYS "RegCloseKey", K%:IF R%:=""
buffer%?(L%-1)=13:=$buffer%
:
:
DEFFNChoices_Init(Publisher$,Application$,Path$)
LOCAL Key$, K%, R%, T%, DIM buffer% 255
:
Key$="Software\"+Publisher$+"\"+Application$
SYS "RegCreateKeyEx",&80000001,Key$,0,"",0,&F003F,0,^K%,^D% TO R%:IF R%:ENDPROC
SYS "RegSetValueEx", K%, "Settings", 0, 1, Path$, 1+LENPath$
SYS "RegCloseKey", K%
ENDPROC
:
: