RESOURCES
Update an item in STR# resource
Try
'======================
'-- update resources --
'======================
LOCAL FN upDateResources(resID,theTXT$)
DIM hndl&
DIM osErr
hndl& = FN GETRESOURCE (_"STR#",resID)
LONG IF hndl&
osErr = FN HNOPURGE(hndl&)
DEF REMOVESTR (hndl&,1)
DEF APNDSTR (theTXT$, hndl&)
CALL CHANGEDRESOURCE (hndl&)
CALL CLOSERESFILE(hndl&)
CALL RELEASERESOURCE (hndl&)
END IF
END FN
If you use PGPro, try page 193 of the PGPro manual
|