Liren Large Software Subsidy 18

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 18 / 18.iso / w / w252 / 4.ddi / MACROS.CMZ / AUTORUN.SMM < prev next >

Wrap

INI File | 1991-08-19 | 13.0 KB | 1,327 lines

[ver] 4 [sty] ~macro.sty [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] PostScript Printer [lang] 1 [desc] Select your favorite macros to "autorun" whenever you use Ami Pro. You may add and delete from list. Lotus WPD Marketing Advanced CallBacks, Global Arrays 682670118 30 679022552 385 2 0 0 0 0 0 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [tag] Body Single 5 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Bullet 6 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Bullet 1 7 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Number List 8 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*:>. 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 9 [fnt] TimesNewRomanPS 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 11 [fnt] Arial MT 360 0 16385 [algn] 4 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [l1] 0 [edoc] Macro by <+!>Charlie Pappas<-!> define EnableWindow() DllCall("user,EnableWindow,HHH", %1, %2) function autorun() 'singlestep(0) ignorekeyboard(1) declare loadlist(hdlg) declare savelist() declare ckauto(macro) declare showdesc(hdlg) rmac = getrunningmacrofile$() defstr hdlg; macrodir = getprofilestring$("amipro", "macrodir", "amipro.ini") filledit(9001, strcat$(macrodir, "\", "*.smm")) allocglobalvar("loadem", 100) allocglobalvar("count", 1) setglobalvar("count", 0) onerror endit oncancel endit SetDlgCallBack (9001,"{rmac}!showdesc") SetDlgCallBack (70,"{rmac}!Add") SetDlgCallBack (71,"{rmac}!Del") SetDlgCallBack (0,"{rmac}!setfocus") loadlist(hdlg) Box = Dialogbox(".","autorun") if box <<<;> 1 goto endit endif savelist() endit: freeglobalvar("loadem") freeglobalvar("count") end function function setfocus(hdlg) enablewindow(getdlgitem(Hdlg, 71), 0) showdesc(hdlg) if getglobalvar$("count") <;> 0 enablewindow(getdlgitem(Hdlg, 71), 1) endif end function <:ZAdd><:Z~Add>Function add(Hdlg) defstr autos; tname = GetDlgItemText(Hdlg, 9001) if ckauto(lcase$(tname)) <<<;> 1 return 0 endif count = getglobalvar$("count") for i = 1 to count if tname <<<;> "" if tname = getglobalarray$("loadem", i) message("That macro is already set to ""AutoRun""") hourglass(0) return 1 endif endif next SetDlgItemText(Hdlg, 9002, tname) enablewindow(getdlgitem(Hdlg, 71), 1) count = getglobalvar$("count") + 1 setglobalarray("loadem", count, tname) setglobalvar("count", count) hourglass(0) End Function <:><:> Function del(Hdlg) ignorekeyboard(1) hourglass(1) sname = GetDlgItemText(Hdlg, 9002) if sname = "" return 0 endif Handle=GetDlgItem(Hdlg, 9002) AppSendMessage(Handle, 0x0405, 0, 0) count = getglobalvar$("count") if count = 0 enablewindow(getdlgitem(Hdlg, 71), 0) return 0 endif for i = 1 to count xname = getglobalarray$("loadem", i) if xname = sname setglobalarray("loadem", i, "") else if xname <<<;> "" SetDlgItemText(Hdlg, 9002, xname) endif setglobalarray("loadem", i, xname) endif next if GetDlgItemText(Hdlg, 9002) = "" enablewindow(getdlgitem(Hdlg, 71), 0) endif hourglass(0) End Function DIALOG autorun -2134376448 9 61 44 203 124 "" "" "AutoRun Macro Installer" FONT 8 "Helv" 5 9 104 18 1002 1342177280 "static" "Installed macros automatically play when Ami Pro is started." 0 5 44 60 8 1000 1342308352 "static" "&Macros" 0 5 55 67 63 9001 1352728579 "listbox" "" 0 79 69 45 14 70 1342373888 "button" "<;><;> &Move <;><;>" 0 79 85 45 14 71 1342242816 "button" "<<<< M&ove <<<<" 0 131 44 60 8 1001 1342308352 "static" "&Installed macros" 0 131 55 67 63 9002 1352728577 "listbox" "" 0 158 4 40 14 1 1342373889 "button" "OK" 0 158 20 40 14 2 1342373888 "button" "Cancel" 0 END DIALOG function loadlist(hdlg) amidir = getamidirectory$() autofile = strcat$(amidir, "autorun.cfg") ck = findfirst$(autofile, 33) if ck = "" option = "w" else option = "r" endif fh = fopen(autofile, option) if fh << 1 message("Unable to create file AUTORUN.CFG") return -1 endif onerror endit oncancel endit i = 0 while (1) txt = fgets$(fh) if txt = -1 break endif i = i + 1 setglobalarray("loadem", i, txt) filledit(9002, txt) wend endit: fclose(fh) setglobalvar("count", i) end function function savelist() amidir = getamidirectory$() autofile = strcat$(amidir, "autorun.cfg") defstr txt; fh = fopen(autofile, "w") if fh << 1 message("Unable to save file AUTORUN.CFG") return -1 endif onerror endit oncancel endit count = getglobalvar$("count") for i = 1 to count if assign(&txt, getglobalarray$("loadem", i)) <<<;> "" fputs(fh, txt) endif next endit: fclose(fh) call zproglod.smm() end function FUNCTION ckauto(macro) defstr autos; ignorekeyboard(1) amidir = getamidirectory$() autofile = strcat$(amidir, "autorun.cfg") ck = findfirst$(autofile, 33) if ck = "" fh = fopen(autofile, "w") if fh << 1 message("Unable to create file AUTORUN.CFG.") return -1 endif fclose(fh) endif fh = fopen(autofile, "r") if fh << 1 message("Unable to read file AUTORUN.CFG.") return -1 endif while (1) if assign(&autos, fgets$(fh)) <;> 0 if ucase$(macro) = ucase$(autos) message("{macro} is already set to be an AutoRun macro.") return 0 endif else break endif wend fclose(fh) return 1 end function function showdesc(hdlg) ignorekeyboard(1) hourglass(1) defstr ar; file = GetDlgItemText(Hdlg, 9001) dir = getcurrentdir$() fh = fopen("{dir}{file}", "r") if fh << 1 statusbarmsg("Unable to read file") hourglass(0) return 1 endif onerror endit oncancel endit line = "" b = mid$("<[><[>", 1, 1) while (line <<<;> "{b}desc]") line = fgets$(fh) if line = -1 fclose(fh) hourglass(0) return 1 endif wend again: for i = 1 to 4 line = fgets$(fh) next if assign(&ar, ucase$(strfield$(fgets$(fh), 2, " "))) = "AUTORUN" enablewindow(getdlgitem(Hdlg, 70), 1) else enablewindow(getdlgitem(Hdlg, 70), 0) endif stat = 1 endit: fclose(fh) hourglass(0) return stat end function > [Embedded] 00008238 > [macsum] 9 autorun 0 0 5 4 setfocus 441 1 1 36 add 640 1 5 44 del 1199 1 6 69 autorun 1862 0 -1 100 loadlist 2456 1 8 115 savelist 2966 0 7 146 ckauto 3415 1 6 168 showdesc 4037 1 9 201 [macse] 14 autorun 0 32 1 0 802 13 8 1 0 286 "amipro" "macrodir" "amipro.ini" 13 8 3 0 16 "{3}" "\" "*.smm" 13 0 31 9001 [X] 0 271 "loadem" 100 0 271 "count" 1 0 264 "count" 0 20 00000398 19 00000398 0 41 9001 "{1}!showdesc" 0 41 70 "{1}!Add" 0 41 71 "{1}!Del" 0 41 0 "{1}!setfocus" 16 loadlist "{2}" 0 26 "." "autorun" 13 8 4 6 4 5 1 18 1 11 00000385 10 00000398 16 savelist 0 266 "loadem" 0 266 "count" 6 0 15 9 14 setfocus 0 44 "{0}" 71 13 0 284 "user,EnableWindow,HHH" [X] 0 16 showdesc "{0}" 0 265 "count" 13 5 0 18 3 11 00000187 0 44 "{0}" 71 13 0 284 "user,EnableWindow,HHH" [X] 1 6 1 15 9 14 add 0 42 "{0}" 9001 13 8 3 0 17 "{3}" 13 16 ckauto [X] 13 5 1 18 1 11 00000105 5 0 15 9 0 265 "count" 13 8 4 5 1 8 5 6 4 6 5 18 2 12 00000214 10 00000376 5 1 6 5 3 0 8 5 10 00000139 6 3 7 "" 18 1 11 00000363 6 3 0 273 "loadem" "{5}" 13 18 0 11 00000363 0 3 "That macro is already set to ""AutoRun""" 0 296 0 5 1 15 9 10 00000181 0 43 "{0}" 9002 "{3}" 0 44 "{0}" 71 13 0 284 "user,EnableWindow,HHH" [X] 1 0 265 "count" 13 5 1 3 0 8 4 0 272 "loadem" "{4}" "{3}" 0 264 "count" "{4}" 0 296 0 6 1 15 9 14 del 0 32 1 0 296 1 0 42 "{0}" 9002 13 8 2 6 2 7 "" 18 0 11 00000093 5 0 15 9 0 44 "{0}" 9002 13 8 3 0 1036 "{3}" 1029 0 0 0 265 "count" 13 8 4 6 4 5 0 18 0 11 00000263 0 44 "{0}" 71 13 0 284 "user,EnableWindow,HHH" [X] 0 5 0 15 9 5 1 8 5 6 4 6 5 18 2 12 00000348 10 00000540 5 1 6 5 3 0 8 5 10 00000273 0 273 "loadem" "{5}" 13 8 6 6 6 6 2 18 0 11 00000446 0 272 "loadem" "{5}" "" 10 00000527 6 6 7 "" 18 1 11 00000499 0 43 "{0}" 9002 "{6}" 0 272 "loadem" "{5}" "{6}" 10 00000315 0 42 "{0}" 9002 13 7 "" 18 0 11 00000642 0 44 "{0}" 71 13 0 284 "user,EnableWindow,HHH" [X] 0 0 296 0 6 1 15 9 DIALOG autorun -2134376448 9 61 44 203 124 "" "" "AutoRun Macro Installer" FONT 8 "Helv" 5 9 104 18 1002 1342177280 "static" "Installed macros automatically play when Ami Pro is started." 0 5 44 60 8 1000 1342308352 "static" "&Macros" 0 5 55 67 63 9001 1352728579 "listbox" "" 0 79 69 45 14 70 1342373888 "button" ">> &Move >>" 0 79 85 45 14 71 1342242816 "button" "<< M&ove <<" 0 131 44 60 8 1001 1342308352 "static" "&Installed macros" 0 131 55 67 63 9002 1352728577 "listbox" "" 0 158 4 40 14 1 1342373889 "button" "OK" 0 158 20 40 14 2 1342373888 "button" "Cancel" 0 14 loadlist 0 798 13 8 2 0 16 "{2}" "autorun.cfg" 13 8 3 0 280 "{3}" 33 13 8 4 6 4 7 "" 18 0 11 00000144 7 "w" 8 5 10 00000156 7 "r" 8 5 0 259 "{3}" "{5}" 13 8 6 6 6 5 1 18 5 11 00000267 0 3 "Unable to create file AUTORUN.CFG" 5 -1 15 9 20 00000464 19 00000464 5 0 8 7 5 1 11 00000464 0 257 "{6}" 13 8 8 6 8 5 -1 18 0 11 00000386 10 00000464 6 7 5 1 3 0 8 7 0 272 "loadem" "{7}" "{8}" 0 31 9002 "{8}" 10 00000303 0 260 "{6}" 0 264 "count" "{7}" 6 1 15 9 14 savelist 0 798 13 8 1 0 16 "{1}" "autorun.cfg" 13 8 2 0 259 "{2}" "w" 13 8 4 6 4 5 1 18 5 11 00000171 0 3 "Unable to save file AUTORUN.CFG" 5 -1 15 9 20 00000407 19 00000407 0 265 "count" 13 8 5 5 1 8 6 6 5 6 6 18 2 12 00000306 10 00000407 5 1 6 6 3 0 8 6 10 00000231 0 273 "loadem" "{6}" 13 0 805 &3 [X] 13 7 "" 18 1 11 00000394 0 258 "{4}" "{3}" 10 00000273 0 260 "{4}" 16 zproglod.smm 6 0 15 9 14 ckauto 0 32 1 0 798 13 8 3 0 16 "{3}" "autorun.cfg" 13 8 4 0 280 "{4}" 33 13 8 5 6 5 7 "" 18 0 11 00000248 0 259 "{4}" "w" 13 8 6 6 6 5 1 18 5 11 00000235 0 3 "Unable to create file AUTORUN.CFG." 5 -1 15 9 0 260 "{6}" 0 259 "{4}" "r" 13 8 6 6 6 5 1 18 5 11 00000356 0 3 "Unable to read file AUTORUN.CFG." 5 -1 15 9 5 1 11 00000585 0 257 "{6}" 13 0 805 &2 [X] 13 5 0 18 3 11 00000559 0 18 "{0}" 13 0 18 "{2}" 13 18 0 11 00000546 0 3 "{0} is already set to be an AutoRun macro." 5 0 15 9 10 00000572 10 00000585 10 00000356 0 260 "{6}" 5 1 15 9 6 1 15 9 14 showdesc 0 32 1 0 296 1 0 42 "{0}" 9001 13 8 3 0 290 13 8 4 0 259 "{4}{3}" "r" 13 8 5 6 5 5 1 18 5 11 00000180 0 789 "Unable to read file" 0 296 0 5 1 15 9 20 00000734 19 00000734 7 "" 8 6 0 15 "[[" 1 1 13 8 7 6 6 7 "{7}desc]" 18 1 11 00000378 0 257 "{5}" 13 8 6 6 6 5 -1 18 0 11 00000365 0 260 "{5}" 0 296 0 5 1 15 9 10 00000241 5 1 8 8 5 4 6 8 18 2 12 00000463 10 00000498 5 1 6 8 3 0 8 8 10 00000388 0 257 "{5}" 13 8 6 10 00000430 0 257 "{5}" 13 0 20 [X] 2 " " 13 0 18 [X] 13 0 805 &2 [X] 13 7 "AUTORUN" 18 0 11 00000668 0 44 "{0}" 70 13 0 284 "user,EnableWindow,HHH" [X] 1 10 00000724 0 44 "{0}" 70 13 0 284 "user,EnableWindow,HHH" [X] 0 5 1 8 9 0 260 "{5}" 0 296 0 6 9 15 9 6 1 15 9 00008263