home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / DISK1 / MACROS.CMZ / SMARTPIC.SMM < prev    next >
INI File  |  1993-03-14  |  6KB  |  459 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 Lotus SmartPics
  19.     Lotus WPD Marketing
  20.     Beginner
  21.     Exec, AppMinimize
  22.     
  23.     723276149
  24.     9
  25.     681240805
  26.     12
  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. [lay]
  54.     Standard
  55.     516
  56.     [rght]
  57.         16833
  58.         11908
  59.         1
  60.         720
  61.         1080
  62.         1
  63.         1252
  64.         1440
  65.         2
  66.         1
  67.         0
  68.         1
  69.         1
  70.         2
  71.         1
  72.         720
  73.         10465
  74.         14
  75.         1
  76.         720
  77.         1
  78.         1440
  79.         1
  80.         2160
  81.         1
  82.         2880
  83.         1
  84.         3600
  85.         1
  86.         4320
  87.         1
  88.         5040
  89.         1
  90.         5760
  91.         1
  92.         6480
  93.         1
  94.         7200
  95.         1
  96.         7920
  97.         1
  98.         8640
  99.         1
  100.         9360
  101.         1
  102.         10080
  103.     [hrght]
  104.     [lyfrm]
  105.         1
  106.         11200
  107.         0
  108.         0
  109.         11908
  110.         1252
  111.         0
  112.         1
  113.         3
  114.         1 0 0 0 0 0 0
  115.         0
  116.         0
  117.         1
  118.     [frmlay]
  119.         1252
  120.         11908
  121.         1
  122.         1440
  123.         0
  124.         1
  125.         360
  126.         1440
  127.         0
  128.         1
  129.         0
  130.         1
  131.         1
  132.         0
  133.         1
  134.         1440
  135.         10465
  136.         0
  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.         15753
  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.         360
  162.         1
  163.         15933
  164.         1440
  165.         0
  166.         1
  167.         0
  168.         1
  169.         1
  170.         0
  171.         1
  172.         1440
  173.         10465
  174.         0
  175.     [txt]
  176. >
  177. [elay]
  178. [l1]
  179.     0
  180. [pg]
  181.     2
  182.     60 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
  183.     74 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
  184. [edoc]
  185. <:#245,9745>Macro by <+!>Charlie Pappas<-!>
  186.  
  187. <:#245,9745>Editted by <+!>Mike Jones<-!>
  188.  
  189. <:#240,9745>
  190.  
  191. <:#240,9745>function execsuite()
  192.  
  193. <:#240,9745>app = "smartpic.exe"
  194.  
  195. <:#240,9745>appname = "SmartPics Sampler"
  196.  
  197. <:#240,9745>defdir = "c:\smartpic"
  198.  
  199. <:#240,9745>ignorekeyboard(1)
  200.  
  201. <:#240,9745>declare missouri(xapp)
  202.  
  203. <:#240,9745>declare getprofile(xappname)
  204.  
  205. <:#240,9745>declare writeprofile(path, xappname)
  206.  
  207. <:#240,9745>declare tryit(path, xapp)
  208.  
  209. <:#240,9745>defstr path;
  210.  
  211. <:#240,9745>
  212.  
  213. <:#240,9745>if appisrunning(appname)
  214.  
  215. <:#240,9745>    activateapp(appname)
  216.  
  217. <:#240,9745>    apprestore(appname)
  218.  
  219. <:#240,9745>    return 1
  220.  
  221. <:#240,9745>endif
  222.  
  223. <:#240,9745>if 0 = doschdir(defdir)
  224.  
  225. <:#240,9745>    if tryit("", app) <;> 31
  226.  
  227. <:#240,9745>        return 1
  228.  
  229. <:#240,9745>    endif
  230.  
  231. <:#240,9745>endif
  232.  
  233. <:#240,9745>if tryit(getprofile(appname), app) <;> 31
  234.  
  235. <:#240,9745>    return 1
  236.  
  237. <:#240,9745>endif
  238.  
  239. <:#240,9745>again:
  240.  
  241. <:#240,9745>if assign(&path, missouri(app)) <<<;> 0
  242.  
  243. <:#240,9745>    if tryit(path, app) <;> 31
  244.  
  245. <:#240,9745>        writeprofile(path, appname)
  246.  
  247. <:#240,9745>    else
  248.  
  249. <:#240,9745>        goto again
  250.  
  251. <:#240,9745>    endif
  252.  
  253. <:#240,9745>endif
  254.  
  255. <:#240,9745>end function
  256.  
  257. <:#240,9745>
  258.  
  259. <:#240,9745>function tryit(path, app)
  260.  
  261. <:#240,9745>doschdir(path)
  262.  
  263. <:#240,9745>return exec(strcat$(path, app), "")
  264.  
  265. <:#240,9745>end function
  266.  
  267. <:#240,9745>
  268.  
  269. <:#240,9745>function writeprofile(path, appname)
  270.  
  271. <:#240,9745>writeprofilestring("LotusApps", appname, path, "amipro.ini")
  272.  
  273. <:#240,9745>end function
  274.  
  275. <:#240,9745>
  276.  
  277. <:#240,9745>function getprofile(appname)
  278.  
  279. <:#240,9745>return getprofilestring$("LotusApps", appname, "amipro.ini")
  280.  
  281. <:#240,9745>end function
  282.  
  283. <:#240,9745>
  284.  
  285. <:#240,9745>function missouri(app)
  286.  
  287. <:#240,9745>defstr box;
  288.  
  289. <:#240,9745>filledit(9001, "*.exe")
  290.  
  291. <:#240,9745>filledit(8007, app)
  292.  
  293. <:#240,9745>if assign(&box, dialogbox(".", "findapp")) <<<;> 1
  294.  
  295. <:#240,9745>    return 0
  296.  
  297. <:#240,9745>endif
  298.  
  299. <:#240,9745>return getcurrentdir$()
  300.  
  301. <:#240,9745>end function
  302.  
  303. <:#240,9745>
  304.  
  305. <:#240,9745>
  306.  
  307. <:#240,9745>DIALOG    findapp
  308.  
  309. <:#240,9745>-2134376448    8    73    35    200    97    ""    ""    "Odszukanie Aplikacji"
  310.  
  311. <:#240,9745>FONT    8    "Helv"
  312.  
  313. <:#240,9745>7    34    43    8    1000    1342177280    "static"    "&Katalog:"    0 
  314.  
  315. <:#240,9745>6    45    60    44    9001    1352728579    "listbox"    ""    0 
  316.  
  317. <:#240,9745>155    5    40    14    1    1342373889    "button"    "OK"    0 
  318.  
  319. <:#240,9745>155    21    40    14    2    1342373888    "button"    "Anuluj"    0 
  320.  
  321. <:#240,9745>105    78    90    8    7999    1342177280    "static"    ""    0 
  322.  
  323. <:#480,9745>7    6    142    9    1006    1342177280    "static"    "Odszukaj katalog zawieraj</y>cy:"    0 
  324.  
  325. <:#240,9745>7    16    107    8    8007    1342177280    "static"    ""    0 
  326.  
  327. <:#240,9745>70    78    34    10    1001    1342177280    "static"    "</L>cie</>ka:"    0 
  328.  
  329. <:#240,9745>END DIALOG
  330.  
  331. <:#240,9745>
  332.  
  333. >
  334.  
  335. [Embedded]
  336. 00004286
  337. >
  338. [macsum] 6
  339. execsuite 0 0 5 3
  340. tryit 534 2 1 37
  341. writeprofile 615 2 1 42
  342. getprofile 688 1 1 46
  343. missouri 764 1 2 50
  344. findapp 921 0 -1 61
  345. [macse]
  346. 14 execsuite
  347. 7 "smartpic.exe"
  348. 8 1
  349. 7 "SmartPics Sampler"
  350. 8 2
  351. 7 "c:\smartpic"
  352. 8 3
  353. 0 32 1
  354. 0 1032 "{2}"
  355. 13
  356. 11 00000164
  357. 0 38 "{2}"
  358. 0 1031 "{2}"
  359. 5 1
  360. 15
  361. 9
  362. 5 0
  363. 0 781 "{3}"
  364. 13
  365. 18 0
  366. 11 00000265
  367. 16 tryit "" "{1}"
  368. 13
  369. 5 31
  370. 18 3
  371. 11 00000265
  372. 5 1
  373. 15
  374. 9
  375. 16 getprofile "{2}"
  376. 13
  377. 16 tryit [X] "{1}"
  378. 13
  379. 5 31
  380. 18 3
  381. 11 00000351
  382. 5 1
  383. 15
  384. 9
  385. 16 missouri "{1}"
  386. 13
  387. 0 805 &4 [X]
  388. 13
  389. 5 0
  390. 18 1
  391. 11 00000522
  392. 16 tryit "{4}" "{1}"
  393. 13
  394. 5 31
  395. 18 3
  396. 11 00000509
  397. 16 writeprofile "{4}" "{2}"
  398. 10 00000522
  399. 10 00000351
  400. 6 0
  401. 15
  402. 9
  403. 14 tryit
  404. 0 781 "{0}"
  405. 0 16 "{0}" "{1}"
  406. 13
  407. 0 22 [X] ""
  408. 13
  409. 15
  410. 9
  411. 6 2
  412. 15
  413. 9
  414. 14 writeprofile
  415. 0 287 "LotusApps" "{1}" "{0}" "amipro.ini"
  416. 6 2
  417. 15
  418. 9
  419. 14 getprofile
  420. 0 286 "LotusApps" "{0}" "amipro.ini"
  421. 13
  422. 15
  423. 9
  424. 6 1
  425. 15
  426. 9
  427. 14 missouri
  428. 0 31 9001 "*.exe"
  429. 0 31 8007 "{0}"
  430. 0 26 "." "findapp"
  431. 13
  432. 0 805 &2 [X]
  433. 13
  434. 5 1
  435. 18 1
  436. 11 00000127
  437. 5 0
  438. 15
  439. 9
  440. 0 290
  441. 13
  442. 15
  443. 9
  444. 6 1
  445. 15
  446. 9
  447. DIALOG findapp
  448. -2134376448 8 73 35 200 97 "" "" "Odszukanie Aplikacji" 
  449. FONT 8 "Helv" 
  450. 7 34 43 8 1000 1342177280 "static" "&Katalog:" 0 
  451. 6 45 60 44 9001 1352728579 "listbox" "" 0 
  452. 155 5 40 14 1 1342373889 "button" "OK" 0 
  453. 155 21 40 14 2 1342373888 "button" "Anuluj" 0 
  454. 105 78 90 8 7999 1342177280 "static" "" 0 
  455. 7 6 142 9 1006 1342177280 "static" "Odszukaj katalog zawieraj╣cy:" 0 
  456. 7 16 107 8 8007 1342177280 "static" "" 0 
  457. 70 78 34 10 1001 1342177280 "static" "îcie┐ka:" 0 
  458. 00004311
  459.