Example #6: Adding a new resources to a file

We can add new resources to an existing file using TPJResourceFile’s AddEntry method. Each new resource must be uniquely named within the resource file (i.e. its combined resource type, name and language id must be unique), otherwise an exception will be raised.

There are two versions of AddEntry. The first simply adds a new empty resource with zeroed header properties while the second version adds a renamed copy of an existing resource. Both versions of AddEntry take an optional language identifier. If this is not specified then the resource is language neutral (LanguageID = 0).

The following code snippet adds four new resource entries to an existing resource file object:

1. An empty, language neutral, RCDATA resource with ordinal name 42. The entry’s MemoryFlags property is then set to “Discardable” and its data is set to 'Hello World'.
2. A new language neutral RCDATA resource that is a copy of the first entry but named 'FORTYTWO'. This resource has the same MemoryFlags and Data as the first entry.
3. A new RCDATA resource also named 'FORTYTWO' but with a language id of $0809. Again this resource is a copy of the first one.
4. A new empty RCDATA resource named 42 with language id of $0809.

var
  ResFile: TPJResourceFile;
  Entry1, Entry2, Entry3, Entry4: TPJResourceEntry;
const
  s42 = 'FORTYTWO';
  ord42 = MakeIntResource(42);
  sHello = 'Hello World';
begin
  ...
  // Assume ResFile references a valid object

  // Create 1st entry: empty
  Entry1 := fResFile.AddEntry(RT_RCDATA, ord42);
  // now set mem flags and data
  Entry1.MemoryFlags := RES_MF_DISCARDABLE;
  Entry1.Data.WriteBuffer(Pointer(sHello)^, Length(sHello) * SizeOf(Char));
  Entry1.Data.Position := 0;

  // Create 2nd entry as copy of entry 1
  Entry2 := fResFile.AddEntry(Entry1, s42);

  // Create 3rd entry as copy of entry 1 with language id of $0809
  Entry3 := fResFile.AddEntry(Entry1, s42, $0809);

  // Create 4th entry: empty with language id of $0809
  Entry4 := fResFile.AddEntry(RT_RCDATA, ord42, $0809);

  // Do something with the entries
  ...
end;

The entries we have created have the following properties:

Links:

• Next Example
• Previous Example
• Back to List of Examples