exe-Datei wird nicht mehr kleiner - Ressourcen

[SleepyMaster]

@Dax: Ich kopiere die Ressourcen Dateien zur Laufzeit in die exe

@Luckie:

Delphi-Quellcode:

var
  hUpdate: THandle;
begin
  hUpdate:= BeginUpdateResource(pchar(ModuleFileName), false);
  if hUpdate <> INVALID_HANDLE_VALUE then
    begin
    UpdateResource(hUpdate, pchar(ResType), pchar(RessourceFileName), 0, nil, 0);
    EndUpdateResource(hUpdate, false);
    end