coffheaderform.pas

来自「學習資料網上下載」· PAS 代码 · 共 58 行

unit COFFHeaderForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  PEHeaderForm, ComCtrls;

type
  TfmCOFFHeader = class(TfmPEHeader)
  private
  protected
    procedure SetObject(const Value: TObject); override;
  public
    { Public declarations }
  end;

var
  fmCOFFHeader: TfmCOFFHeader;

implementation

resourcestring
  s_Machine = 'Architecture type of type of the computer';
  s_NumberOfSections = 'Specifies the number of sections';
  s_TimeDateStamp = 'Date file was created by the linker';
  s_PointerToSymbolTable = 'Offset of symbol table';
  s_NumberOfSymbols = 'Number of symbols in the symbol table';
  s_SizeOfOptionalHeader = 'Size of the optional header';
  s_Characteristics = 'Image characteristic';


procedure TfmCOFFHeader.SetObject(const Value: TObject);
begin
  inherited;

  ListView1.Items.BeginUpdate;
  try
    ListView1.Items.Clear;
    with PEModule.COFFHeader do
    begin
      AddEntry ('Machine', Machine, s_Machine);
      AddEntry ('NumberOfSections', NumberOfSections, s_NumberOfSections);
      AddEntry ('TimeDateStamp', TimeDateStamp, s_TimeDateStamp);
      AddEntry ('PointerToSymbolTable', PointerToSymbolTable, s_PointerToSymbolTable);
      AddEntry ('NumberOfSymbols', NumberOfSymbols, s_NumberOfSymbols);
      AddEntry ('SizeOfOptionalHeader', SizeOfOptionalHeader, s_SizeOfOptionalHeader);
      AddEntry ('Characteristics', Characteristics, s_Characteristics);
    end
  finally
    ListView1.Items.EndUpdate
  end
end;

{$R *.DFM}

end.