PC World Komputer 1998 May/Pcwk5b98.iso/DISK1/MACROS.CMZ/WINAPPS.SMM

INI File | 1993-03-14 | 4KB | 359 lines

[ver]
    4
[sty]
    _default.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Menu - Prze</s></y>czenie si<\j> na inn</y> aplikacj<\j> Windows
    Lotus Word Processing Division
    Beginner
    Menus, Active Apps
    AutoRun
    723538626
    28
    673578583
    155
    2
    0
    0
    0
    0
    Addmenuitem, Scan For Active Apps, Simple Arrays

    Peyton McManus



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

[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        720
        1440
        1
        1800
        1440
        2
        1
        0
        1
        1
        2
        1
        720
        10800
        5
        1
        720
        1
        1440
        1
        2880
        1
        4320
        1
        5760
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1800
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1800
        12240
        1
        1440
        72
        1
        360
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
Modified by Marek G. B</y>czek from UNICORN Poland

Peyton McManus

Winapps   <[>Updates menu with currently running Apps]

05/08/92

>
    [frght]
    [lyfrm]
        1
        13248
        0
        14400
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        360
        1
        14472
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
>
[elay]
[l1]
    0
[pg]
    2
    45 0 24 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
    46 0 12 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]
@Function@<:#279,10080>Declare AppMenu()

@Function@<:#279,10080>

@Function@<:#279,10080>Function appmenu()

<:#279,10080>IF IsNewWave()

<:#279,10080>    Message("Makroprogram nie dzia</s>a, je</\>li jest uruchomiony HP NewWave.")

<:#279,10080>    Exit Function

<:#279,10080>ENDIF

<:#279,10080>Count=AppGetAppCount()

<:#279,10080>Barid=1

<:#279,10080>MenuName="Apli&Win"

<:#279,10080>Hourglass(on)

<:#279,10080>Deletemenu(Barid, MenuName)

<:#279,10080>AddMenu(Barid, MenuName)

<:#279,10080>Dim Apps(Count)

<:#279,10080>AppGetAppNames(&Apps)

<:#279,10080>Mac=GetRunningMacroFile$()

<:#279,10080>If Count<;>25

<:#279,10080>    Count=25

<:#279,10080>Endif

<:#279,10080>OpenBracket = Chr$(91)

<:#279,10080>For i=1 to Count

<:#279,10080>    ap = apps(I)

<:#279,10080>    Ap=Strfield$(ap,1,OpenBracket)

<:#279,10080>    If Ap !="Srvr"

<:#279,10080>        rap = """{ap}"""

<:#279,10080>        AddMenuItem(BarId,MenuName,"&{ap}","{mac}!rest({rap})")

<:#279,10080>    Endif

<:#279,10080>Next

<:#279,10080>AddMenuItem(1,Menuname,"-","")

<:#279,10080>addmenuitem(1, menuname, "&Zaktualizuj", "{mac}!update")

<:#279,10080>AddMenuItem(1,Menuname,"&Wyjd</_> z ApliWin","{mac}!quit")

<:#279,10080>Hourglass(off)

<:#279,10080>End Function

<:#279,10080>

@Function@<:#279,10080>function update()

<:#279,10080>appmenu()

<:#279,10080>end function

<:#279,10080>

@Function@<:#279,10080>function rest(ap)

<:#279,10080>apprestore(ap)

<:#279,10080>activateapp(ap)

<:#279,10080>end function

<:#279,10080>

@Function@<:#279,10080>Function Quit()

<:#279,10080>Deletemenu(1,"Apli&Win")

<:#279,10080>End Function

>

[Embedded]
00003298
>
[macsum] 4
appmenu 0 0 10 2
update 687 0 1 34
rest 722 1 1 38
Quit 769 0 1 43
[macse]
14 appmenu
0 1317
13
11 00000122
0 3 "Makroprogram nie dzia</s>a, je</\>li jest uruchomiony HP NewWave."
6 0
15
9
0 1033
13
8 1
5 1
8 2
7 "Apli&Win"
8 3
0 296 1
0 521 "{2}" "{3}"
0 515 "{2}" "{3}"
6 1
21 4 [X]
0 1034 &4
0 802
13
8 5
6 1
5 25
18 3
11 00000298
5 25
8 1
0 39 91
13
8 6
5 1
8 7
6 1
6 7
18 2
12 00000401
10 00000553
5 1
6 7
3 0
8 7
10 00000326
6 7
22 4
8 8
0 20 "{8}" 1 "{6}"
13
8 8
6 8
7 "Srvr"
18 1
11 00000540
7 """{8}"""
8 9
0 516 "{2}" "{3}" "&{8}" "{5}!rest({9})"
10 00000368
0 516 1 "{3}" "-" ""
0 516 1 "{3}" "&Zaktualizuj" "{5}!update"
0 516 1 "{3}" "&Wyjd</_> z ApliWin" "{5}!quit"
0 296 0
6 0
15
9
14 update
16 appmenu
6 0
15
9
14 rest
0 1031 "{0}"
0 38 "{0}"
6 1
15
9
14 Quit
0 521 1 "Apli&Win"
6 0
15
9
00003323