TXCoffResourceWriter

type TXCoffResourceWriter = class(TCoffResourceWriter)

protected

  fResStrTable: TResStringTable;

  fCurOfs: LongWord;

  fDataAlignment: Integer;

  function NextAligned();

  procedure Align();

  function GetFixedCoffHeader; override;

  procedure WriteEmptySectionHeader(); override;

  procedure FixSectionHeader(); override;

  function PrescanNode(); override;

  procedure PrescanResourceTree; override;

  procedure WriteNodeInfos();

  procedure WriteNodeInfo();

  procedure WriteSubNodes();

  procedure WriteResStringTable(); override;

  procedure WriteDataSymbol();

  procedure WriteSymbolTable(); override;

  procedure WriteResHeader();

  procedure Write(); override;

public

  constructor Create; override;

  destructor Destroy; override;

end;

TXCoffResourceWriter

TCoffResourceWriter

TAbstractResourceWriter

TObject