Resourcendatei zur Laufzeit erzeugen und an eine bestehende

[napsterxx]

^^ Irgendwie nicht^^ bei dem Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringList;
    h: THandle;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('C:\main.exe');
    h := BeginUpdateResource(PChar(Application.ExeName),false);
    try
      UpdateResource(h,RT_RCDATA,'text',LANG_NEUTRAL,@sl.Text[1],Length(sl.Text));
    finally
      EndUpdateResource(h,false);
    end;
  finally
    FreeAndNil(sl);
  end;
end;

wird eine RCX16.tmp erzeugt ...^^