mainunit.pas

加壳软件,自己练习用的!功能有使用次数和时间限制!没有进行区段合并!对OEP进行了加密处理!

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, EncryptUnit, Grids;

type
  TForm1 = class(TForm)
    EditFileName: TEdit;
    BtnBrowse: TButton;
    Button2: TButton;
    Button3: TButton;
    StatusBar1: TStatusBar;
    Memo1: TMemo;
    StringGrid1: TStringGrid;
    procedure BtnBrowseClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FileName: string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BtnBrowseClick(Sender: TObject);
begin
  with TOpenDialog.Create(Self) do
  try
    Filter := '可执行文件 (*.exe)|*.exe';
    if Execute then
    begin
      EditFileName.Text := FileName;
    end;
  finally
    Free;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  FileName := Trim(EditFileName.Text);
  Encrypt(Handle, FileName,'1', False);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  CLOSE;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.StringGrid1.Cells[0, 0] := '节点表';
  Form1.StringGrid1.Cells[1, 0] := '虚拟地址';
  Form1.StringGrid1.Cells[2, 0] := 'R 大小';
  Form1.StringGrid1.Cells[3, 0] := '标志';
end;

end.