home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / SMARTPIC.SMM < prev    next >
INI File  |  1992-03-31  |  5KB  |  327 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. [lang]
  14.     1
  15. [desc]
  16.     Quick access to Lotus SmartPics Sampler. Assign to the custom icon provided for direct access.
  17.     Lotus WPD Marketing
  18.     Beginner
  19.     Exec, AppMinimize
  20.     
  21.     696111282
  22.     7
  23.     681240805
  24.     12
  25.     2
  26.     0
  27.     0
  28.     0
  29.     0
  30.     
  31.     
  32.     
  33.     
  34.     
  35.     
  36.     0
  37. [fopts]
  38.     0
  39.     1
  40.     0
  41.     0
  42. [lnopts]
  43.     2
  44.     Body Text
  45.     1
  46. [docopts]
  47.     5
  48.     2
  49. [l1]
  50.     0
  51. [pg]
  52.     2
  53.     66 0 42 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
  54.     73 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
  55. [edoc]
  56. <:#216,10080>Macro by <+!>Charlie Pappas<-!>
  57.  
  58. <:#216,10080>Editted by <+!>Mike Jones<-!>
  59.  
  60. <:#202,10080>
  61.  
  62. <:#202,10080>function execsuite()
  63.  
  64. <:#202,10080>app = "smartpic.exe"
  65.  
  66. <:#202,10080>appname = "SmartPics Sampler"
  67.  
  68. <:#202,10080>defdir = "c:\smartpic"
  69.  
  70. <:#202,10080>ignorekeyboard(1)
  71.  
  72. <:#202,10080>declare missouri(xapp)
  73.  
  74. <:#202,10080>declare getprofile(xappname)
  75.  
  76. <:#202,10080>declare writeprofile(path, xappname)
  77.  
  78. <:#202,10080>declare tryit(path, xapp)
  79.  
  80. <:#202,10080>defstr path;
  81.  
  82. <:#202,10080>
  83.  
  84. <:#202,10080>if appisrunning(appname)
  85.  
  86. <:#202,10080>    activateapp(appname)
  87.  
  88. <:#202,10080>    apprestore(appname)
  89.  
  90. <:#202,10080>    return 1
  91.  
  92. <:#202,10080>endif
  93.  
  94. <:#202,10080>if 0 = doschdir(defdir)
  95.  
  96. <:#202,10080>    if tryit("", app) <;> 31
  97.  
  98. <:#202,10080>        return 1
  99.  
  100. <:#202,10080>    endif
  101.  
  102. <:#202,10080>endif
  103.  
  104. <:#202,10080>if tryit(getprofile(appname), app) <;> 31
  105.  
  106. <:#202,10080>    return 1
  107.  
  108. <:#202,10080>endif
  109.  
  110. <:#202,10080>again:
  111.  
  112. <:#202,10080>if assign(&path, missouri(app)) <<<;> 0
  113.  
  114. <:#202,10080>    if tryit(path, app) <;> 31
  115.  
  116. <:#202,10080>        writeprofile(path, appname)
  117.  
  118. <:#202,10080>    else
  119.  
  120. <:#202,10080>        goto again
  121.  
  122. <:#202,10080>    endif
  123.  
  124. <:#202,10080>endif
  125.  
  126. <:#202,10080>end function
  127.  
  128. <:#202,10080>
  129.  
  130. <:#202,10080>function tryit(path, app)
  131.  
  132. <:#202,10080>doschdir(path)
  133.  
  134. <:#202,10080>return exec(strcat$(path, app), "")
  135.  
  136. <:#202,10080>end function
  137.  
  138. <:#202,10080>
  139.  
  140. <:#202,10080>function writeprofile(path, appname)
  141.  
  142. <:#202,10080>writeprofilestring("LotusApps", appname, path, "amipro.ini")
  143.  
  144. <:#202,10080>end function
  145.  
  146. <:#202,10080>
  147.  
  148. <:#202,10080>function getprofile(appname)
  149.  
  150. <:#202,10080>return getprofilestring$("LotusApps", appname, "amipro.ini")
  151.  
  152. <:#202,10080>end function
  153.  
  154. <:#202,10080>
  155.  
  156. <:#202,10080>function missouri(app)
  157.  
  158. <:#202,10080>defstr box;
  159.  
  160. <:#202,10080>filledit(9001, "*.exe")
  161.  
  162. <:#202,10080>filledit(8007, app)
  163.  
  164. <:#202,10080>if assign(&box, dialogbox(".", "findapp")) <<<;> 1
  165.  
  166. <:#202,10080>    return 0
  167.  
  168. <:#202,10080>endif
  169.  
  170. <:#202,10080>return getcurrentdir$()
  171.  
  172. <:#202,10080>end function
  173.  
  174. <:#202,10080>
  175.  
  176. <:#202,10080>
  177.  
  178. <:#202,10080>DIALOG findapp
  179.  
  180. <:#202,10080>-2134376448 7 70 35 200 97 "" "" "Find Application"
  181.  
  182. <:#202,10080>FONT 8 "Helv"
  183.  
  184. <:#202,10080>7 34 59 8 1000 1342177280 "static" "&Program path:" 0 
  185.  
  186. <:#202,10080>6 45 60 44 9001 1352728579 "listbox" "" 0 
  187.  
  188. <:#202,10080>155 5 40 14 1 1342373889 "button" "OK" 0 
  189.  
  190. <:#202,10080>155 21 40 14 2 1342373888 "button" "Cancel" 0 
  191.  
  192. <:#202,10080>68 34 80 8 7999 1342177280 "static" "" 0 
  193.  
  194. <:#202,10080>7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0 
  195.  
  196. <:#202,10080>7 16 107 8 8007 1342177280 "static" "" 0 
  197.  
  198. <:#202,10080>END DIALOG
  199.  
  200. <:#202,10080>
  201.  
  202. >
  203.  
  204. [Embedded]
  205. 00003438
  206. >
  207. [macsum] 6
  208. execsuite 0 0 5 3
  209. tryit 534 2 1 37
  210. writeprofile 615 2 1 42
  211. getprofile 688 1 1 46
  212. missouri 764 1 2 50
  213. findapp 921 0 -1 61
  214. [macse]
  215. 14 execsuite
  216. 7 "smartpic.exe"
  217. 8 1
  218. 7 "SmartPics Sampler"
  219. 8 2
  220. 7 "c:\smartpic"
  221. 8 3
  222. 0 32 1
  223. 0 1032 "{2}"
  224. 13
  225. 11 00000164
  226. 0 38 "{2}"
  227. 0 1031 "{2}"
  228. 5 1
  229. 15
  230. 9
  231. 5 0
  232. 0 781 "{3}"
  233. 13
  234. 18 0
  235. 11 00000265
  236. 16 tryit "" "{1}"
  237. 13
  238. 5 31
  239. 18 3
  240. 11 00000265
  241. 5 1
  242. 15
  243. 9
  244. 16 getprofile "{2}"
  245. 13
  246. 16 tryit [X] "{1}"
  247. 13
  248. 5 31
  249. 18 3
  250. 11 00000351
  251. 5 1
  252. 15
  253. 9
  254. 16 missouri "{1}"
  255. 13
  256. 0 805 &4 [X]
  257. 13
  258. 5 0
  259. 18 1
  260. 11 00000522
  261. 16 tryit "{4}" "{1}"
  262. 13
  263. 5 31
  264. 18 3
  265. 11 00000509
  266. 16 writeprofile "{4}" "{2}"
  267. 10 00000522
  268. 10 00000351
  269. 6 0
  270. 15
  271. 9
  272. 14 tryit
  273. 0 781 "{0}"
  274. 0 16 "{0}" "{1}"
  275. 13
  276. 0 22 [X] ""
  277. 13
  278. 15
  279. 9
  280. 6 2
  281. 15
  282. 9
  283. 14 writeprofile
  284. 0 287 "LotusApps" "{1}" "{0}" "amipro.ini"
  285. 6 2
  286. 15
  287. 9
  288. 14 getprofile
  289. 0 286 "LotusApps" "{0}" "amipro.ini"
  290. 13
  291. 15
  292. 9
  293. 6 1
  294. 15
  295. 9
  296. 14 missouri
  297. 0 31 9001 "*.exe"
  298. 0 31 8007 "{0}"
  299. 0 26 "." "findapp"
  300. 13
  301. 0 805 &2 [X]
  302. 13
  303. 5 1
  304. 18 1
  305. 11 00000127
  306. 5 0
  307. 15
  308. 9
  309. 0 290
  310. 13
  311. 15
  312. 9
  313. 6 1
  314. 15
  315. 9
  316. DIALOG findapp
  317. -2134376448 7 70 35 200 97 "" "" "Find Application" 
  318. FONT 8 "Helv" 
  319. 7 34 59 8 1000 1342177280 "static" "&Program path:" 0 
  320. 6 45 60 44 9001 1352728579 "listbox" "" 0 
  321. 155 5 40 14 1 1342373889 "button" "OK" 0 
  322. 155 21 40 14 2 1342373888 "button" "Cancel" 0 
  323. 68 34 80 8 7999 1342177280 "static" "" 0 
  324. 7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0 
  325. 7 16 107 8 8007 1342177280 "static" "" 0 
  326. 00003463
  327.