Programmeren in REXX/Een beetje OORexx: verschil tussen versies
Verwijderde inhoud Toegevoegde inhoud
Toevoegen van functies |
Registry lezen |
||
Regel 196:
=Extern functiepakket maken=
::REQUIRES PAKKET.REX
=Windows register benaderen=
r = .WindowsRegistry~new /* maken van een nieuw registry object */
if r~InitCode \= 0 then exit /* stoppen als mislukt */
RegistryOk=0 ; RecallOK=0
If r~open(r~Current_User,'Software\MijnSoftware\FileOpen') \=0 then do
RegistryOk=1
qstem. = r~QUERY()
r~LISTVALUES(,lv.)
drop name type
do i=1 to qstem.values
t="name:" lv.i.name "(type="lv.i.type")"
if lv.i.type = "NORMAL" | lv.i.type = "NUMBER" then
t=t "data:" lv.i.data
say t
end
CPath. = r~GetValue(,'CurrentPath')
{{50%}}
{{sub}}
| |||