home *** CD-ROM | disk | FTP | other *** search
Wrap
INI File | 1993-05-20 | 4.5 KB | 304 lines
[ver] 4 [sty] ~default.sty [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] HP DeskJet Family [port] LPT1: [lang] 1 [desc] 737949089 35 672763988 350 4 0 0 0 0 0 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [l1] 0 [pg] 4 19 0 6 512 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 55 0 24 512 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 66 0 5 512 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 66 0 5 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 [edoc] <:#312,9360>The first macro, AHD1, installs AHD macros in the Tools Menu. <:#312,9360> <:#312,9360>The second macro, AHD, gets installed in the Tools / American Heritage menu item. <:#312,9360> <:#936,9360>This macro should be installed under Tools/User Setup as the macro to run at program load, or should be called from the current autoload macro. Instalah.smm will do this for you. <:#312,9360> <:#312,9360> <:#312,9360>FUNCTION AHD1() <:#312,9360> <:#312,9360>M1 = GetRunningMacroFile$() <:#312,9360>M1 = strcat$ (M1, "!AHD") <:#312,9360> <:#312,9360>DeleteMenuItem (1, "Too&ls", "American &Heritage") <:#312,9360>AddMenuItem (1, "Too&ls", "American &Heritage", M1 ) <:#312,9360>ShowBar (1) <:#312,9360> <:#312,9360>END FUNCTION <:#312,9360> <**><:p<* >> <:#312,9360>FUNCTION AHD() <:#312,9360> <:#312,9360>AHDir = GetProfileString$("Program", "Path", "ahd3.ini") <:#312,9360>IF (LEN(AHDir) = 0) Message("Can't find The American Heritage Dictionary. Path not found in AHD3.INI.") <:#312,9360> EXIT FUNCTION <:#312,9360>ENDIF <:#312,9360>IF (Right$(AHDir, 1) <<<;> "\") <:#312,9360> AHDir = strcat$ (AHDir, "\") <:#312,9360>ENDIF <:#312,9360>AHExe = strcat$ (AHDir, "ahd3.exe") <:#312,9360> <:#312,9360>hFindWindow = DLLLoadLib("user", "FindWindow", "HCC") <:#312,9360>hWnd = DLLCall(hFindWindow, 0, "The American Heritage Dictionary") <:#312,9360>IF (hWnd = 0) <:#312,9360> hWinExec = DLLLoadLib("kernel", "WinExec", "HCH") <:#312,9360> hAHD = DLLCall(hWinExec, AHExe, 1) <:#312,9360> DLLFreeLib(hWinExec) <:#312,9360> IF (hAHD << 32) <:#312,9360> GOTO LoadErr <:#312,9360> ENDIF <:#312,9360> hWnd = DLLCall(hFindWindow, 0, "The American Heritage Dictionary") <:#312,9360>ENDIF <:#312,9360>DLLFreeLib(hFindWindow) <:#312,9360>IF (hWnd = 0) <:#312,9360>LoadErr: <:#312,9360> IF FindFirst$(AHExe,0) <:#312,9360> Err = "load" <:#312,9360> ELSE <:#312,9360> Err = "find" <:#312,9360> ENDIF <:#312,9360> Message("Can't {Err} The American Heritage Dictionary.") <:#312,9360> EXIT FUNCTION <:#312,9360>ENDIF <:#312,9360> 'Page down for more<:p<* >> <:#312,9360>IF CurShade$() <:#312,9360> Copy <:#312,9360>ENDIF <:#312,9360>hSendMessage = DLLLoadLib("user", "SendMessage", "JHHHJ") hGetFocus = DLLLoadLib("user", "GetFocus", "H") hAmiWnd = DLLCall(hGetFocus) DLLFreeLib(hGetFocus) lResult = DLLCall(hSendMessage, hWnd, 273, 2026, hAmiWnd) <:#312,9360>DLLFreeLib(hSendMessage) <:#312,9360>END FUNCTION <:p<* >> > [Embedded] 00003361 > [macsum] 2 AHD1 0 0 2 7 AHD 158 0 12 19 [macse] 14 AHD1 0 802 13 8 1 0 16 "{1}" "!AHD" 13 8 1 0 520 1 "Too&ls" "American &Heritage" 0 516 1 "Too&ls" "American &Heritage" "{1}" 0 514 1 6 0 15 9 14 AHD 0 286 "Program" "Path" "ahd3.ini" 13 8 1 0 14 "{1}" 13 5 0 18 0 11 00000185 0 3 "Can't find The American Heritage Dictionary. Path not found in AHD3.INI." 6 0 15 9 0 807 "{1}" 1 13 7 "\" 18 1 11 00000255 0 16 "{1}" "\" 13 8 1 0 16 "{1}" "ahd3.exe" 13 8 2 0 297 "user" "FindWindow" "HCC" 13 8 3 0 284 "{3}" 0 "The American Heritage Dictionary" 13 8 4 6 4 5 0 18 0 11 00000603 0 297 "kernel" "WinExec" "HCH" 13 8 5 0 284 "{5}" "{2}" 1 13 8 6 0 298 "{5}" 6 6 5 32 18 5 11 00000544 10 00000645 0 284 "{3}" 0 "The American Heritage Dictionary" 13 8 4 0 298 "{3}" 6 4 5 0 18 0 11 00000783 0 280 "{2}" 0 13 11 00000705 7 "load" 8 7 10 00000720 7 "find" 8 7 0 3 "Can't {7} The American Heritage Dictionary." 6 0 15 9 0 24 13 11 00000814 24 154 0 297 "user" "SendMessage" "JHHHJ" 13 8 8 0 297 "user" "GetFocus" "H" 13 8 9 0 284 "{9}" 13 8 10 0 298 "{9}" 0 284 "{8}" "{4}" 273 2026 "{10}" 13 8 11 0 298 "{8}" 6 0 15 9 00003386