home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / DISK1 / MACROS.CMZ / 123W.SMM < prev    next >
INI File  |  1993-03-14  |  7KB  |  479 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.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Uruchomienie 123W
  19.     Lotus WPD Marketing
  20.     Beginner
  21.     Exec, ActivateApp
  22.     noautorun
  23.     723274188
  24.     23
  25.     674329275
  26.     144
  27.     2
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [lay]
  56.     Standard
  57.     516
  58.     [rght]
  59.         16833
  60.         11908
  61.         1
  62.         1440
  63.         1440
  64.         1
  65.         1440
  66.         1440
  67.         0
  68.         1
  69.         0
  70.         1
  71.         0
  72.         2
  73.         1
  74.         1440
  75.         10465
  76.         12
  77.         1
  78.         720
  79.         1
  80.         1440
  81.         1
  82.         2160
  83.         1
  84.         2880
  85.         1
  86.         3600
  87.         1
  88.         4320
  89.         1
  90.         5040
  91.         1
  92.         5760
  93.         1
  94.         6480
  95.         1
  96.         7200
  97.         1
  98.         7920
  99.         1
  100.         8640
  101.     [hrght]
  102.     [lyfrm]
  103.         1
  104.         11200
  105.         0
  106.         0
  107.         11908
  108.         1440
  109.         0
  110.         1
  111.         3
  112.         1 0 0 0 0 0 0
  113.         0
  114.         0
  115.         1
  116.     [frmlay]
  117.         1440
  118.         11908
  119.         1
  120.         1440
  121.         72
  122.         1
  123.         792
  124.         1440
  125.         0
  126.         1
  127.         0
  128.         1
  129.         1
  130.         0
  131.         1
  132.         1440
  133.         10465
  134.         1
  135.         3
  136.         9360
  137.     [txt]
  138. Modified by Marek G. B</y>czek from UNICORN Poland
  139.  
  140. >
  141.     [frght]
  142.     [lyfrm]
  143.         1
  144.         13256
  145.         0
  146.         15393
  147.         11908
  148.         16833
  149.         0
  150.         1
  151.         3
  152.         1 0 0 0 0 0 0
  153.         0
  154.         0
  155.         2
  156.     [frmlay]
  157.         16833
  158.         11908
  159.         1
  160.         1440
  161.         792
  162.         1
  163.         15465
  164.         1440
  165.         0
  166.         1
  167.         0
  168.         1
  169.         1
  170.         0
  171.         1
  172.         1440
  173.         10465
  174.         2
  175.         2
  176.         4680
  177.         3
  178.         9360
  179.     [txt]
  180. >
  181. [elay]
  182. [l1]
  183.     0
  184. [pg]
  185.     2
  186.     50 0 5 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
  187.     77 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
  188. [edoc]
  189. <:#278,9025>Macro by <+!>Charlie Pappas<-!>
  190.  
  191. <:#278,9025>
  192.  
  193. @Function@<:#278,9025>function execsuite()
  194.  
  195. <:#278,9025>app = "123w.exe"
  196.  
  197. <:#278,9025>appname = "1-2-3 for Windows"
  198.  
  199. <:#278,9025>defdir = "c:\123w"
  200.  
  201. <:#278,9025>ignorekeyboard(2)
  202.  
  203. <:#278,9025>declare missouri(xapp) ' <:f200,QCourier,0,0,255>declare user defined functions
  204.  
  205. <:#278,9025>declare getprofile(xappname)
  206.  
  207. <:#278,9025>declare writeprofile(path, xappname)
  208.  
  209. <:#278,9025>declare tryit(path, xapp)
  210.  
  211. <:#278,9025>defstr path;
  212.  
  213. <:#278,9025>
  214.  
  215. <:#278,9025>if appisrunning(appname) ' <:f200,QCourier,0,0,255>first see if app is already running
  216.  
  217. <:#278,9025>    activateapp(appname) ' <:f200,QCourier,0,0,255>if the app is running, just activate it
  218.  
  219. <:#278,9025>    apprestore(appname) ' <:f200,QCourier,0,0,255>make sure it is not minimized<:f>
  220.  
  221. <:#278,9025>    return 1
  222.  
  223. <:#278,9025>endif
  224.  
  225. <:#278,9025>if 0 = doschdir(defdir) ' <:f200,QCourier,0,0,255>try and change to the default directory for launch
  226.  
  227. <:#278,9025>    if tryit("", app) <;> 31
  228.  
  229. <:#278,9025>        return 1
  230.  
  231. <:#278,9025>    endif
  232.  
  233. <:#278,9025>endif
  234.  
  235. <:#278,9025>if tryit(getprofile(appname), app) <;> 31 ' <:f200,QCourier,0,0,255>if we launch, get out<:f>
  236.  
  237. <:#278,9025>    return 1
  238.  
  239. <:#278,9025>endif
  240.  
  241. <:#278,9025>again:
  242.  
  243. <:#278,9025>if assign(&path, missouri(app)) <<<;> 0 ' <:f200,QCourier,0,0,255>show me where the exe is
  244.  
  245. <:#278,9025>    if tryit(path, app) <;> 31
  246.  
  247. <:#278,9025>        writeprofile(path, appname)
  248.  
  249. <:#278,9025>    else
  250.  
  251. <:#278,9025>        goto again
  252.  
  253. <:#278,9025>    endif
  254.  
  255. <:#278,9025>endif
  256.  
  257. <:#278,9025>end function
  258.  
  259. <:#278,9025>
  260.  
  261. @Function@<:#278,9025>function tryit(path, app) ' <:f200,QCourier,0,0,255>this function attemts to exec the app
  262.  
  263. <:#278,9025>doschdir(path)
  264.  
  265. <:#278,9025>return exec(strcat$(path, app), "")
  266.  
  267. <:#278,9025>end function
  268.  
  269. <:#278,9025>
  270.  
  271. @Function@<:#278,9025>function writeprofile(path, appname) ' <:f200,QCourier,0,0,255>save the path if exec works
  272.  
  273. <:#278,9025>writeprofilestring("LotusApps", appname, path, "amipro2.ini")
  274.  
  275. <:#278,9025>end function
  276.  
  277. <:#278,9025>
  278.  
  279. @Function@<:#278,9025>function getprofile(appname) ' <:f200,QCourier,0,0,255>get the path of successful exec
  280.  
  281. <:#278,9025>defstr path;
  282.  
  283. <:#278,9025>if assign(&path, getprofilestring$("LotusApps", appname, "amipro2.ini")) <<<;> ""
  284.  
  285. <:#278,9025>    return path
  286.  
  287. <:#278,9025>endif
  288.  
  289. <:#278,9025>return getprofilestring$("LotusApps", appname, "amipro.ini")
  290.  
  291. <:#278,9025>end function
  292.  
  293. <:#278,9025>
  294.  
  295. @Function@<:#278,9025>function missouri(app) ' <:f200,QCourier,0,0,255>ask user for location of exe
  296.  
  297. <:#278,9025>defstr box;
  298.  
  299. <:#278,9025>filledit(9001, "*.exe")
  300.  
  301. <:#278,9025>filledit(8007, app)
  302.  
  303. <:#278,9025>if assign(&box, dialogbox(".", "findapp")) <<<;> 1
  304.  
  305. <:#278,9025>    return 0
  306.  
  307. <:#278,9025>endif
  308.  
  309. <:#278,9025>return getcurrentdir$()
  310.  
  311. <:#278,9025>end function
  312.  
  313. <:#278,9025>
  314.  
  315. <:#278,9025>
  316.  
  317. DIALOG    findapp
  318.  
  319. -2134376448    8    73    35    200    97    ""    ""    "Odszukanie Aplikacji"
  320.  
  321. FONT    8    "Helv"
  322.  
  323. 7    34    43    8    1000    1342177280    "static"    "&Katalog:"    0 
  324.  
  325. 6    45    60    44    9001    1352728579    "listbox"    ""    0 
  326.  
  327. 155    5    40    14    1    1342373889    "button"    "OK"    0 
  328.  
  329. 155    21    40    14    2    1342373888    "button"    "Anuluj"    0 
  330.  
  331. 105    78    90    8    7999    1342177280    "static"    ""    0 
  332.  
  333. 7    6    142    9    1006    1342177280    "static"    "Odszukaj katalog zawieraj</y>cy:"    0 
  334.  
  335. 7    16    107    8    8007    1342177280    "static"    ""    0 
  336.  
  337. 70    78    34    10    1001    1342177280    "static"    "</L>cie</>ka:"    0 
  338.  
  339. END DIALOG
  340.  
  341. <:#278,9025>
  342.  
  343. >
  344.  
  345. [Embedded]
  346. 00005000
  347. >
  348. [macsum] 6
  349. execsuite 0 0 5 2
  350. tryit 526 2 1 36
  351. writeprofile 607 2 1 41
  352. getprofile 681 1 2 45
  353. missouri 855 1 2 53
  354. findapp 1012 0 -1 64
  355. [macse]
  356. 14 execsuite
  357. 7 "123w.exe"
  358. 8 1
  359. 7 "1-2-3 for Windows"
  360. 8 2
  361. 7 "c:\123w"
  362. 8 3
  363. 0 32 2
  364. 0 1032 "{2}"
  365. 13
  366. 11 00000156
  367. 0 38 "{2}"
  368. 0 1031 "{2}"
  369. 5 1
  370. 15
  371. 9
  372. 5 0
  373. 0 781 "{3}"
  374. 13
  375. 18 0
  376. 11 00000257
  377. 16 tryit "" "{1}"
  378. 13
  379. 5 31
  380. 18 3
  381. 11 00000257
  382. 5 1
  383. 15
  384. 9
  385. 16 getprofile "{2}"
  386. 13
  387. 16 tryit [X] "{1}"
  388. 13
  389. 5 31
  390. 18 3
  391. 11 00000343
  392. 5 1
  393. 15
  394. 9
  395. 16 missouri "{1}"
  396. 13
  397. 0 805 &4 [X]
  398. 13
  399. 5 0
  400. 18 1
  401. 11 00000514
  402. 16 tryit "{4}" "{1}"
  403. 13
  404. 5 31
  405. 18 3
  406. 11 00000501
  407. 16 writeprofile "{4}" "{2}"
  408. 10 00000514
  409. 10 00000343
  410. 6 0
  411. 15
  412. 9
  413. 14 tryit
  414. 0 781 "{0}"
  415. 0 16 "{0}" "{1}"
  416. 13
  417. 0 22 [X] ""
  418. 13
  419. 15
  420. 9
  421. 6 2
  422. 15
  423. 9
  424. 14 writeprofile
  425. 0 287 "LotusApps" "{1}" "{0}" "amipro2.ini"
  426. 6 2
  427. 15
  428. 9
  429. 14 getprofile
  430. 0 286 "LotusApps" "{0}" "amipro2.ini"
  431. 13
  432. 0 805 &2 [X]
  433. 13
  434. 7 ""
  435. 18 1
  436. 11 00000113
  437. 6 2
  438. 15
  439. 9
  440. 0 286 "LotusApps" "{0}" "amipro.ini"
  441. 13
  442. 15
  443. 9
  444. 6 1
  445. 15
  446. 9
  447. 14 missouri
  448. 0 31 9001 "*.exe"
  449. 0 31 8007 "{0}"
  450. 0 26 "." "findapp"
  451. 13
  452. 0 805 &2 [X]
  453. 13
  454. 5 1
  455. 18 1
  456. 11 00000127
  457. 5 0
  458. 15
  459. 9
  460. 0 290
  461. 13
  462. 15
  463. 9
  464. 6 1
  465. 15
  466. 9
  467. DIALOG findapp
  468. -2134376448 8 73 35 200 97 "" "" "Odszukanie Aplikacji" 
  469. FONT 8 "Helv" 
  470. 7 34 43 8 1000 1342177280 "static" "&Katalog:" 0 
  471. 6 45 60 44 9001 1352728579 "listbox" "" 0 
  472. 155 5 40 14 1 1342373889 "button" "OK" 0 
  473. 155 21 40 14 2 1342373888 "button" "Anuluj" 0 
  474. 105 78 90 8 7999 1342177280 "static" "" 0 
  475. 7 6 142 9 1006 1342177280 "static" "Odszukaj katalog zawieraj╣cy:" 0 
  476. 7 16 107 8 8007 1342177280 "static" "" 0 
  477. 70 78 34 10 1001 1342177280 "static" "îcie┐ka:" 0 
  478. 00005025
  479.