home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxio46.zip / REGISTRY.MDE < prev    next >
Text File  |  1998-09-20  |  4KB  |  136 lines
  1. /*                      Registry Functions*/
  2. Arg Action
  3.     if DlgBox <> "DLGBOX" then signal value Action
  4.     DlgBox=MaidDlgFrame("                      Registry Functions",110,28,303,240,Action)
  5. if DlgBox = "0" then exit
  6.     ENTRYLEFT  AUTOSCROLL MARGIN ANYCHARS 125 12 50 15 "NAME"
  7.     LISTBOXHORZSCROLL 215 51 76 43 "VALUEDATA"
  8.     PUSHBUTTON 72 61 70 15 "BTN5" "Delete Key Entry"
  9.     PUSHBUTTON 92 76 50 15 "BTN4" "Delete Key"
  10.     ENTRYLEFT  AUTOSCROLL MARGIN ANYCHARS 68 12 50 15 "NEWKEY"
  11.     ENTRYLEFT  AUTOSCROLL MARGIN ANYCHARS 181 12 105 15 "VALUE"
  12.     LISTBOXHORZSCROLL 151 53 60 41 "VALUENAME"
  13.     LISTBOXHORZSCROLL 9 148 105 65 "LIST1"
  14.     LISTBOXHORZSCROLL 125 147 160 65 "SUBKEYS"
  15.     PUSHBUTTON 12 76 80 15 "BTN3" "Get Directory Registry"
  16.     ENTRYLEFT  AUTOSCROLL MARGIN ANYCHARS 9 108 281 17 "REGDIR"
  17.     PUSHBUTTON 12 61 60 15 "BTN2" "Get Key Entries"
  18.     PUSHBUTTON 10 12 50 15 "BTN1" "SetKeyValues"
  19.     TEXT 216 94 79 9 "TXT5" "Entry Data"
  20.     TEXT 150 94 50 9 "TXT4" "Entry Name"
  21.     TEXT 182 25 50 15 "TXT3" "Entry Data"
  22.     TEXT 125 25 50 15 "TXT2" "Entry Name"
  23.     TEXT 68 25 50 15 "TXT1" "Key"
  24.     GROUPBOX 4 140 113 84 "GBX3" "Registry Group"
  25.     GROUPBOX 4 104 291 32 "GBX2" "Registry Path Name"
  26.     GROUPBOX 122 140 171 84 "GBX1" "Key - Dbl clk to add to path - Select for Key Values"
  27.     GROUPBOX 4 5 289 44 "GBX4" "Set Key Values - Creates Key if Key not NULL"
  28. exit
  29. MAID_INIT:
  30. /* INIT DIALOG SECTION */
  31. f=RxFuncAdd('rexxioinit','REXXIO','rexxioinit')
  32. f=rexxioinit()
  33. ver=getosversion()
  34. ver=left(ver,4)
  35. if VER='OS/2' then MYFONT8="8.Helv"
  36. else MYFONT8="Arial.Helv.8"
  37. if VER='OS/2' then MYFONT10="10.Helv"
  38. else MYFONT10="Arial.Helv.10"
  39. FONT  "VALUE" MYFONT8
  40. FONT  "GBX1" MYFONT8
  41. FONT  "BTN5" MYFONT8
  42. FONT  "BTN4" MYFONT8
  43. FONT  "BTN3" MYFONT8
  44. FONT  "BTN2" MYFONT8
  45. FONT  "BTN1" MYFONT8
  46. FONT  "LIST1" MYFONT8
  47. FONT  "SUBKEYS" MYFONT8
  48. FONT  "VALUENAME" MYFONT8
  49. FONT  "VALUEDATA" MYFONT8
  50. FONT  "TXT5" MYFONT10
  51. FONT  "TXT4" MYFONT10
  52. FONT  "TXT3" MYFONT10
  53. FONT  "TXT2" MYFONT10
  54. FONT  "TXT1" MYFONT10
  55. FONT  "GBX3" MYFONT10
  56. FONT  "GBX2" MYFONT10
  57. FONT  "GBX4" MYFONT10
  58. FONT  "REGDIR" MYFONT10
  59. ADDTOLISTBOX "LIST1" "END" "HKEY_LOCAL_MACHINE\SOFTWARE"
  60. ADDTOLISTBOX "LIST1" "END" "HKEY_CURRENT_USER"
  61. ADDTOLISTBOX "LIST1" "END" "HKEY_USERS"
  62. ADDTOLISTBOX "LIST1" "END" "HKEY_CLASSES_ROOT"
  63. ADDTOLISTBOX "LIST1" "END" "HKEY_CURRENT_CONFIG"
  64. ADDTOLISTBOX "LIST1" "END" "HKEY_DYN_DATA"
  65. SELECTLISTBOXITEM "LIST1" 0 "SELECT"
  66. REGDIR="HKEY_LOCAL_MACHINE\SOFTWARE"
  67. SENDCLICK "BTN3"
  68. exit
  69. MAID_BTN5:
  70. /*Single Click - BUTTON - BTN5*/
  71. READLISTBOXSELECTION "SUBKEYS" "FIRST" "D"
  72. READLISTBOXSELECTION "VALUENAME" "FIRST" "V"
  73. if D\=-1 then do
  74.    if V\=-1 then do
  75.       B=REGDIR||'\'||D
  76.       f=deletekeyvalue(B,V)
  77.    end
  78. end
  79. exit
  80. MAID_BTN4:
  81. /*Single Click - BUTTON - BTN4*/
  82. READLISTBOXSELECTION "SUBKEYS" "FIRST" "D"
  83. if D\=-1 then do
  84.    B=REGDIR||'\'||D
  85.    f=deletekey(B)
  86. end
  87. exit
  88. MAID_LIST1:
  89. /*Single Click - LISTBOX - LIST1*/
  90. READLISTBOXSELECTION "LIST1" "FIRST" "REGDIR"
  91. exit
  92. MAID_SUBKEYS:
  93. /*Single Click - LISTBOX - SUBKEYS*/
  94. exit
  95. MAID_SUBKEYS_2:
  96. /*Double Click - LISTBOX - SUBKEYS*/
  97. READLISTBOXSELECTION "SUBKEYS" "FIRST" "D"
  98. REGDIR=REGDIR||'\'||D
  99. exit
  100. MAID_BTN3:
  101. /*Single Click - BUTTON - BTN3*/
  102. CLEARLISTBOX "SUBKEYS"
  103. f=dirregistry(REGDIR,"STEM1")
  104. i=1
  105. do STEM1.0
  106. ADDTOLISTBOX "SUBKEYS" "END" STEM1.i
  107. i=i+1
  108. end
  109. exit
  110. MAID_BTN2:
  111. /*Single Click - BUTTON - BTN2*/
  112. CLEARLISTBOX "VALUENAME"
  113. CLEARLISTBOX "VALUEDATA"
  114. READLISTBOXSELECTION "SUBKEYS" "FIRST" "D"
  115. if D\=-1 then do
  116.    B=REGDIR||'\'||D
  117.    f=getkeyvalues(B,"STEM1")
  118.    i=1
  119.    do STEM1.0
  120.    ADDTOLISTBOX "VALUENAME" "END" STEM1.NAME.i
  121.    ADDTOLISTBOX "VALUEDATA" "END" STEM1.DATA.i
  122.    i=i+1
  123.    end
  124. end
  125. exit
  126. MAID_BTN1:
  127. /*Single Click - BUTTON - BTN1*/
  128. READLISTBOXSELECTION "SUBKEYS" "FIRST" "D"
  129. if D\=-1 then do
  130.    B=REGDIR||'\'||D
  131.   f=setkeyvalue(B,NEWKEY,NAME,VALUE)
  132. end
  133. exit
  134. MAID_SHOWVARIABLES: SHOWVARIABLES
  135. exit
  136.