Liren Large Software Subsidy 18/18.iso/w/w380/4.ddi/MACROS.CMZ/ORGANIZE.SMM

INI File | 1992-05-02 | 5.7 KB | 352 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Launch Lotus Organizer
    Lotus WPD Marketing
    Beginner
    Exec, ActivateApp
    noautorun
    704830916
    21
    674329275
    143
    2
    0
    0
    0
    0






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

[l1]
    0
[pg]
    2
    45 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
    77 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,9360>Macro by <+!>Charlie Pappas<-!>

<:#284,9360>

@Function@<:#293,9360>function execsuite()

<:#284,9360>app = "organize.exe"

<:#284,9360>appname = "Lotus Organizer"

<:#284,9360>windir = GetWindowsDirectory$()

<:#284,9360>defdir = "{windir}organize"

ignorekeyboard(2)

<:#284,9360>declare missouri(xapp) ' <:f200,QCourier,0,0,255>declare user defined functions

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

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

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

<:#284,9360>defstr path;

<:#284,9360>

<:#284,9360>if appisrunning(appname) ' <:f200,QCourier,0,0,255>first see if app is already running

<:#284,9360>    activateapp(appname) ' <:f200,QCourier,0,0,255>if the app is running, just activate it

<:#284,9360>    apprestore(appname) ' <:f200,QCourier,0,0,255>make sure it is not minimized<:f>

<:#284,9360>    return 1

<:#284,9360>endif

<:#284,9360>if 0 = doschdir(defdir) ' <:f200,QCourier,0,0,255>try and change to the default directory for launch

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

<:#284,9360>        return 1

<:#284,9360>    endif

<:#284,9360>endif

<:#284,9360>if tryit(getprofile(appname), app) <;> 31 ' <:f200,QCourier,0,0,255>if we launch, get out<:f>

<:#284,9360>    return 1

<:#284,9360>endif

<:#284,9360>again:

<:#284,9360>if assign(&path, missouri(app)) <<<;> 0 ' <:f200,QCourier,0,0,255>show me where the exe is

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

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

<:#284,9360>    else

<:#284,9360>        goto again

<:#284,9360>    endif

<:#284,9360>endif

<:#284,9360>end function

<:#284,9360>

@Function@<:#293,9360>function tryit(path, app) ' <:f200,QCourier,0,0,255>this function attemts to exec the app

<:#284,9360>doschdir(path)

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

<:#284,9360>end function

<:#284,9360>

@Function@<:#293,9360>function writeprofile(path, appname) ' <:f200,QCourier,0,0,255>save the path if exec works

<:#284,9360>writeprofilestring("LotusApps", appname, path, "amipro2.ini")

<:#284,9360>end function

<:#284,9360>

@Function@<:#293,9360>function getprofile(appname) ' <:f200,QCourier,0,0,255>get the path of successful exec

<:#284,9360>defstr path;

<:#284,9360>if assign(&path, getprofilestring$("LotusApps", appname, "amipro2.ini")) <<<;> ""

<:#284,9360>    return path

<:#284,9360>endif

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

<:#284,9360>end function

<:#240,9360>

@Function@<:#240,9360>function missouri(app) ' <:f200,QCourier,0,0,255>ask user for location of exe

<:#240,9360>defstr box;

<:#240,9360>filledit(9001, "*.exe")

<:#240,9360>filledit(8007, app)

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

<:#240,9360>    return 0

<:#240,9360>endif

<:#240,9360>return getcurrentdir$()

<:#240,9360>end function

<:#240,9360>

<:#240,9360>

@Function@<:#240,9360>DIALOG findapp

<:#240,9360>-2134376448 7 70 35 200 97 "" "" "Find Application"

<:#240,9360>FONT 8 "Helv"

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

<:#240,9360>6 45 60 44 9001 1352728579 "listbox" "" 0

<:#240,9360>155 5 40 14 1 1342373889 "button" "OK" 0

<:#240,9360>155 21 40 14 2 1342373888 "button" "Cancel" 0

<:#240,9360>68 34 80 8 7999 1342177280 "static" "" 0

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

<:#240,9360>7 16 107 8 8007 1342177280 "static" "" 0

<:#240,9360>END DIALOG

<:#284,9360>

>

[Embedded]
00004224
>
[macsum] 6
execsuite 0 0 6 2
tryit 549 2 1 37
writeprofile 630 2 1 42
getprofile 704 1 2 46
missouri 878 1 2 54
findapp 1035 0 -1 65
[macse]
14 execsuite
7 "organize.exe"
8 1
7 "Lotus Organizer"
8 2
0 1288
13
8 3
7 "{3}organize"
8 4
0 32 2
0 1032 "{2}"
13
11 00000179
0 38 "{2}"
0 1031 "{2}"
5 1
15
9
5 0
0 781 "{4}"
13
18 0
11 00000280
16 tryit "" "{1}"
13
5 31
18 3
11 00000280
5 1
15
9
16 getprofile "{2}"
13
16 tryit [X] "{1}"
13
5 31
18 3
11 00000366
5 1
15
9
16 missouri "{1}"
13
0 805 &5 [X]
13
5 0
18 1
11 00000537
16 tryit "{5}" "{1}"
13
5 31
18 3
11 00000524
16 writeprofile "{5}" "{2}"
10 00000537
10 00000366
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}" "amipro2.ini"
6 2
15
9
14 getprofile
0 286 "LotusApps" "{0}" "amipro2.ini"
13
0 805 &2 [X]
13
7 ""
18 1
11 00000113
6 2
15
9
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
00004249