FB II Compiler

PG PRO

Debugging

Memory

System

Mathematics

Resources

Disk I/O

Windows

Controls

Menus

Mouse

Keyboard

Text

Fonts

Drawing

Sound

Clipboard

Printing

Communication

ASM

Made with FB

RESOURCES

Delete resources


The following is what I use to remove TEXT resources, hope this gives you the idea of what to do.
LOCAL FN clearResource
  hndl& = FN GETRESOURCE(_"STR#",200)             'get a STR# list handle
  LONG IF hndl& <>_nil                            'got a handle
    CALL RMVERESOURCE(hndl&)                      'empty list of strings
    hndl& = _nil                                  'make it nil handle
    hndl& = FN NEWHANDLE(2)                       'make two byte STR# list
    LONG IF hndl& <> _nil                         'got a handle again
      POKE WORD [hndl&], 0                        'set total STR#'s to zero
      CALL ADDRESOURCE(hndl&,_"STR#",200,"")      'add to resources
      DEF APNDSTR("Empty list",hndl&)             'then append "Empty list"
      CALL CHANGEDRESOURCE(hndl&)                 'mark resource changed
      CALL WRITERESOURCE(hndl&)                   'write to resources
    END IF                                        '{END IF hndl&}
  END IF                                          '{END IF hndl&}
END FN
Chris Wyatt