|
Post by George on Apr 20, 2019 10:13:34 GMT -5
MUEH: Glad it helps.
George
|
|
|
Post by mueh on Apr 29, 2019 11:47:25 GMT -5
Hi George ! A small correction is needed to delete the old UND*.tmp when -TITLE is specified . Increased length from 4 to 5 since 10.2. is now 1 Byte longer than 8.5. ( just cosmetic ) Thanks
THREAD FUNCTION InitASynchStuffThread(BYVAL pData AS LONG) AS LONG' Do the low priority startup stuff
REGISTER i AS LONG
REGISTER j AS LONG
LOCAL fn, kfn, txt1, Title AS STRING, FD AS DIRDATA, Expiry AS LONG
'----- If only one instance running, do UNDO file cleanup
Title = IIF$(ISNULL(Env.Title), "SPFLite(v" + ENV.PgmVers + ")", "SPFLite(" + ENV.Title + ")")
IF ISFALSE sFindWindow(mid$(Title,1,9+5)) ' If we're not running somewhere else
' IF ISFALSE sFindWindow("SPFLite(v" + LEFT$(ENV.PgmVers, 4)) THEN ' If we're not running somewhere else
fn = sGetWindowsTempDir() ' Get the temp directory
fn += "UND*.TMP" ' Make a generic name
|
|
|
Post by George on Apr 30, 2019 10:22:32 GMT -5
MUEH: Thanks, already corrected. That wasn't the only other places that needed a tweak as well.
George
|
|