home *** CD-ROM | disk | FTP | other *** search
/ The American Heritage Talking Dictionary / AHD361VOICE.bin / windows / instalah.wmc < prev    next >
Text File  |  1994-09-14  |  18KB  |  249 lines
  1. REM Description:  Adds American Heritage Dictionary to tools menu
  2. REM Filename: instalah.wmc
  3. REM Created by:  Steven Wylie - 11/22/93
  4. REM Updated by:  Rich Zuris - 1/28/94
  5. REM Updated by:  Melissa Rathmell - 15Sep94
  6.  
  7. REM Windows APIs
  8. DECLARE FUNCTION GetPrivateProfileString LIB "kernel" (lpApplicationName AS STRING, lpKeyName AS STRING, lpDefault AS STRING, lpReturnedString AS STRING, nSize As WORD, lpFileName AS STRING) AS WORD
  9. DECLARE FUNCTION GetProfileInt LIB "kernel" (lpApplicationName AS STRING, lpKeyName AS STRING, wDefault AS WORD) AS WORD
  10. DECLARE FUNCTION WritePrivateProfileString LIB "kernel" (lpApplicationName AS STRING, lpKeyName AS STRING, lpValue AS STRING, lpFileName AS STRING) As WORD 
  11. DECLARE FUNCTION MessageBox LIB "user" (hwnd AS WORD, lpMsg AS STRING, lpTitle AS STRING, wFlags AS WORD) AS WORD
  12. DECLARE FUNCTION GetModuleHandle LIB "kernel" (lpApp AS STRING) AS WORD
  13.  
  14. REM Local routines
  15. DECLARE SUB AddToMenu (MenuName AS STRING, MenuText AS STRING, MacroName AS STRING)
  16. DECLARE FUNCTION GetMenuPos% (MenuName$, MacroName$)
  17. DECLARE FUNCTION GetAHDMacro$ (unused%)
  18.  
  19. IF GetModuleHandle("WSWINDLL") <> 0 THEN
  20.     Msg$ = "Choose OK to add The American Heritage Dictionary to the Tools menu, or choose Cancel to quit."
  21.     IF MessageBox(I2W(0), Msg$, "WSWin Macro", I2W(33)) = 2 THEN STOP
  22.     StatusMsg "Adding American Heritage Dictionary to Tools menu . . ."
  23. END IF
  24.  
  25. SHARED Ini$
  26. SHARED MenuExtSec$
  27. SHARED MacDir$
  28. Ini$ = "wsw.ini"
  29. MenuExtSec$ = "MenuExtensions"
  30. MacDir$ = ""
  31.  
  32. ret% = GetPrivateProfileString("Preferences", "MacroDirectory", "", MacDir$, I2W(255), Ini$)
  33. IF Right$(MacDir$, 1) <> "\" THEN MacDir$ = MacDir$ + "\"
  34.  
  35. AddToMenu "Tools", "American Heritage Dictionar&y", GetAHDMacro$ (0)
  36.  
  37. STOP
  38.  
  39.  
  40. '******************************************************************
  41. '
  42. '    Purpose:  Add an item to a WSWin menu
  43. '
  44. '    Params:
  45. '        Menu name
  46. '        Menu text
  47. '        Macro name
  48. '
  49. '    Notes:  Don't duplicate it menu item already exists
  50. '
  51. '******************************************************************
  52.  
  53. SUB AddToMenu (Menu$, Text$, Macro$)
  54.  
  55. pos% = GetMenuPos%(Menu$, Macro$)
  56.  
  57. IF pos% <> -1 THEN 
  58.     Key$ = Menu$ + STR$(pos%)
  59.     Value$ = Text$ + "; " + Macro$
  60.  
  61.     IF GetModuleHandle("WSWINDLL") <> 0 THEN 
  62.         ToolsCustomizeMenu Menu$, Pos%, Text$, Macro$
  63.         StatusMsg ""
  64.     ELSE
  65.         ret% = WritePrivateProfileString(MenuExtSec$, Key$, Value$, Ini$)
  66.     END IF
  67.  
  68. END IF
  69.  
  70. END SUB
  71.  
  72.  
  73. '******************************************************************
  74. '
  75. '    Purpose:  Get menu position for macro
  76. '
  77. '    Returns:  A value between 0 and 9, indicating what menu position to use
  78. '              Returns -1 on error:
  79. '              Macro is already assigned to menu
  80. '              No more open menu positions
  81. '              Macro does not exist in default macro directory
  82. '
  83. '******************************************************************
  84.  
  85. FUNCTION GetMenuPos% (Menu$, MacName$)
  86.  
  87. PathName$ = MacDir$ + MacName$
  88. IF Access(PathName$, 0) = 0 THEN        'Macro file does not exist
  89.     GetMenuPos% = -1
  90.     GOTO ExitFunc
  91. END IF
  92.  
  93. extoff% = INSTR(MacName$, ".")
  94. Name8$ = LEFT$(MacName$, extoff% - 1)
  95. Nul$ = ""
  96. Sep$ = ";"
  97.  
  98. FOR i% = 0 TO 9
  99.     Key$ = Menu$ + STR$(i%)
  100.     IF GetPrivateProfileString(MenuExtSec$, Key$, Nul$, IniBuf$, I2W(255), Ini$) > 0 THEN
  101.         macoff% = INSTR(IniBuf$, Sep$)
  102.         IF INSTR(macoff%, IniBuf$, Name8$) THEN GOTO MenuErr  'Macro already assigned to menu
  103.     ELSE
  104.         GetMenuPos% = i%    'Nothing assigned yet to this menu position
  105.         GOTO ExitFunc
  106.     END IF
  107. NEXT i%
  108. 'No unused menu items
  109.  
  110. MenuErr:
  111. GetMenuPos% = -1
  112.  
  113. ExitFunc:
  114.  
  115. END FUNCTION
  116.  
  117.  
  118. '******************************************************************
  119. '
  120. '    Purpose:  Get name of AHD3 macro if AHD is installed
  121. '
  122. '    Returns:  Name of AHD3 macro if AHD3 is installed
  123. '              Empty string if AHD3 is not installed
  124. '
  125. '******************************************************************
  126.  
  127. FUNCTION GetAHDMacro$ (unused%)
  128.  
  129. IF GetPrivateProfileString("Program", "Path", "", AhdDir$, I2W(255), "ahd3.ini") > 0 THEN
  130.     IF Right$(AhdDir$, 1) <> "\" THEN AhdDir$ = AhdDir$ + "\"
  131.     Ahd$ = AhdDir$ + "ahd3.exe"
  132.     IF Access(Ahd$, 0) <> 0 THEN
  133.         GetAHDMacro$ = "wswahd3.wmc"
  134.         GOTO EndGetAHD
  135.     END IF
  136. END IF
  137.  
  138. GetAHDMacro$ = ""
  139.  
  140. EndGetAHD:
  141.  
  142. END FUNCTION
  143.  
  144. 
  145. *****  WARNING *****
  146. This is a WSWin macro file.
  147. Subsequent data is binary information and should not be modified.
  148. # MF # 1.0None779652944û╞.+ü1
  149. 8(ñúùñÑ âѪâ
  150. 8(    º¿
  151. 8?«
  152. ¬«»░▒½▓¼
  153. ¬▓│┤滺▒│╡
  154. â╡¡╢â
  155. 8?
  156. 8╣╕╖╣║
  157. 8    ╗╛
  158. 8    ╝┐
  159. 8    ╜└
  160. 8!┼┬╞├╟└╚─
  161. ¬╚╔╩à┼╞╟╜╔╗╦┴╦
  162. 8!!!╧Ç ╠╜╧╨╤ â╨╬╥â
  163. 8!!""╙╜╬    ╜╙
  164. 8"$╓╘╫╒╪á╪┘
  165. Ö╓╫┘
  166. 8$&(Ö
  167. 8&8
  168. ¥┌▄▐
  169. 889!ßα â▐ßΓâ
  170. 89;
  171. Σ▐σµ"τ┌σ    πτ
  172. 8;<"Ω█Θ"δΩ▄    Φδ
  173. 8<=+∩φù∩≡ â≡ε±â
  174. 8=+?≥┌▐█▄≤
  175. 8?@÷⌡⌠÷≈∞
  176. 8@BÅ╝πΦ╗∙°∙
  177. 8BG(¥
  178. 8GX"■╜√    ²■
  179. 8XX   ²
  180. ââ
  181. 8X Z!¥
  182. 8Z[
  183. 8[^
  184. .Ç√    
  185. 8^_   √     
  186. 
  187. 8_`    
  188. 8`a    
  189. 8acÇââ
  190. 8cd
  191. "·    
  192. 8ddX#"
  193. !#$%à╝ $╗&â&'â
  194. 8dXf
  195. .(Ç 
  196. 8ff-
  197. .â( 
  198. *â
  199. 8f-g+
  200. 8gi¥
  201. 8ij
  202. 8jl
  203. 8lp!¥
  204. 8pt(á
  205. 8tüY7/8091:4
  206. 3:;<=5à7892;=>â>6?â
  207. 8üYé$DB @2DEF âECGâ
  208. 8é$â"H2C    2H
  209. 8âä"K2J    IK
  210. 8ääN6 LINOP âO6Qâ
  211. 8äå    áR
  212. 8åçS
  213. 8çï    á1
  214. 8ïÅV~Sî┌·,UUUUUUUUUUUUUUUUU.w .w .w  .w -.w 5.w ;.w A.w N.w ^.w     l.w 
  215. z.w  ê.w  û.w ñ.w ▓.w ╢.w ╣.w ╜.w └.w ┬.w ─.w ╞.w ╔.w ╠.w ╧.w ╥.w ╘.w ╓.w ┌.w ▄.w ▐.w α.w  Γ.w !Σ.w "Θ.w #∞.w $≡.w %⌡.w &ⁿ.w '/w (
  216. /w )/w */w +/w ,"/w -(/w .-/w /3/w 06/w 1;/w 2@/w 3B/w 4E/w 5J/w 6N/w 7T/w 8Y/w 9`/w :g/w ;l/w <o/w =w/w >y/w ?{/w @/w Aê/w Bî/w CÅ/w Dù/w E₧/w Fú/w G¡/w H┤/w I╣/w J╜/w K┬/w L╟/w M═/w N╤/w O╒/w P▄/w Qπ/w RΩ/w S≡/w T≈/w U0w V0w W0w X$0w Y10w Z:0w [G0w \P0w ]X0w ^`0w _h0w `q0w av0w b{0w cÇ0w dç0w eÄ0w fö0w g¢0w h¥0w ió0w j¿0w k«0w l╡0w m╛0w n╟0w o╦0w p╙0w q╫0w r▄0w sΓ0w tΦ0w uε0w v⌠0w w∙0w x■0w y1w z1w {1w |1w }wQ  wQ+wQ+    wQwQwQ  wQ wQàBå8wQAwQSwQ]wQgwQxwQ~wQëwQàBåùwQáwQàB å║wQ┬wQàBÆ═wQ╘wQ┘wQ▀wQτwQεwQàBå■wQwQA@Ü    wQwQ wQ*wQ    ç@û    6wQ
  217. @wQ
  218. KwQ
  219. ë@f    XwQ    `wQ  ¿ewQ+      pwQ      uwQ  zwQ  ¿wQ
  220.           äwQ+      σwQ  ÉΩwQà&εwQ+      ⁿwQ+  ! wQ+  wQ  wQ   wQ     wQ      wQ  wQ  wQ     %wQ  +wQ  É0wQA$:wQ+      twQ      zwQ     ÇwQ
  221.     @      àwQ
  222.     @      æwQ
  223.     @      ÖwQ+      úwQ+      ┤wQ+      ╖wQ          ╝wQ+      ╩wQ+      █wQ+   ▀wQ      σwQ      δwQ      ±wQ  ≈wQ  ²wQ     wQ      wQ
  224. ë(wQ  ^wQ+      wQ  wQ      %wQ     +wQ  ^0wQ      6wQ+      >wQ+      ^wQ      dwQ      jwQ  pwQ      vwQ
  225.        |wQ
  226.        éwQ
  227.        ëwQïwQ          ÉwQ  èòwQ+  ùwQ  ¥wQ  èówQ
  228.           ºwQ
  229. ë+¼wQ      ▓wQ     ╕wQ      ╛wQ
  230.           ┼wQ+      ╩wQ      ╨wQ      ╓wQ  è█wQ+      µwQ+  ΦwQ      εwQ  ⌠wQ  l·wQA-wQ     wQA2wQ+       wQ      &wQ     ,wQ          1wQ  7wQ
  231.        =wQ
  232.        FwQHwQ
  233.           RwQ      XwQç4_wQ  ·ewQ+  gwQ  mwQ  swQ     ywQ  ·wQ+  üwQZqèwQ          ÆwQ+      ûwQ
  234.           ¥wQ
  235. ë7úwQ  ⌐wQ      »wQ     ╡wQ
  236.           ║wQ+      ╜wQ
  237.           ┬wQ+      ╞wQ          ╔wQ+      ╦wQ  ╨wQ  t╓wQ  é▄wQ  lΓwQ  JΦwQ
  238.           φwQ
  239. ë:≥wQ      °wQ     ■wQ      wQ  <
  240. wQ
  241.           wQà<wQ+   wQ   wQ  &wQ     ,wQ  2wQ  8wQ          @wQ  FwQ  LwQJnTwQ       \wQ^wQ  ^dwQ+      nwQ+      uwQ+      xwQ
  242.           ÇwQà>äwQ+   êwQ+      ôwQ+  òwQ      ¢wQ      íwQ      ºwQ  ¡wQ  │wQ     ╣wQ      ┐wQ  ┼wQ  ^╦wQ
  243. ë@╥wQ  ■╪wQ+  ┌wQ+      ▐wQ  ΣwQ      ΩwQ     ≡wQ  ■÷wQ      ⁿwQ
  244.           wQ+       wQ      wQçCwQ  ^wQ  %wQ  +wQ     1wQ  ^7wQ+      EwQnîOwQQwQ????01CANCELERRORNUM[T1]
  245. GETPRIVATEPROFILESTRING"kernel"LPAPPLICATIONNAMELPKEYNAMELPDEFAULTLPRETURNEDSTRINGNSIZELPFILENAMEGETPROFILEINTWDEFAULTWRITEPRIVATEPROFILESTRINGLPVALUEMESSAGEBOX"user"HWNDLPMSGLPTITLEWFLAGSGETMODULEHANDLELPAPPADDTOMENUMENUNAMEMENUTEXTMACRONAMEGETMENUPOS%MENUNAME$MACRONAME$GETAHDMACRO$UNUSED%[L1]"WSWINDLL"[T2][T3][L2]MSG$"Choose OK to add The American Heritage Dictionary to the Tools menu, or choose Cancel to quit."[L3]I2W"WSWin Macro"332[T4][T5][T6][T7][T8][T9][T10][T11][L4]STATUSMSG"Adding American Heritage Dictionary to Tools menu . . ."[T12][T13]INI$MENUEXTSEC$MACDIR$"wsw.ini""MenuExtensions"""RET%"Preferences""MacroDirectory"255[T14][T15][T16][T17][T18][T19][T20]RIGHT$[L5]"\"[T21][T22][T23][L6][T24]"Tools""American Heritage Dictionar&y"[T25][T26][T27][T28]MENU$TEXT$MACRO$
  246. POS%[L7]1[T29][L8]KEY$STR$[T30][T31][T32]VALUE$"; "[T33][T34][L9]"WSWINDLL"0[T35][T36][L10]TOOLSCUSTOMIZEMENU[T37]STATUSMSG""[T38][T39]RET%[T40]MENU$MACNAME$
  247. PATHNAME$[T41]ACCESS[L11]0[T42][T43][T44][L12]1EXITFUNCEXTOFF%"."NAME8$LEFT$[T45][T46][T47]NUL$""SEP$";"I%9[F1][L13][L14][L15][L16]KEY$STR$[T48][T49][T50][L17]INIBUF$I2W255[T51][T52][T53][T54][L18]MACOFF%[L19][L20]MENUERRUNUSED%
  248. [L21]"Program""Path"""AHDDIR$I2W255"ahd3.ini"0[T55][T56][T57][T58][T59][T60][T61][T62][L22]RIGHT$[L23]1"\"[T63][T64][T65][L24][T66]AHD$"ahd3.exe"[T67]ACCESS[L25][T68][T69][T70][L26]"wswahd3.wmc"ENDGETAHD
  249.