home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR2
/
DDETOPIC.ZIP
/
DDETOPIC.SMM
Wrap
INI File
|
1993-02-05
|
13KB
|
1,203 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
COMPAQ PAGEMARQ 15 v2012.015
[port]
LPT1:
[lang]
1
[desc]
728954679
1
728954569
1
3
0
0
0
0
1
[fopts]
4
1
3600
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[tag]
Body Text
2
[fnt]
Times New Roman
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 Text
0
0
[tag]
Body Single
3
[fnt]
Times New Roman
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
4
[fnt]
Times New Roman
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
5
[fnt]
Times New Roman
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
6
[fnt]
Times New Roman
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
16
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
Times New Roman
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
8
[fnt]
Arial
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
[tag]
Header
9
[fnt]
Times New Roman
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
.
,
$
Header
0
0
[tag]
Footer
11
[fnt]
Times New Roman
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
.
,
$
Footer
0
0
[tag]
Footnote
12
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
720
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
4
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>
0
1
1
256
0
0
0
[nfmt]
280
1
2
.
,
$
Footnote
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10800
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[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
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[pg]
3
45 0 54 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
90 0 0 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
107 0 10 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]
<:#284,9360>FUNCTION DDE_Topics()
<:#284,9360>Mac = GetRunningMacroFile$()
<:#284,9360>CN = 2 ' Number of Commands
<:#284,9360>DIM CMDS(CN) ' Demension an Array to hold all the DDE Commands
<:#284,9360> CMDS(1) = "System!Topics" ' Request all available topics
<:#284,9360> CMDS(2) = "<<Drive<;>:\<<FullPath<;>\<<FileName.Ext<;>!<<DataReference<;>" ' Example
<:#284,9360> ' Add additional commands here
<:#284,9360>AN = 11 ' Number of Applications
<:#284,9360>DIM DDEApps(AN) ' Demension an Array to hold all the DDE Commands
<:#284,9360> DDEApps(1) = "AmiPro"
<:#284,9360> DDEApps(2) = "123W"
<:#284,9360> DDEApps(3) = "FLW"
<:#284,9360> DDEApps(4) = "Smartext"
<:#284,9360> DDEApps(5) = "SmartPics"
<:#284,9360> DDEApps(6) = "Notes"
<:#284,9360> DDEApps(7) = "Write"
<:#284,9360> DDEApps(8) = "WinWord"
<:#284,9360> DDEApps(9) = "Excel"
<:#284,9360> DDEApps(10) = "QPW"
<:#284,9360> DDEApps(11) = "Improv"
<:#284,9360>app=""
<:#284,9360>again:
<:#284,9360>cnt = 0
<:#284,9360>APPNames=GetProfileString$("Embedding",0,"Win.ini") ' Fill Array with App names
<:#284,9360>while app != -1
<:#284,9360>cnt = cnt + 1
<:#284,9360> app = strfield$(APPNames,cnt, "~")
<:#284,9360> if app != -1 ' and app != "" ' To remove blank entry from dialog box remove first tic
<:#284,9360> filledit(9500,"{app}") ' Fill Edit box with apps from Embedded section of Win.ini
<:#284,9360> else
<:#284,9360> break
<:#284,9360> endif
<:#284,9360>wend
<:#284,9360>FOR IA = 1 to AN
<:#284,9360> FillEdit(9500, DDEApps(IA)) ' Fill the App Name list box
<:#284,9360>NEXT
<:#284,9360>FOR IN = 1 to CN
<:#284,9360> FillEdit(9501, CMDS(IN)) ' Fill the Topic & Item list box
<:#284,9360>NEXT
<:#284,9360>box=DialogBox(".", "DDEINITIATE")
<:#284,9360>if box << 1
<:#284,9360> exit function
<:#284,9360>endif
<:#284,9360>App = GetDialogField$(9500) ' Get the app name
<:#284,9360>TopicA = GetDialogField$(9501) ' Get the Topic & Item
<:#284,9360>ItemLoc = strchr(1, TopicA, "!") ' Check for a item delimiter
<:#284,9360>If ItemLoc = -1
<:#284,9360>Topic = TopicA ' If no item proceed
<:#284,9360>Else
<:#284,9360>TopicLen = Len(TopicA)
<:#284,9360>Topic = MID$(TopicA, 1, ItemLoc - 1) ' Strip out the topic
<:#284,9360>Item = MID$(TopicA, ItemLoc + 1, TopicLen) ' Strip out the item
<:#284,9360>EndIf
<:#284,9360>
<:#284,9360>id = DDEInitiate("{App}", "{Topic}") ' Initiate the cnversation
<:#284,9360>if id = 0 ' If no response from the app
<:#284,9360>ans=Decide("{App} not available, DDE channel {id}. Run {App}?") ' Run it?
<:#284,9360> if ans = 0
<:#284,9360> goto again ' If not, start over
<:#284,9360> else
<:#284,9360> OK = Exec("{App}", "", 2) ' Start the app
<:#284,9360> If OK <;> 32
<:#284,9360> goto again
<:#284,9360> Else
<:#284,9360> Message("Unable to Execute {App}!")
<:#284,9360> goto again
<:#284,9360> endif
<:#284,9360> endif
<:#284,9360>endif
<:#284,9360>' Message("{App} responded on DDE channel {id}") ' Display the DDE channel No.
<:#284,9360>rec=DDEReceive$(id, Item) ' Ask for the data ' Item '
<:#284,9360>if Rec != "" ' If data was sent
<:#284,9360> RecString=""
<:#284,9360> x=0
<:#284,9360> While RecString != -1
<:#284,9360> x=x + 1
<:#284,9360> RecString=strfield$(Rec, x, " ")
<:#284,9360> If RecString != -1
<:#284,9360> Filllist("{RecString}")
<:#284,9360> EndIf
<:#284,9360> Wend
<:#284,9360> FillEdit(9001, recstring)
<:#284,9360> box=DialogBox(".", "ShowStuff")' Show the data
<:#284,9360>else
<:#284,9360> Message("No Data Received from {App}!")
<:#284,9360>endif
<:#284,9360>DDETerminate(Id) ' Terminate the conversation
<:#284,9360>goto again
<:#284,9360>END FUNCTION
<:#284,9360>
<:#284,9360>DIALOG DDEINITIATE
<:#284,9360>-2134376448 7 80 87 238 90 "" "" "DDE Communications"
<:#284,9360>10 7 62 10 1000 1342177280 "static" "Application &Name:" 0
<:#284,9360>10 17 108 43 9500 1344471298 "combobox" "" 0
<:#284,9360>10 38 40 10 1001 1342177280 "static" "&Topic ! Item:" 0
<:#284,9360>8 48 224 41 9501 1344471050 "combobox" "" 0
<:#284,9360>142 16 40 14 1 1342242817 "button" "OK" 0
<:#284,9360>190 16 40 14 2 1342242816 "button" "Cancel" 0
<:#568,9360>14 67 206 10 1002 1342177281 "static" "Separate the Topic and Item with an '!' No Spaces allowed." 0
<:#284,9360>END DIALOG
<:#284,9360>
<:#284,9360>DIALOG ShowStuff
<:#284,9360>-2134376448 3 106 85 218 90 "" "" "DDE Receive Results"
<:#284,9360>14 21 188 40 9001 1352728577 "listbox" "" 0
<:#284,9360>16 7 80 10 1000 1342177280 "static" "DDE Receive Return:" 0
<:#284,9360>86 67 40 14 1 1342373889 "button" "OK" 0
<:#284,9360>END DIALOG
>
[Embedded]
00009878
>
[macsum] 3
DDE_Topics 0 0 23 0
DDEINITIATE 1901 0 -1 90
ShowStuff 2385 0 -1 101
[macse]
14 DDE_Topics
0 802
13
8 1
5 2
8 2
6 2
21 3 [X]
5 1
7 "System!Topics"
23 3
5 2
7 "<<Drive>:\<<FullPath>\<<FileName.Ext>!<<DataReference>"
23 3
5 11
8 4
6 4
21 5 [X]
5 1
7 "AmiPro"
23 5
5 2
7 "123W"
23 5
5 3
7 "FLW"
23 5
5 4
7 "Smartext"
23 5
5 5
7 "SmartPics"
23 5
5 6
7 "Notes"
23 5
5 7
7 "Write"
23 5
5 8
7 "WinWord"
23 5
5 9
7 "Excel"
23 5
5 10
7 "QPW"
23 5
5 11
7 "Improv"
23 5
7 ""
8 6
5 0
8 7
0 286 "Embedding" 0 "Win.ini"
13
8 8
6 6
5 -1
18 1
11 00000661
6 7
5 1
3 0
8 7
0 20 "{8}" "{7}" "~"
13
8 6
6 6
5 -1
18 1
11 00000635
0 31 9500 "{6}"
10 00000648
10 00000661
10 00000494
5 1
8 9
6 4
6 9
18 2
12 00000746
10 00000785
5 1
6 9
3 0
8 9
10 00000671
6 9
22 5
0 31 9500 [X]
10 00000713
5 1
8 10
6 2
6 10
18 2
12 00000874
10 00000914
5 1
6 10
3 0
8 10
10 00000796
6 10
22 3
0 31 9501 [X]
10 00000839
0 26 "." "DDEINITIATE"
13
8 11
6 11
5 1
18 5
11 00000990
6 0
15
9
0 27 9500
13
8 6
0 27 9501
13
8 12
0 13 1 "{12}" "!"
13
8 13
6 13
5 -1
18 0
11 00001116
6 12
8 14
10 00001234
0 14 "{12}"
13
8 15
6 13
5 1
3 1
0 15 "{12}" 1 [X]
13
8 14
6 13
5 1
3 0
0 15 "{12}" [X] "{15}"
13
8 16
0 8 "{6}" "{14}"
13
8 17
6 17
5 0
18 0
11 00001539
0 2 "{6} not available, DDE channel {17}. Run {6}?"
13
8 18
6 18
5 0
18 0
11 00001412
10 00000444
10 00001539
0 22 "{6}" "" 2
13
8 19
6 19
5 32
18 3
11 00001496
10 00000444
10 00001539
0 3 "Unable to Execute {6}!"
10 00000444
0 10 "{17}" "{16}"
13
8 20
6 20
7 ""
18 1
11 00001830
7 ""
8 21
5 0
8 22
6 21
5 -1
18 1
11 00001767
6 22
5 1
3 0
8 22
0 20 "{20}" "{22}" " "
13
8 21
6 21
5 -1
18 1
11 00001754
0 25 "{21}"
10 00001623
0 31 9001 "{21}"
0 26 "." "ShowStuff"
13
8 11
10 00001864
0 3 "No Data Received from {6}!"
0 9 "{17}"
10 00000444
6 0
15
9
DIALOG DDEINITIATE
-2134376448 7 80 87 238 90 "" "" "DDE Communications"
10 7 62 10 1000 1342177280 "static" "Application &Name:" 0
10 17 108 43 9500 1344471298 "combobox" "" 0
10 38 40 10 1001 1342177280 "static" "&Topic ! Item:" 0
8 48 224 41 9501 1344471050 "combobox" "" 0
142 16 40 14 1 1342242817 "button" "OK" 0
190 16 40 14 2 1342242816 "button" "Cancel" 0
14 67 206 10 1002 1342177281 "static" "Separate the Topic and Item with an '!' No Spaces allowed." 0
DIALOG ShowStuff
-2134376448 3 106 85 218 90 "" "" "DDE Receive Results"
14 21 188 40 9001 1352728577 "listbox" "" 0
16 7 80 10 1000 1342177280 "static" "DDE Receive Return:" 0
86 67 40 14 1 1342373889 "button" "OK" 0
00009903
