StringFileInfo/VarFileInfo für Dateiversion schreiben

[Mazel]

Hallo und danke für deine Antwort.

Mit GetMem arbeiten, ok. Das heißt in dem Fall für jeden Block den ich hizufüge oder von vorn herein soviel reservieren, wie cih für alles benötige, was zur Folge habe muss, dass ich vorher die Größe brauch.

Hast du eventuell ein Beispiel?

Ich habe mir gestern eine Variante überlegt, die funktioniert aber nicht "das Wahre" ist. Ich habe aus ResHacker eine binäre Datei erstellt die eine vollständige VERSIONINFO Struktur mit allen unterstrukturen enthält. Diese lade über ein FileStream in mein Programm und übergebe diese dann per UpdateResource an die jeweilige Anwendung. Nachteil ist aber dabei, dass ich danach wieder die Werte ändern muss und so wieder vor dem Problem stehe. Hier mal der Code dazu, eventuell kann man mir daraus auch einen weiteren Tipp geben.

Delphi-Quellcode:

{--[AddResourceStruture]-------------------------------------------------------}

function AddResourceStruture(ExecutableFile: String): Boolean;
var
 FileStream     : TFileStream;
 ResourceHandle : THandle;
 DataLength     : Cardinal;
 Data           : Pointer;
 Path           : String;

begin
 Result := False;
 Path := ExtractFilePath(ParamStr(0));
 if not EndsWith(Path, '\') then Path := Path + '\';
 Path := Path + 'Resource\VSResource.bin';
 ResourceHandle := BeginUpdateResource(PChar(ExecutableFile), False);
 if (ResourceHandle <> 0) then
  begin
   FileStream := TFileStream.Create(Path, fmOpenRead);
   FileStream.Seek(0, soFromBeginning);
   DataLength := FileStream.Size;
   try
    GetMem(Data, DataLength);
    FileStream.Read(Data^, DataLength);
    FileStream.Free;
    Result := True;
    // for german language only - 1031
    if not UpdateResource(ResourceHandle, RT_VERSION, MakeIntResource(1), 1031, Data, DataLength) then Result := False;
    if not EndUpdateResource(ResourceHandle, False) then Result := False;
   finally
    FreeMem(Data);
   end;
   ShowMessage(SysErrorMessage(GetLastError));
  end;
end;

Gruß
Mazel