setheader.pas

演示把几个文件打包成一个文件并且释放

unit SetHeader;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Spin, Buttons;

type
  TfrmPakheader = class(TForm)
    edtAuthor: TEdit;
    btnOK: TBitBtn;
    btnAbort: TBitBtn;
    spinVerMajor: TSpinEdit;
    spinVerMinor: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPakheader: TfrmPakheader;

implementation

{$R *.DFM}

end.