home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / 123W.SMM next >
INI File  |  1994-07-28  |  7KB  |  424 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     COMPAQ PAGEMARQ 20
  13. [port]
  14.     LPT3:
  15. [lang]
  16.     1
  17. [fldnames]
  18.     Field1
  19.     Field2
  20.     Field3
  21.     Field4
  22.     Field5
  23.     Field6
  24.     Field7
  25.     Field8
  26. [desc]
  27.     Launch 123W
  28.     Lotus WPD Marketing
  29.     Beginner
  30.     Exec, ActivateApp
  31.     noautorun
  32.     775438660
  33.     24
  34.     674329275
  35.     293
  36.     3
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     0
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53.     
  54.     
  55. [lnopts]
  56.     2
  57.     Body Text
  58.     1
  59. [docopts]
  60.     5
  61.     2
  62. [GramStyle]
  63.     
  64. [ParaNum]
  65.     1
  66. [l1]
  67.     0
  68. [pg]
  69.     3
  70.     47 0 86 0 0 0 0 65535 41 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  71.     94 0 10 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
  72.     95 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
  73. [edoc]
  74. <:#282,9360>Macro by <+!>Charlie Pappas<-!>
  75.  
  76. <:#275,9360>
  77.  
  78. @Function@<:#282,9360>function execsuite()
  79.  
  80. <:#275,9360>app = "123w.exe"
  81.  
  82. appname = "1-2-3 for Windows" <:f200,BArial,0,0,255>'appname for 123w 
  83. <:f><:f200,BArial,0,0,255><:f>
  84.  
  85. appname2 = "Lotus 1-2-3" <:f200,BArial,0,0,255>'appname for 123r4 or higher<:f>        
  86.  
  87. defdir = "c:\123w" <:f200,BArial,0,0,255>'defdir for 123w<:f>
  88.  
  89. defdir2 = getprofilestring$("Lotus Applications","123w","Lotus.ini") 
  90. <:f200,BArial,0,0,255>'for 123r4 or higher<:f>
  91.  
  92. defdir2 = strfield$(defdir2,1," ") <:f200,BArial,0,0,255>'for 123r4 or higher<:f>
  93.  
  94.  
  95. ignorekeyboard(2)
  96.  
  97. <:#275,9360>declare missouri(xapp) ' <:f200,QCourier,0,0,255>declare user defined functions
  98.  
  99. <:#275,9360>declare getprofile(xappname)
  100.  
  101. <:#275,9360>declare writeprofile(path, xappname)
  102.  
  103. <:#275,9360>declare tryit(path, xapp)
  104.  
  105. <:#275,9360>defstr path;
  106.  
  107. <:f200,BArial,0,0,255>'this section is for 123R4 or higher<:f>
  108.  
  109. if appisrunning(appname2) ' <:f200,QCourier,0,0,255>first see if app is already running
  110.  
  111.     activateapp(appname2) ' <:f200,QCourier,0,0,255>if the app is running, just activate it
  112.  
  113.     apprestore(appname2) ' <:f200,QCourier,0,0,255>make sure it is not minimized<:f>
  114.  
  115. <:#275,9360>    return 1
  116.  
  117. <:#275,9360>endif
  118.  
  119. <:f200,BArial,0,0,255>'this section is for 123w<:f>
  120.  
  121. if appisrunning(appname) ' <:f200,QCourier,0,0,255>first see if app is already running
  122.  
  123.     activateapp(appname) ' <:f200,QCourier,0,0,255>if the app is running, just activate it
  124.  
  125.     apprestore(appname) ' <:f200,QCourier,0,0,255>make sure it is not minimized<:f>
  126.  
  127.     return 1
  128.  
  129. endif
  130.  
  131. <:f200,QCourier,0,0,255>
  132.  
  133. if defdir2 != ""
  134.  
  135.     exec(defdir2,"") <:f200,BArial,0,0,255>'for 123R4 or higher<:f>
  136.  
  137.     exit function
  138.  
  139. endif
  140.  
  141. <:f200,BArial,0,0,255>
  142.  
  143. <:f200,BArial,0,0,255>'From this point on, code is for 123w only<:f>.  
  144. <:f200,BArial,0,0,255>123R4 or higher should not need this code
  145.  
  146. <:f200,BArial,0,0,255>'unless the 123 line in the lotus.ini file is invalid<:f>.
  147.  
  148.  
  149. <:#275,9360>if 0 = doschdir(defdir) ' <:f200,QCourier,0,0,255>try and change to the default directory for launch
  150.  
  151. <:#275,9360>    if tryit("", app) <;> 31
  152.  
  153. <:#275,9360>        return 1
  154.  
  155. <:#275,9360>    endif
  156.  
  157. <:#275,9360>endif
  158.  
  159. <:#275,9360>if tryit(getprofile(appname), app) <;> 31 ' <:f200,QCourier,0,0,255>if we launch, get out<:f>
  160.  
  161. <:#275,9360>    return 1
  162.  
  163. <:#275,9360>endif
  164.  
  165. <:#275,9360>again:
  166.  
  167. <:#275,9360>if assign(&path, missouri(app)) <<<;> 0 ' <:f200,QCourier,0,0,255>show me where the exe is
  168.  
  169. <:#275,9360>    if tryit(path, app) <;> 31
  170.  
  171. <:#275,9360>        writeprofile(path, appname)
  172.  
  173. <:#275,9360>    else
  174.  
  175. <:#275,9360>        goto again
  176.  
  177. <:#275,9360>    endif
  178.  
  179. <:#275,9360>endif
  180.  
  181. <:#275,9360>end function
  182.  
  183. <:#275,9360>
  184.  
  185. @Function@<:#282,9360>function tryit(path, app) ' <:f200,QCourier,0,0,255>this function attemts to exec the app
  186.  
  187. <:#275,9360>doschdir(path)
  188.  
  189. <:#275,9360>return exec(strcat$(path, app), "")
  190.  
  191. <:#275,9360>end function
  192.  
  193. <:#275,9360>
  194.  
  195. @Function@<:#282,9360>function writeprofile(path, appname) ' <:f200,QCourier,0,0,255>save the path if exec works
  196.  
  197. <:#275,9360>writeprofilestring("LotusApps", appname, path, "amipro2.ini")
  198.  
  199. <:#275,9360>end function
  200.  
  201. <:#275,9360>
  202.  
  203. @Function@<:#282,9360>function getprofile(appname) ' <:f200,QCourier,0,0,255>get the path of successful exec
  204.  
  205. <:#275,9360>defstr path;
  206.  
  207. <:#275,9360>if assign(&path, getprofilestring$("LotusApps", appname, "amipro2.ini")) <<<;> ""
  208.  
  209. <:#275,9360>    return path
  210.  
  211. <:#275,9360>endif
  212.  
  213. <:#275,9360>return getprofilestring$("LotusApps", appname, "amipro.ini")
  214.  
  215. <:#275,9360>end function
  216.  
  217. <:#275,9360>
  218.  
  219. @Function@<:#282,9360>function missouri(app) ' <:f200,QCourier,0,0,255>ask user for location of exe
  220.  
  221. <:#275,9360>defstr box;
  222.  
  223. <:#275,9360>filledit(9001, "*.exe")
  224.  
  225. <:#275,9360>filledit(8007, app)
  226.  
  227. <:#275,9360>if assign(&box, dialogbox(".", "findapp")) <<<;> 1
  228.  
  229. <:#275,9360>    return 0
  230.  
  231. <:#275,9360>endif
  232.  
  233. <:#275,9360>return getcurrentdir$()
  234.  
  235. <:#275,9360>end function
  236.  
  237. <:#275,9360>
  238.  
  239. <:#275,9360>
  240.  
  241. @Function@<:#282,9360>DIALOG findapp
  242.  
  243. <:#275,9360>-2134376448 7 70 35 200 97 "" "" "Find Application"
  244.  
  245. <:#275,9360>FONT 8 "Helv"
  246.  
  247. <:#275,9360>7 34 59 8 1000 1342177280 "static" "&Program path:" 0 
  248.  
  249. <:#275,9360>6 45 60 44 9001 1352728579 "listbox" "" 0 
  250.  
  251. <:#275,9360>155 5 40 14 1 1342373889 "button" "OK" 0 
  252.  
  253. <:#275,9360>155 21 40 14 2 1342373888 "button" "Cancel" 0 
  254.  
  255. <:#275,9360>68 34 80 8 7999 1342177280 "static" "" 0 
  256.  
  257. <:#275,9360>7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0 
  258.  
  259. <:#275,9360>7 16 107 8 8007 1342177280 "static" "" 0 
  260.  
  261. <:#275,9360>END DIALOG
  262.  
  263. <:#275,9360>
  264.  
  265. >
  266.  
  267. [Embedded]
  268. 00005485
  269. >
  270. [macsum] 6
  271. execsuite 0 0 7 2
  272. tryit 757 2 1 55
  273. writeprofile 838 2 1 60
  274. getprofile 912 1 2 64
  275. missouri 1086 1 2 72
  276. findapp 1243 0 -1 83
  277. [macse]
  278. 14 execsuite
  279. 7 "123w.exe"
  280. 8 1
  281. 7 "1-2-3 for Windows"
  282. 8 2
  283. 7 "Lotus 1-2-3"
  284. 8 3
  285. 7 "c:\123w"
  286. 8 4
  287. 0 286 "Lotus Applications" "123w" "Lotus.ini"
  288. 13
  289. 8 5
  290. 0 20 "{5}" 1 " "
  291. 13
  292. 8 5
  293. 0 32 2
  294. 0 1032 "{3}"
  295. 13
  296. 11 00000261
  297. 0 38 "{3}"
  298. 0 1031 "{3}"
  299. 5 1
  300. 15
  301. 9
  302. 0 1032 "{2}"
  303. 13
  304. 11 00000330
  305. 0 38 "{2}"
  306. 0 1031 "{2}"
  307. 5 1
  308. 15
  309. 9
  310. 6 5
  311. 7 ""
  312. 18 1
  313. 11 00000387
  314. 0 22 "{5}" ""
  315. 6 0
  316. 15
  317. 9
  318. 5 0
  319. 0 781 "{4}"
  320. 13
  321. 18 0
  322. 11 00000488
  323. 16 tryit "" "{1}"
  324. 13
  325. 5 31
  326. 18 3
  327. 11 00000488
  328. 5 1
  329. 15
  330. 9
  331. 16 getprofile "{2}"
  332. 13
  333. 16 tryit [X] "{1}"
  334. 13
  335. 5 31
  336. 18 3
  337. 11 00000574
  338. 5 1
  339. 15
  340. 9
  341. 16 missouri "{1}"
  342. 13
  343. 0 805 &6 [X]
  344. 13
  345. 5 0
  346. 18 1
  347. 11 00000745
  348. 16 tryit "{6}" "{1}"
  349. 13
  350. 5 31
  351. 18 3
  352. 11 00000732
  353. 16 writeprofile "{6}" "{2}"
  354. 10 00000745
  355. 10 00000574
  356. 6 0
  357. 15
  358. 9
  359. 14 tryit
  360. 0 781 "{0}"
  361. 0 16 "{0}" "{1}"
  362. 13
  363. 0 22 [X] ""
  364. 13
  365. 15
  366. 9
  367. 6 2
  368. 15
  369. 9
  370. 14 writeprofile
  371. 0 287 "LotusApps" "{1}" "{0}" "amipro2.ini"
  372. 6 2
  373. 15
  374. 9
  375. 14 getprofile
  376. 0 286 "LotusApps" "{0}" "amipro2.ini"
  377. 13
  378. 0 805 &2 [X]
  379. 13
  380. 7 ""
  381. 18 1
  382. 11 00000113
  383. 6 2
  384. 15
  385. 9
  386. 0 286 "LotusApps" "{0}" "amipro.ini"
  387. 13
  388. 15
  389. 9
  390. 6 1
  391. 15
  392. 9
  393. 14 missouri
  394. 0 31 9001 "*.exe"
  395. 0 31 8007 "{0}"
  396. 0 26 "." "findapp"
  397. 13
  398. 0 805 &2 [X]
  399. 13
  400. 5 1
  401. 18 1
  402. 11 00000127
  403. 5 0
  404. 15
  405. 9
  406. 0 290
  407. 13
  408. 15
  409. 9
  410. 6 1
  411. 15
  412. 9
  413. DIALOG findapp
  414. -2134376448 7 70 35 200 97 "" "" "Find Application" 
  415. FONT 8 "Helv" 
  416. 7 34 59 8 1000 1342177280 "static" "&Program path:" 0 
  417. 6 45 60 44 9001 1352728579 "listbox" "" 0 
  418. 155 5 40 14 1 1342373889 "button" "OK" 0 
  419. 155 21 40 14 2 1342373888 "button" "Cancel" 0 
  420. 68 34 80 8 7999 1342177280 "static" "" 0 
  421. 7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0 
  422. 7 16 107 8 8007 1342177280 "static" "" 0 
  423. 00005510
  424.