home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August (B) / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / ORGANIZE.SMM < prev    next >
Encoding:
INI File  |  1994-07-29  |  6.9 KB  |  513 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. [fldnames]
  18.     Field1
  19.     Field2
  20.     Field3
  21.     Field4
  22.     Field5
  23.     Field6
  24.     Field7
  25.     Field8
  26. [desc]
  27.     Launch Lotus Organizer
  28.     Lotus WPD Marketing
  29.     Beginner
  30.     Exec, ActivateApp
  31.     noautorun
  32.     775519133
  33.     23
  34.     674329275
  35.     164
  36.     2
  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. [lay]
  67.     Standard
  68.     513
  69.     [rght]
  70.         15840
  71.         12240
  72.         1
  73.         1008
  74.         1440
  75.         1
  76.         1440
  77.         1008
  78.         0
  79.         1
  80.         0
  81.         1
  82.         0
  83.         2
  84.         1
  85.         1008
  86.         11232
  87.         12
  88.         1
  89.         720
  90.         1
  91.         1440
  92.         1
  93.         2160
  94.         1
  95.         2880
  96.         1
  97.         3600
  98.         1
  99.         4320
  100.         1
  101.         5040
  102.         1
  103.         5760
  104.         1
  105.         6480
  106.         1
  107.         7200
  108.         1
  109.         7920
  110.         1
  111.         8640
  112.     [hrght]
  113.     [lyfrm]
  114.         1
  115.         11200
  116.         0
  117.         0
  118.         12240
  119.         1440
  120.         0
  121.         1
  122.         3
  123.         1 0 0 0 0 0 0
  124.         0
  125.         0
  126.         1
  127.     [frmlay]
  128.         1440
  129.         12240
  130.         1
  131.         1440
  132.         72
  133.         1
  134.         792
  135.         1440
  136.         0
  137.         1
  138.         0
  139.         1
  140.         1
  141.         0
  142.         1
  143.         1440
  144.         10800
  145.         1
  146.         3
  147.         9360
  148.     [txt]
  149. >
  150.     [frght]
  151.     [lyfrm]
  152.         1
  153.         13248
  154.         0
  155.         14400
  156.         12240
  157.         15840
  158.         0
  159.         1
  160.         3
  161.         1 0 0 0 0 0 0
  162.         0
  163.         0
  164.         2
  165.     [frmlay]
  166.         15840
  167.         12240
  168.         1
  169.         1440
  170.         792
  171.         1
  172.         14472
  173.         1440
  174.         0
  175.         1
  176.         0
  177.         1
  178.         1
  179.         0
  180.         1
  181.         1440
  182.         10800
  183.         2
  184.         2
  185.         4680
  186.         3
  187.         9360
  188.     [txt]
  189. >
  190. [elay]
  191. [l1]
  192.     0
  193. [pg]
  194.     2
  195.     45 0 14 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
  196.     83 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
  197. [edoc]
  198. Macro by <+!>Charlie Pappas<-!>
  199.  
  200.  
  201. @Function@function execsuite()
  202.  
  203. app = "organize.exe"
  204.  
  205. appname = "Lotus Organizer"
  206.  
  207. windir = GetWindowsDirectory$()
  208.  
  209. defdir = "{windir}organize"
  210.  
  211. 'defdir2 = getprofilestring$("Lotus Applications","Organize","Lotus.ini") 
  212. <:f200,BArial,0,0,255>'for Organizer 1.1<:f><:f200,BArial,0,0,255> or higher<:f>
  213.  
  214. @Outline3@<:f200,BArial,0,0,255><:f>defdir2 = StrField$((GetProfileString$("Lotus Applications","Organize","Lotus.ini")),1," ")
  215.  
  216. <:f200,BArial,0,0,255><:f>ignorekeyboard(2)
  217.  
  218. declare missouri(xapp) ' <:f200,QCourier,0,0,255>declare user defined functions
  219.  
  220. declare getprofile(xappname)
  221.  
  222. declare writeprofile(path, xappname)
  223.  
  224. declare tryit(path, xapp)
  225.  
  226. defstr path;
  227.  
  228.  
  229. if appisrunning(appname) ' <:f200,QCourier,0,0,255>first see if app is already running
  230.  
  231.     activateapp(appname) ' <:f200,QCourier,0,0,255>if the app is running, just activate it
  232.  
  233.     apprestore(appname) ' <:f200,QCourier,0,0,255>make sure it is not minimized<:f>
  234.  
  235.     return 1
  236.  
  237. endif
  238.  
  239. if defdir2 != ""
  240.  
  241.     exec(defdir2,"") <:f200,BArial,0,0,255>'for Organizer 1.1 or higher<:f>
  242.  
  243.     Exit Function
  244.  
  245. endif
  246.  
  247. if 0 = doschdir(defdir) ' <:f200,QCourier,0,0,255>try and change to the default directory for launch
  248.  
  249.     if tryit("", app) <;> 31
  250.  
  251.         return 1
  252.  
  253.     endif
  254.  
  255. endif
  256.  
  257. if tryit(getprofile(appname), app) <;> 31 ' <:f200,QCourier,0,0,255>if we launch, get out<:f>
  258.  
  259.     return 1
  260.  
  261. endif
  262.  
  263. again:
  264.  
  265. if assign(&path, missouri(app)) <<<;> 0 ' <:f200,QCourier,0,0,255>show me where the exe is
  266.  
  267.     if tryit(path, app) <;> 31
  268.  
  269.         writeprofile(path, appname)
  270.  
  271.     else
  272.  
  273.         goto again
  274.  
  275.     endif
  276.  
  277. endif
  278.  
  279. end function
  280.  
  281.  
  282. @Function@<:#293,10224>function tryit(path, app) ' <:f200,QCourier,0,0,255>this function attemts to exec the app
  283.  
  284. <:#284,10224>doschdir(path)
  285.  
  286. <:#284,10224>return exec(strcat$(path, app), "")
  287.  
  288. <:#284,10224>end function
  289.  
  290. <:#275,10224>
  291.  
  292. @Function@<:#282,10224>function writeprofile(path, appname) ' <:f200,QCourier,0,0,255>save the path if exec works
  293.  
  294. <:#275,10224>writeprofilestring("LotusApps", appname, path, "amipro2.ini")
  295.  
  296. <:#275,10224>end function
  297.  
  298. <:#275,10224>
  299.  
  300. @Function@<:#282,10224>function getprofile(appname) ' <:f200,QCourier,0,0,255>get the path of successful exec
  301.  
  302. <:#275,10224>defstr path;
  303.  
  304. <:#275,10224>if assign(&path, getprofilestring$("LotusApps", appname, "amipro2.ini")) <<<;> ""
  305.  
  306. <:#275,10224>    return path
  307.  
  308. <:#275,10224>endif
  309.  
  310. <:#275,10224>return getprofilestring$("LotusApps", appname, "amipro.ini")
  311.  
  312. <:#275,10224>end function
  313.  
  314. <:#275,10224>
  315.  
  316. @Function@<:#282,10224>function missouri(app) ' <:f200,QCourier,0,0,255>ask user for location of exe
  317.  
  318. <:#275,10224>defstr box;
  319.  
  320. <:#275,10224>filledit(9001, "*.exe")
  321.  
  322. <:#275,10224>filledit(8007, app)
  323.  
  324. <:#275,10224>if assign(&box, dialogbox(".", "findapp")) <<<;> 1
  325.  
  326. <:#275,10224>    return 0
  327.  
  328. <:#275,10224>endif
  329.  
  330. <:#275,10224>return getcurrentdir$()
  331.  
  332. <:#275,10224>end function
  333.  
  334. <:#275,10224>
  335.  
  336. <:#275,10224>
  337.  
  338. @Function@<:#282,10224>DIALOG findapp
  339.  
  340. <:#275,10224>-2134376448 7 70 35 200 97 "" "" "Find Application"
  341.  
  342. <:#275,10224>FONT 8 "Helv"
  343.  
  344. <:#275,10224>7 34 59 8 1000 1342177280 "static" "&Program path:" 0 
  345.  
  346. <:#275,10224>6 45 60 44 9001 1352728579 "listbox" "" 0 
  347.  
  348. <:#275,10224>155 5 40 14 1 1342373889 "button" "OK" 0 
  349.  
  350. <:#275,10224>155 21 40 14 2 1342373888 "button" "Cancel" 0 
  351.  
  352. <:#275,10224>68 34 80 8 7999 1342177280 "static" "" 0 
  353.  
  354. <:#275,10224>7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0 
  355.  
  356. <:#275,10224>7 16 107 8 8007 1342177280 "static" "" 0 
  357.  
  358. <:#275,10224>END DIALOG
  359.  
  360. <:#284,10224>
  361.  
  362. >
  363.  
  364. [Embedded]
  365. 00005219
  366. >
  367. [macsum] 6
  368. execsuite 0 0 7 2
  369. tryit 686 2 1 43
  370. writeprofile 767 2 1 48
  371. getprofile 841 1 2 52
  372. missouri 1015 1 2 60
  373. findapp 1172 0 -1 71
  374. [macse]
  375. 14 execsuite
  376. 7 "organize.exe"
  377. 8 1
  378. 7 "Lotus Organizer"
  379. 8 2
  380. 0 1288
  381. 13
  382. 8 3
  383. 7 "{3}organize"
  384. 8 4
  385. 0 286 "Lotus Applications" "Organize" "Lotus.ini"
  386. 13
  387. 0 20 [X] 1 " "
  388. 13
  389. 8 5
  390. 0 32 2
  391. 0 1032 "{2}"
  392. 13
  393. 11 00000259
  394. 0 38 "{2}"
  395. 0 1031 "{2}"
  396. 5 1
  397. 15
  398. 9
  399. 6 5
  400. 7 ""
  401. 18 1
  402. 11 00000316
  403. 0 22 "{5}" ""
  404. 6 0
  405. 15
  406. 9
  407. 5 0
  408. 0 781 "{4}"
  409. 13
  410. 18 0
  411. 11 00000417
  412. 16 tryit "" "{1}"
  413. 13
  414. 5 31
  415. 18 3
  416. 11 00000417
  417. 5 1
  418. 15
  419. 9
  420. 16 getprofile "{2}"
  421. 13
  422. 16 tryit [X] "{1}"
  423. 13
  424. 5 31
  425. 18 3
  426. 11 00000503
  427. 5 1
  428. 15
  429. 9
  430. 16 missouri "{1}"
  431. 13
  432. 0 805 &6 [X]
  433. 13
  434. 5 0
  435. 18 1
  436. 11 00000674
  437. 16 tryit "{6}" "{1}"
  438. 13
  439. 5 31
  440. 18 3
  441. 11 00000661
  442. 16 writeprofile "{6}" "{2}"
  443. 10 00000674
  444. 10 00000503
  445. 6 0
  446. 15
  447. 9
  448. 14 tryit
  449. 0 781 "{0}"
  450. 0 16 "{0}" "{1}"
  451. 13
  452. 0 22 [X] ""
  453. 13
  454. 15
  455. 9
  456. 6 2
  457. 15
  458. 9
  459. 14 writeprofile
  460. 0 287 "LotusApps" "{1}" "{0}" "amipro2.ini"
  461. 6 2
  462. 15
  463. 9
  464. 14 getprofile
  465. 0 286 "LotusApps" "{0}" "amipro2.ini"
  466. 13
  467. 0 805 &2 [X]
  468. 13
  469. 7 ""
  470. 18 1
  471. 11 00000113
  472. 6 2
  473. 15
  474. 9
  475. 0 286 "LotusApps" "{0}" "amipro.ini"
  476. 13
  477. 15
  478. 9
  479. 6 1
  480. 15
  481. 9
  482. 14 missouri
  483. 0 31 9001 "*.exe"
  484. 0 31 8007 "{0}"
  485. 0 26 "." "findapp"
  486. 13
  487. 0 805 &2 [X]
  488. 13
  489. 5 1
  490. 18 1
  491. 11 00000127
  492. 5 0
  493. 15
  494. 9
  495. 0 290
  496. 13
  497. 15
  498. 9
  499. 6 1
  500. 15
  501. 9
  502. DIALOG findapp
  503. -2134376448 7 70 35 200 97 "" "" "Find Application" 
  504. FONT 8 "Helv" 
  505. 7 34 59 8 1000 1342177280 "static" "&Program path:" 0 
  506. 6 45 60 44 9001 1352728579 "listbox" "" 0 
  507. 155 5 40 14 1 1342373889 "button" "OK" 0 
  508. 155 21 40 14 2 1342373888 "button" "Cancel" 0 
  509. 68 34 80 8 7999 1342177280 "static" "" 0 
  510. 7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0 
  511. 7 16 107 8 8007 1342177280 "static" "" 0 
  512. 00005244
  513.