Grafik in Resource zur Laufzeit ersetzen...

[FriFra]

Ich will zur Laufzeit eine Grafik in einer Bitmap Resource ersetzen. Ich will dabei NICHT die Datei ändern...
Wie das ganze mit Strings funktionieret weiß ich, aber mit Grafiken hab ich das noch nicht hinbekommen...
Procedure zum überschreiben von Strings:

Delphi-Quellcode:

procedure HookResourceString(rs: PResStringRec; newStr: PChar);
  var
    oldprotect: DWORD;
  begin
    VirtualProtect(rs, SizeOf(rs^), PAGE_EXECUTE_READWRITE, @oldProtect);
    rs^.Identifier := Integer(newStr);
    VirtualProtect(rs, SizeOf(rs^), oldProtect, @oldProtect);
  end;