home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / DISK1 / MACROS.CMZ / ORGANIZE.SMM < prev    next >
INI File  |  1993-03-14  |  7KB  |  484 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 Organizer
  19.     Lotus WPD Marketing
  20.     Beginner
  21.     Exec, ActivateApp
  22.     noautorun
  23.     723276055
  24.     23
  25.     674329275
  26.     143
  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 12 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  187.     78 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 = "organize.exe"
  196.  
  197. <:#278,9025>appname = "Lotus Organizer"
  198.  
  199. <:#278,9025>windir = GetWindowsDirectory$()
  200.  
  201. <:#278,9025>defdir = "{windir}organize"
  202.  
  203. <:#278,9025>ignorekeyboard(2)
  204.  
  205. <:#278,9025>declare missouri(xapp) ' <:f200,QCourier,0,0,255>declare user defined functions
  206.  
  207. <:#278,9025>declare getprofile(xappname)
  208.  
  209. <:#278,9025>declare writeprofile(path, xappname)
  210.  
  211. <:#278,9025>declare tryit(path, xapp)
  212.  
  213. <:#278,9025>defstr path;
  214.  
  215. <:#278,9025>
  216.  
  217. <:#278,9025>if appisrunning(appname) ' <:f200,QCourier,0,0,255>first see if app is already running
  218.  
  219. <:#278,9025>    activateapp(appname) ' <:f200,QCourier,0,0,255>if the app is running, just activate it
  220.  
  221. <:#278,9025>    apprestore(appname) ' <:f200,QCourier,0,0,255>make sure it is not minimized<:f>
  222.  
  223. <:#278,9025>    return 1
  224.  
  225. <:#278,9025>endif
  226.  
  227. <:#278,9025>if 0 = doschdir(defdir) ' <:f200,QCourier,0,0,255>try and change to the default directory for launch
  228.  
  229. <:#278,9025>    if tryit("", app) <;> 31
  230.  
  231. <:#278,9025>        return 1
  232.  
  233. <:#278,9025>    endif
  234.  
  235. <:#278,9025>endif
  236.  
  237. <:#278,9025>if tryit(getprofile(appname), app) <;> 31 ' <:f200,QCourier,0,0,255>if we launch, get out<:f>
  238.  
  239. <:#278,9025>    return 1
  240.  
  241. <:#278,9025>endif
  242.  
  243. <:#278,9025>again:
  244.  
  245. <:#278,9025>if assign(&path, missouri(app)) <<<;> 0 ' <:f200,QCourier,0,0,255>show me where the exe is
  246.  
  247. <:#278,9025>    if tryit(path, app) <;> 31
  248.  
  249. <:#278,9025>        writeprofile(path, appname)
  250.  
  251. <:#278,9025>    else
  252.  
  253. <:#278,9025>        goto again
  254.  
  255. <:#278,9025>    endif
  256.  
  257. <:#278,9025>endif
  258.  
  259. <:#278,9025>end function
  260.  
  261. <:#278,9025>
  262.  
  263. @Function@<:#278,9025>function tryit(path, app) ' <:f200,QCourier,0,0,255>this function attemts to exec the app
  264.  
  265. <:#278,9025>doschdir(path)
  266.  
  267. <:#278,9025>return exec(strcat$(path, app), "")
  268.  
  269. <:#278,9025>end function
  270.  
  271. <:#278,9025>
  272.  
  273. @Function@<:#278,9025>function writeprofile(path, appname) ' <:f200,QCourier,0,0,255>save the path if exec works
  274.  
  275. <:#278,9025>writeprofilestring("LotusApps", appname, path, "amipro2.ini")
  276.  
  277. <:#278,9025>end function
  278.  
  279. <:#278,9025>
  280.  
  281. @Function@<:#278,9025>function getprofile(appname) ' <:f200,QCourier,0,0,255>get the path of successful exec
  282.  
  283. <:#278,9025>defstr path;
  284.  
  285. <:#278,9025>if assign(&path, getprofilestring$("LotusApps", appname, "amipro2.ini")) <<<;> ""
  286.  
  287. <:#278,9025>    return path
  288.  
  289. <:#278,9025>endif
  290.  
  291. <:#278,9025>return getprofilestring$("LotusApps", appname, "amipro.ini")
  292.  
  293. <:#278,9025>end function
  294.  
  295. <:#278,9025>
  296.  
  297. @Function@<:#278,9025>function missouri(app) ' <:f200,QCourier,0,0,255>ask user for location of exe
  298.  
  299. <:#278,9025>defstr box;
  300.  
  301. <:#278,9025>filledit(9001, "*.exe")
  302.  
  303. <:#278,9025>filledit(8007, app)
  304.  
  305. <:#278,9025>if assign(&box, dialogbox(".", "findapp")) <<<;> 1
  306.  
  307. <:#278,9025>    return 0
  308.  
  309. <:#278,9025>endif
  310.  
  311. <:#278,9025>return getcurrentdir$()
  312.  
  313. <:#278,9025>end function
  314.  
  315. <:#278,9025>
  316.  
  317. <:#278,9025>
  318.  
  319. DIALOG    findapp
  320.  
  321. -2134376448    8    73    35    200    97    ""    ""    "Odszukanie Aplikacji"
  322.  
  323. FONT    8    "Helv"
  324.  
  325. 7    34    43    8    1000    1342177280    "static"    "&Katalog:"    0 
  326.  
  327. 6    45    60    44    9001    1352728579    "listbox"    ""    0 
  328.  
  329. 155    5    40    14    1    1342373889    "button"    "OK"    0 
  330.  
  331. 155    21    40    14    2    1342373888    "button"    "Anuluj"    0 
  332.  
  333. 105    78    90    8    7999    1342177280    "static"    ""    0 
  334.  
  335. 7    6    142    9    1006    1342177280    "static"    "Odszukaj katalog zawieraj</y>cy:"    0 
  336.  
  337. 7    16    107    8    8007    1342177280    "static"    ""    0 
  338.  
  339. 70    78    34    10    1001    1342177280    "static"    "</L>cie</>ka:"    0 
  340.  
  341. END DIALOG
  342.  
  343. <:#278,9025>
  344.  
  345. >
  346.  
  347. [Embedded]
  348. 00005070
  349. >
  350. [macsum] 6
  351. execsuite 0 0 6 2
  352. tryit 549 2 1 37
  353. writeprofile 630 2 1 42
  354. getprofile 704 1 2 46
  355. missouri 878 1 2 54
  356. findapp 1035 0 -1 65
  357. [macse]
  358. 14 execsuite
  359. 7 "organize.exe"
  360. 8 1
  361. 7 "Lotus Organizer"
  362. 8 2
  363. 0 1288
  364. 13
  365. 8 3
  366. 7 "{3}organize"
  367. 8 4
  368. 0 32 2
  369. 0 1032 "{2}"
  370. 13
  371. 11 00000179
  372. 0 38 "{2}"
  373. 0 1031 "{2}"
  374. 5 1
  375. 15
  376. 9
  377. 5 0
  378. 0 781 "{4}"
  379. 13
  380. 18 0
  381. 11 00000280
  382. 16 tryit "" "{1}"
  383. 13
  384. 5 31
  385. 18 3
  386. 11 00000280
  387. 5 1
  388. 15
  389. 9
  390. 16 getprofile "{2}"
  391. 13
  392. 16 tryit [X] "{1}"
  393. 13
  394. 5 31
  395. 18 3
  396. 11 00000366
  397. 5 1
  398. 15
  399. 9
  400. 16 missouri "{1}"
  401. 13
  402. 0 805 &5 [X]
  403. 13
  404. 5 0
  405. 18 1
  406. 11 00000537
  407. 16 tryit "{5}" "{1}"
  408. 13
  409. 5 31
  410. 18 3
  411. 11 00000524
  412. 16 writeprofile "{5}" "{2}"
  413. 10 00000537
  414. 10 00000366
  415. 6 0
  416. 15
  417. 9
  418. 14 tryit
  419. 0 781 "{0}"
  420. 0 16 "{0}" "{1}"
  421. 13
  422. 0 22 [X] ""
  423. 13
  424. 15
  425. 9
  426. 6 2
  427. 15
  428. 9
  429. 14 writeprofile
  430. 0 287 "LotusApps" "{1}" "{0}" "amipro2.ini"
  431. 6 2
  432. 15
  433. 9
  434. 14 getprofile
  435. 0 286 "LotusApps" "{0}" "amipro2.ini"
  436. 13
  437. 0 805 &2 [X]
  438. 13
  439. 7 ""
  440. 18 1
  441. 11 00000113
  442. 6 2
  443. 15
  444. 9
  445. 0 286 "LotusApps" "{0}" "amipro.ini"
  446. 13
  447. 15
  448. 9
  449. 6 1
  450. 15
  451. 9
  452. 14 missouri
  453. 0 31 9001 "*.exe"
  454. 0 31 8007 "{0}"
  455. 0 26 "." "findapp"
  456. 13
  457. 0 805 &2 [X]
  458. 13
  459. 5 1
  460. 18 1
  461. 11 00000127
  462. 5 0
  463. 15
  464. 9
  465. 0 290
  466. 13
  467. 15
  468. 9
  469. 6 1
  470. 15
  471. 9
  472. DIALOG findapp
  473. -2134376448 8 73 35 200 97 "" "" "Odszukanie Aplikacji" 
  474. FONT 8 "Helv" 
  475. 7 34 43 8 1000 1342177280 "static" "&Katalog:" 0 
  476. 6 45 60 44 9001 1352728579 "listbox" "" 0 
  477. 155 5 40 14 1 1342373889 "button" "OK" 0 
  478. 155 21 40 14 2 1342373888 "button" "Anuluj" 0 
  479. 105 78 90 8 7999 1342177280 "static" "" 0 
  480. 7 6 142 9 1006 1342177280 "static" "Odszukaj katalog zawieraj╣cy:" 0 
  481. 7 16 107 8 8007 1342177280 "static" "" 0 
  482. 70 78 34 10 1001 1342177280 "static" "îcie┐ka:" 0 
  483. 00005095
  484.