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

INI File | 1994-08-14 | 5.7 KB | 349 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    CHINESEBIG5 (Windows)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    ╕ⁿñJ Lotus Notes
    Lotus WPD Marketing
    Beginner
    Exec, ActivateApp
    NoAutorun
    773104695
    21
    677631022
    125
    2
    0
    0
    0
    0






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

[ParaNum]
    1
[l1]
    0
[pg]
    2
    49 0 12 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    76 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<-!>

<:#284,9025>

<:#284,9025>function execsuite()

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

<:#284,9025>appname = "Lotus Notes"

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

<:#284,9025>ignorekeyboard(2)

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

<:#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) ' <:f200,QCourier,0,0,255>first see if app is already running

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

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

<:#284,9025>    return 1

<:#284,9025>endif

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

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

<:#284,9025>        return 1

<:#284,9025>    endif

<:#284,9025>endif

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

<:#284,9025>    return 1

<:#284,9025>endif

<:#284,9025>again:

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

<:#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>

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

<:#284,9025>doschdir(path)

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

<:#284,9025>end function

<:#284,9025>

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

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

<:#284,9025>end function

<:#284,9025>

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

<:#284,9025>defstr path;

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

<:#284,9025>    return path

<:#284,9025>endif

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

<:#284,9025>end function

<:#284,9025>

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

<:#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>

@Function@<:#293,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]
00004167
>
[macsum] 6
execsuite 0 0 5 2
tryit 522 2 1 36
writeprofile 603 2 1 41
getprofile 677 1 2 45
missouri 851 1 2 53
findapp 1008 0 -1 64
[macse]
14 execsuite
7 "notes.exe"
8 1
7 "Lotus Notes"
8 2
7 "c:\notes"
8 3
0 32 2
0 1032 "{2}"
13
11 00000152
0 38 "{2}"
0 1031 "{2}"
5 1
15
9
5 0
0 781 "{3}"
13
18 0
11 00000253
16 tryit "" "{1}"
13
5 31
18 3
11 00000253
5 1
15
9
16 getprofile "{2}"
13
16 tryit [X] "{1}"
13
5 31
18 3
11 00000339
5 1
15
9
16 missouri "{1}"
13
0 805 &4 [X]
13
5 0
18 1
11 00000510
16 tryit "{4}" "{1}"
13
5 31
18 3
11 00000497
16 writeprofile "{4}" "{2}"
10 00000510
10 00000339
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
00004192