Program Metropolis - Software Boutique 95/SOFTWARECD.iso/camipro3/macros.cmz/SMARTPIC.SMM

INI File | 1994-08-14 | 4.8 KB | 331 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    CHINESEBIG5 (Windows)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT2:
[lang]
    1
[desc]
    º╓│tªs¿· Lotus SmartPics SampleríA½ⁿ⌐w¼░¬╜▒╡ªs¿·┤ú¿╤¬║ª█¡q╣╧Ñ▄íC
    Lotus WPD Marketing
    Beginner
    Exec, AppMinimize

    773108027
    9
    681240805
    13
    2
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[l1]
    0
[pg]
    2
    49 0 12 0 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
    73 0 0 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]
<:#293,9025>Macro by <+!>Charlie Pappas<-!>

<:#293,9025>Editted by <+!>Mike Jones<-!>

<:#284,9025>

<:#284,9025>function execsuite()

<:#284,9025>app = "smartpic.exe"

<:#284,9025>appname = "SmartPics Sampler"

<:#284,9025>defdir = "c:\smartpic"

<:#284,9025>ignorekeyboard(1)

<:#284,9025>declare missouri(xapp)

<:#284,9025>declare getprofile(xappname)

<:#284,9025>declare writeprofile(path, xappname)

<:#284,9025>declare tryit(path, xapp)

<:#284,9025>defstr path;

<:#284,9025>

<:#284,9025>if appisrunning(appname)

<:#284,9025>    activateapp(appname)

<:#284,9025>    apprestore(appname)

<:#284,9025>    return 1

<:#284,9025>endif

<:#284,9025>if 0 = doschdir(defdir)

<:#284,9025>    if tryit("", app) <;> 31

<:#284,9025>        return 1

<:#284,9025>    endif

<:#284,9025>endif

<:#284,9025>if tryit(getprofile(appname), app) <;> 31

<:#284,9025>    return 1

<:#284,9025>endif

<:#284,9025>again:

<:#284,9025>if assign(&path, missouri(app)) <<<;> 0

<:#284,9025>    if tryit(path, app) <;> 31

<:#284,9025>        writeprofile(path, appname)

<:#284,9025>    else

<:#284,9025>        goto again

<:#284,9025>    endif

<:#284,9025>endif

<:#284,9025>end function

<:#284,9025>

<:#284,9025>function tryit(path, app)

<:#284,9025>doschdir(path)

<:#284,9025>return exec(strcat$(path, app), "")

<:#284,9025>end function

<:#284,9025>

<:#284,9025>function writeprofile(path, appname)

<:#284,9025>writeprofilestring("LotusApps", appname, path, "amipro.ini")

<:#284,9025>end function

<:#284,9025>

<:#284,9025>function getprofile(appname)

<:#284,9025>return getprofilestring$("LotusApps", appname, "amipro.ini")

<:#284,9025>end function

<:#284,9025>

<:#284,9025>function missouri(app)

<:#284,9025>defstr box;

<:#284,9025>filledit(9001, "*.exe")

<:#284,9025>filledit(8007, app)

<:#284,9025>if assign(&box, dialogbox(".", "findapp")) <<<;> 1

<:#284,9025>    return 0

<:#284,9025>endif

<:#284,9025>return getcurrentdir$()

<:#284,9025>end function

<:#284,9025>

<:#284,9025>

<:#284,9025>DIALOG findapp

<:#284,9025>-2134376448 7 70 35 200 97 "" "" "Find Application"

<:#284,9025>FONT 8 "Helv"

<:#284,9025>7 34 59 8 1000 1342177280 "static" "&Program path:" 0

<:#284,9025>6 45 60 44 9001 1352728579 "listbox" "" 0

<:#284,9025>155 5 40 14 1 1342373889 "button" "OK" 0

<:#284,9025>155 21 40 14 2 1342373888 "button" "Cancel" 0

<:#284,9025>68 34 80 8 7999 1342177280 "static" "" 0

<:#284,9025>7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0

<:#284,9025>7 16 107 8 8007 1342177280 "static" "" 0

<:#284,9025>END DIALOG

<:#284,9025>

>

[Embedded]
00003365
>
[macsum] 6
execsuite 0 0 5 3
tryit 534 2 1 37
writeprofile 615 2 1 42
getprofile 688 1 1 46
missouri 764 1 2 50
findapp 921 0 -1 61
[macse]
14 execsuite
7 "smartpic.exe"
8 1
7 "SmartPics Sampler"
8 2
7 "c:\smartpic"
8 3
0 32 1
0 1032 "{2}"
13
11 00000164
0 38 "{2}"
0 1031 "{2}"
5 1
15
9
5 0
0 781 "{3}"
13
18 0
11 00000265
16 tryit "" "{1}"
13
5 31
18 3
11 00000265
5 1
15
9
16 getprofile "{2}"
13
16 tryit [X] "{1}"
13
5 31
18 3
11 00000351
5 1
15
9
16 missouri "{1}"
13
0 805 &4 [X]
13
5 0
18 1
11 00000522
16 tryit "{4}" "{1}"
13
5 31
18 3
11 00000509
16 writeprofile "{4}" "{2}"
10 00000522
10 00000351
6 0
15
9
14 tryit
0 781 "{0}"
0 16 "{0}" "{1}"
13
0 22 [X] ""
13
15
9
6 2
15
9
14 writeprofile
0 287 "LotusApps" "{1}" "{0}" "amipro.ini"
6 2
15
9
14 getprofile
0 286 "LotusApps" "{0}" "amipro.ini"
13
15
9
6 1
15
9
14 missouri
0 31 9001 "*.exe"
0 31 8007 "{0}"
0 26 "." "findapp"
13
0 805 &2 [X]
13
5 1
18 1
11 00000127
5 0
15
9
0 290
13
15
9
6 1
15
9
DIALOG findapp
-2134376448 7 70 35 200 97 "" "" "Find Application"
FONT 8 "Helv"
7 34 59 8 1000 1342177280 "static" "&Program path:" 0
6 45 60 44 9001 1352728579 "listbox" "" 0
155 5 40 14 1 1342373889 "button" "OK" 0
155 21 40 14 2 1342373888 "button" "Cancel" 0
68 34 80 8 7999 1342177280 "static" "" 0
7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0
7 16 107 8 8007 1342177280 "static" "" 0
00003390