Liren Large Software Subsidy 14

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 52.ddi / SMM.LIB / NOTES.SMM < prev next >

Wrap

INI File | 1993-10-21 | 9.8 KB | 1,014 lines

[ver] 4 [sty] _default.sty [charset] 82 ANSI (Windows, IBM CP 1252) [PanoseFontTable] 5 5 Arial 2818 1030 514 514 1026 Tms Rmn 514 774 1284 517 1027 Helvetica 2818 1029 514 514 1026 Helv 2818 1029 514 770 1026 Times New Roman 514 774 1029 517 1027 [revisions] 0 [recfile] * 1 1 3 8 0 0 [lang] 1 [desc] Launch Lotus Notes 751229432 1 750620291 151 0 0 0 0 0 1 [prn] QMS-PS 810 [port] NW:\\SPEEDY\QMS [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Function 1 [fnt] Helvetica 240 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 68 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ Body Text 0 0 [tag] Outline4 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 4 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Outline3 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 720 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 3 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Outline2 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 216 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 2 0 1 1 0 16 0 0 [nfmt] 272 1 3 . , $ Outline2 0 0 [tag] Outline1 1 [fnt] Times New Roman 240 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 72 0 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline1 0 0 [tag] Title 8 [fnt] Helvetica 280 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Body Text 2 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 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 [frght] [lyfrm] 0 13184 0 14400 12240 15840 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s> > [hrght] [lyfrm] 0 11136 0 0 12240 1440 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s> > [elay] [lay] 1 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 0 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 [frght] [lyfrm] 0 13184 0 14400 12240 15840 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 0 16777215 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s><:#P30670848,P943718> > [hrght] [lyfrm] 0 11136 0 0 12240 1440 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 0 16777215 0 0 0 1 1440 10800 1 3 9360 [txt] <:s><:#P30670848,P943718> > [elay] [l1] 1 [edoc] @Function@<:s><:#P30670848,P975176><:X3,0;include "amixlate.sam!notes">' Notes Defines @Outline2@<:s>Define AppName "Lotus Notes" @Outline2@<:s>Define NotFound "Ami Pro cannot find Lotus Notes for OS/2. If you have Notes currently installed, please enter the path below." @Outline2@<:s>Define EnterPath "Enter the path for Lotus Notes for OS/2:" @Outline2@<:s>Define Caption "Execute Lotus Notes" @Outline2@<:s>Define Path "C:\NOTES\$LNOTES.EXE" <:X~3,0;include "amixlate.sam!notes"> @Outline2@<:s><:#P30670848,P802161>Declare CheckIsRunning(Name) @Function@<:s><:#P30670848,P975176> @Function@<:s><:#P30670848,P975176>Function LotusNotes() @Outline2@<:s><:#P30670848,P802161>DefStr RealAppName; @Outline2@<:s><:#P30670848,P802161>' Check to see if notes is running @Outline2@<:s><:#P30670848,P802161>If 0 != Assign(&RealAppName, CheckIsRunning(AppName)) @Outline3@<:s><:#P30670848,P802161> ' it is - activate it by the name on the titlebar @Outline3@<:s><:#P30670848,P802161> ActivateApp(RealAppName) @Outline3@<:s><:#P30670848,P802161> EXIT FUNCTION @Outline2@<:s><:#P30670848,P802161>ENDIF @Outline2@<:s><:#P30670848,P802161>appPath=GetProfileString$("LotusApplications","Notes") @Outline2@<:s><:#P30670848,P802161>launchResult=Exec(appPath,"") @Outline2@<:s><:#P30670848,P802161>Mac = GetRunningMacroFile$() @Outline2@<:s><:#P30670848,P802161>While launchResult<<33 @Outline3@<:s><:#P30670848,P802161> FillEdit(1004, EnterPath) @Outline3@<:s><:#P30670848,P802161> FillEdit(1001, NotFound) @Outline3@<:s><:#P30670848,P802161> FillEdit(8000, Path) @Outline3@<:s><:#P30670848,P802161> SetDlgCallBack(0, "{Mac}!InitDlg") @Outline3@<:s><:#P30670848,P802161> Box=DialogBox("Launch.dlg","Missouri") @Outline3@<:s><:#P30670848,P802161> if Box<<<;>1 @Outline3@<:s><:#P30670848,P802161> ' Hit cancel in the box @Outline3@<:s><:#P30670848,P802161> EXIT FUNCTION @Outline3@<:s><:#P30670848,P802161> endif @Outline3@<:s><:#P30670848,P802161> appPath=GetDialogField$(8000) @Outline3@<:s><:#P30670848,P802161> WriteProfileString("LotusApplications","Notes",appPath) @Outline3@<:s><:#P30670848,P802161> launchResult=Exec(appPath,"") @Outline2@<:s><:#P30670848,P802161>WEND @Outline2@<:s><:#P30670848,P802161>end function <:s><:#P30670848,P943718> @Function@<:s><:#P30670848,P975176>Function InitDlg(Hdlg) @Outline2@<:s><:#P30670848,P802161>' Since all of the macros to launch applications share a dialogbox, we need to set the caption @Outline2@<:s><:#P30670848,P802161>DlgSetCaption(Hdlg, Caption) @Outline2@<:s><:#P30670848,P802161>End Function <:s><:#P30670848,P943718> <:s><:#P30670848,P943718> <:s><:#P30670848,P943718> @Function@<:s><:#P30670848,P975176>Function CheckIsRunning(App) <:s><:#P30670848,P943718>NumberRunning = AppGetAppCount() <:s><:#P30670848,P943718>Dim Names(NumberRunning) <:s><:#P30670848,P943718>AppGetAppNames(&Names) <:s><:#P30670848,P943718>For t = 1 to NumberRunning <:s><:#P30670848,P943718> WinName = Names(t) <:s><:#P30670848,P943718> If 0 != Instr(0, WinName App) <:s><:#P30670848,P943718> ' The app that we are trying to launch is running, return the full name <:s><:#P30670848,P943718> ' as it appears on the titlebar of the application - For example: <:s><:#P30670848,P943718> ' Notes may appear as Lotus Notes - New Memo <:s><:#P30670848,P943718> Return WinName <:s><:#P30670848,P943718> Endif <:s><:#P30670848,P943718>Next <:s><:#P30670848,P943718>Return 0 <:s><:#P30670848,P943718>End Function <:s><:#P30670848,P943718> <:s><:#P30670848,P943718> @Function@<:s><:#P30670848,P943718> > [Embedded] 00008601 > [macsum4] 3 34 LotusNotes 0 0 6 9 InitDlg 857 1 1 36 CheckIsRunning 952 1 5 43 [macse] 14 LotusNotes 29 0 LotusNotes 17 1 29 1 RealAppName 17 3 5 0 16 CheckIsRunning "Lotus Notes" 13 0 805 &1 [X] 13 18 1 11 00000171 17 5 0 38 "{1}" 6 0 15 9 17 8 29 2 appPath 0 286 "LotusApplications" "Notes" 13 8 2 17 9 29 3 launchResult 0 22 "{2}" "" 13 8 3 17 10 29 4 Mac 0 802 13 8 4 17 11 6 3 5 33 18 5 11 00000838 17 12 0 31 1004 "Enter the path for Lotus Notes for OS/2:" 17 13 0 31 1001 "Ami Pro cannot find Lotus Notes for OS/2. If you have Notes currently installed, please enter the path below." 17 14 0 31 8000 "C:\NOTES\$LNOTES.EXE" 17 15 0 41 0 "{4}!InitDlg" 17 16 29 5 Box 0 26 "Launch.dlg" "Missouri" 13 8 5 17 17 6 5 5 1 18 1 11 00000719 6 0 15 9 17 21 0 27 8000 13 8 2 17 22 0 287 "LotusApplications" "Notes" "{2}" 17 23 0 22 "{2}" "" 13 8 3 10 00000317 6 0 15 17 25 9 14 InitDlg 29 0 Hdlg 29 1 InitDlg 17 2 0 75 "{0}" "Execute Lotus Notes" 6 1 15 17 3 9 14 CheckIsRunning 29 0 App 29 1 CheckIsRunning 17 1 29 2 NumberRunning 0 1033 13 8 2 17 2 6 2 29 3 Names 21 3 [X] 17 3 0 1034 &3 29 4 t 5 1 8 4 17 4 6 2 6 4 18 2 12 00000242 10 00000365 5 1 6 4 3 0 8 4 10 00000161 17 5 29 5 WinName 6 4 22 3 8 5 17 6 5 0 0 808 0 "{5}" "{0}" 13 18 1 11 00000352 17 10 6 5 15 9 10 00000209 17 13 5 0 15 9 6 1 15 17 14 9 00008626