home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / CCMAIL.SMM < prev    next >
INI File  |  1992-05-02  |  6KB  |  346 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.     Launch Lotus cc:Mail
  19.     Lotus WPD Marketing
  20.     Beginner
  21.     Exec
  22.     noautorun
  23.     704830090
  24.     16
  25.     676763487
  26.     4
  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. [l1]
  54.     0
  55. [pg]
  56.     2
  57.     45 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
  58.     76 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
  59. [edoc]
  60. <:#293,9360>Macro by <+!>Charlie Pappas<-!>
  61.  
  62. <:#284,9360>
  63.  
  64. @Function@<:#293,9360>function execsuite()
  65.  
  66. <:#284,9360>app = "wmail.exe"
  67.  
  68. <:#284,9360>appname = "cc:Mail for Windows"
  69.  
  70. <:#284,9360>defdir = "c:\ccmail"
  71.  
  72. ignorekeyboard(2)
  73.  
  74. <:#284,9360>declare missouri(xapp) ' <:f200,QCourier,0,0,255>declare user defined functions
  75.  
  76. <:#284,9360>declare getprofile(xappname)
  77.  
  78. <:#284,9360>declare writeprofile(path, xappname)
  79.  
  80. <:#284,9360>declare tryit(path, xapp)
  81.  
  82. <:#284,9360>defstr path;
  83.  
  84. <:#284,9360>
  85.  
  86. <:#284,9360>if appisrunning(appname) ' <:f200,QCourier,0,0,255>first see if app is already running
  87.  
  88. <:#284,9360>    activateapp(appname) ' <:f200,QCourier,0,0,255>if the app is running, just activate it
  89.  
  90. <:#284,9360>    apprestore(appname) ' <:f200,QCourier,0,0,255>make sure it is not minimized<:f>
  91.  
  92. <:#284,9360>    return 1
  93.  
  94. <:#284,9360>endif
  95.  
  96. <:#284,9360>if 0 = doschdir(defdir) ' <:f200,QCourier,0,0,255>try and change to the default directory for launch
  97.  
  98. <:#284,9360>    if tryit("", app) <;> 31
  99.  
  100. <:#284,9360>        return 1
  101.  
  102. <:#284,9360>    endif
  103.  
  104. <:#284,9360>endif
  105.  
  106. <:#284,9360>if tryit(getprofile(appname), app) <;> 31 ' <:f200,QCourier,0,0,255>if we launch, get out<:f>
  107.  
  108. <:#284,9360>    return 1
  109.  
  110. <:#284,9360>endif
  111.  
  112. <:#284,9360>again:
  113.  
  114. <:#284,9360>if assign(&path, missouri(app)) <<<;> 0 ' <:f200,QCourier,0,0,255>show me where the exe is
  115.  
  116. <:#284,9360>    if tryit(path, app) <;> 31
  117.  
  118. <:#284,9360>        writeprofile(path, appname)
  119.  
  120. <:#284,9360>    else
  121.  
  122. <:#284,9360>        goto again
  123.  
  124. <:#284,9360>    endif
  125.  
  126. <:#284,9360>endif
  127.  
  128. <:#284,9360>end function
  129.  
  130. <:#284,9360>
  131.  
  132. @Function@<:#293,9360>function tryit(path, app) ' <:f200,QCourier,0,0,255>this function attemts to exec the app
  133.  
  134. <:#284,9360>doschdir(path)
  135.  
  136. <:#284,9360>return exec(strcat$(path, app), "")
  137.  
  138. <:#284,9360>end function
  139.  
  140. <:#284,9360>
  141.  
  142. @Function@<:#293,9360>function writeprofile(path, appname) ' <:f200,QCourier,0,0,255>save the path if exec works
  143.  
  144. <:#284,9360>writeprofilestring("LotusApps", appname, path, "amipro2.ini")
  145.  
  146. <:#284,9360>end function
  147.  
  148. <:#284,9360>
  149.  
  150. @Function@<:#293,9360>function getprofile(appname) ' <:f200,QCourier,0,0,255>get the path of successful exec
  151.  
  152. <:#284,9360>defstr path;
  153.  
  154. <:#284,9360>if assign(&path, getprofilestring$("LotusApps", appname, "amipro2.ini")) <<<;> ""
  155.  
  156. <:#284,9360>    return path
  157.  
  158. <:#284,9360>endif
  159.  
  160. <:#284,9360>return getprofilestring$("LotusApps", appname, "amipro.ini")
  161.  
  162. <:#284,9360>end function
  163.  
  164. <:#240,9360>
  165.  
  166. @Function@<:#240,9360>function missouri(app) ' <:f200,QCourier,0,0,255>ask user for location of exe
  167.  
  168. <:#240,9360>defstr box;
  169.  
  170. <:#240,9360>filledit(9001, "*.exe")
  171.  
  172. <:#240,9360>filledit(8007, app)
  173.  
  174. <:#240,9360>if assign(&box, dialogbox(".", "findapp")) <<<;> 1
  175.  
  176. <:#240,9360>    return 0
  177.  
  178. <:#240,9360>endif
  179.  
  180. <:#240,9360>return getcurrentdir$()
  181.  
  182. <:#240,9360>end function
  183.  
  184. <:#240,9360>
  185.  
  186. <:#240,9360>
  187.  
  188. @Function@<:#240,9360>DIALOG findapp
  189.  
  190. <:#240,9360>-2134376448 7 70 35 200 97 "" "" "Find Application"
  191.  
  192. <:#240,9360>FONT 8 "Helv"
  193.  
  194. <:#240,9360>7 34 59 8 1000 1342177280 "static" "&Program path:" 0 
  195.  
  196. <:#240,9360>6 45 60 44 9001 1352728579 "listbox" "" 0 
  197.  
  198. <:#240,9360>155 5 40 14 1 1342373889 "button" "OK" 0 
  199.  
  200. <:#240,9360>155 21 40 14 2 1342373888 "button" "Cancel" 0 
  201.  
  202. <:#240,9360>68 34 80 8 7999 1342177280 "static" "" 0 
  203.  
  204. <:#480,9360>7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0 
  205.  
  206. <:#240,9360>7 16 107 8 8007 1342177280 "static" "" 0 
  207.  
  208. <:#240,9360>END DIALOG
  209.  
  210.  
  211. >
  212.  
  213. [Embedded]
  214. 00004139
  215. >
  216. [macsum] 6
  217. execsuite 0 0 5 2
  218. tryit 531 2 1 36
  219. writeprofile 612 2 1 41
  220. getprofile 686 1 2 45
  221. missouri 860 1 2 53
  222. findapp 1017 0 -1 64
  223. [macse]
  224. 14 execsuite
  225. 7 "wmail.exe"
  226. 8 1
  227. 7 "cc:Mail for Windows"
  228. 8 2
  229. 7 "c:\ccmail"
  230. 8 3
  231. 0 32 2
  232. 0 1032 "{2}"
  233. 13
  234. 11 00000161
  235. 0 38 "{2}"
  236. 0 1031 "{2}"
  237. 5 1
  238. 15
  239. 9
  240. 5 0
  241. 0 781 "{3}"
  242. 13
  243. 18 0
  244. 11 00000262
  245. 16 tryit "" "{1}"
  246. 13
  247. 5 31
  248. 18 3
  249. 11 00000262
  250. 5 1
  251. 15
  252. 9
  253. 16 getprofile "{2}"
  254. 13
  255. 16 tryit [X] "{1}"
  256. 13
  257. 5 31
  258. 18 3
  259. 11 00000348
  260. 5 1
  261. 15
  262. 9
  263. 16 missouri "{1}"
  264. 13
  265. 0 805 &4 [X]
  266. 13
  267. 5 0
  268. 18 1
  269. 11 00000519
  270. 16 tryit "{4}" "{1}"
  271. 13
  272. 5 31
  273. 18 3
  274. 11 00000506
  275. 16 writeprofile "{4}" "{2}"
  276. 10 00000519
  277. 10 00000348
  278. 6 0
  279. 15
  280. 9
  281. 14 tryit
  282. 0 781 "{0}"
  283. 0 16 "{0}" "{1}"
  284. 13
  285. 0 22 [X] ""
  286. 13
  287. 15
  288. 9
  289. 6 2
  290. 15
  291. 9
  292. 14 writeprofile
  293. 0 287 "LotusApps" "{1}" "{0}" "amipro2.ini"
  294. 6 2
  295. 15
  296. 9
  297. 14 getprofile
  298. 0 286 "LotusApps" "{0}" "amipro2.ini"
  299. 13
  300. 0 805 &2 [X]
  301. 13
  302. 7 ""
  303. 18 1
  304. 11 00000113
  305. 6 2
  306. 15
  307. 9
  308. 0 286 "LotusApps" "{0}" "amipro.ini"
  309. 13
  310. 15
  311. 9
  312. 6 1
  313. 15
  314. 9
  315. 14 missouri
  316. 0 31 9001 "*.exe"
  317. 0 31 8007 "{0}"
  318. 0 26 "." "findapp"
  319. 13
  320. 0 805 &2 [X]
  321. 13
  322. 5 1
  323. 18 1
  324. 11 00000127
  325. 5 0
  326. 15
  327. 9
  328. 0 290
  329. 13
  330. 15
  331. 9
  332. 6 1
  333. 15
  334. 9
  335. DIALOG findapp
  336. -2134376448 7 70 35 200 97 "" "" "Find Application" 
  337. FONT 8 "Helv" 
  338. 7 34 59 8 1000 1342177280 "static" "&Program path:" 0 
  339. 6 45 60 44 9001 1352728579 "listbox" "" 0 
  340. 155 5 40 14 1 1342373889 "button" "OK" 0 
  341. 155 21 40 14 2 1342373888 "button" "Cancel" 0 
  342. 68 34 80 8 7999 1342177280 "static" "" 0 
  343. 7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0 
  344. 7 16 107 8 8007 1342177280 "static" "" 0 
  345. 00004164
  346.