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