UpdateResource ByteArray Größe

[Sir Rufo]

Hat zwar jetzt nicht direkt was mit der Frage zu tun, aber das schmerzt in den Augen.

Bitte so, dann funktioniert das auch, wie du dir das gedacht hattest (im Fehlerfall)

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var bArray: Array of byte;
    FileStream: TFileStream;
    fSize: integer;
begin
  FileStream := TFileStream.Create(Edit1.Text, fmOpenRead);
  try
    fSize := FileStream.Size;
    setLength(bArray, fSize);
    FileStream.seek(0,soFromBeginning);
    FileStream.ReadBuffer(bArray[0], fSize);
  finally
    FileStream.Free;
  end

  ImportResource('Test.exe', 'TEST', bArray, fSize);

end;