Resourcendatei zur Laufzeit erzeugen und an eine bestehende

[DeddyH]

UpdateResource(h,RT_RCDATA, 'text', 'RCDATA','C:\textfile.txt',340); Du müsstest die einzufügenden Ressourcen ja erst einmal in den Speicher laden (einen Dateinamen anzugeben macht ja wenig Sinn). Außerdem steht der 4. Parameter für die Sprache, da passt 'RCDATA' nicht . Das Folgende hab ich nicht getestet, hoffe aber, dass es so geht.

Delphi-Quellcode:

var sl: TStringList;
    h: THandle;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('C:\textfile.txt');
    h := BeginUpdateResource(PChar(Dateiname),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;