umain.pas

这个小软件通过在可执行文件(.exe)的尾部添加一个新节(Section)

{******************************************************************************}
{ Author:    Liwuyue                                                           }
{ Email:     [e-mail]                                              }
{ Home page: http://www.programmerlife.com                                     }
{ built:     2005-03-08                                                        }
{******************************************************************************}
unit uMain;

interface

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

type
  TMainFrm = class(TForm)
    GroupBox1: TGroupBox;
    EdtFileName: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    EdtPwd: TMaskEdit;
    EdtRptPwd: TMaskEdit;
    ChxBackup: TCheckBox;
    BtnEncrypt: TButton;
    BtnAbout: TButton;
    BtnClose: TButton;
    BtnBrowse: TButton;
    procedure FormCreate(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);
    procedure BtnBrowseClick(Sender: TObject);
    procedure BtnEncryptClick(Sender: TObject);
    procedure BtnAboutClick(Sender: TObject);
  private
    function CheckInput(var FileName,Password:string; var Backup:Boolean):Boolean;
    procedure WMSysCommand(var Message:TMessage);message WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainFrm: TMainFrm;

implementation

{$R *.dfm}

uses
  uEncrypt, uAbout;

const
  IDM_ABOUT=100;

procedure TMainFrm.WMSysCommand(var Message: TMessage);
begin
  if Message.WParam=IDM_ABOUT then
    BtnAbout.Click
  else
    inherited;
end;

procedure TMainFrm.FormCreate(Sender: TObject);
var
  hSysMenu:HMENU;
begin
  hSysMenu:=GetSystemMenu(Handle,False);
  AppendMenu(hSysMenu,MF_SEPARATOR,0,nil);
  AppendMenu(hSysMenu,MF_STRING,IDM_ABOUT,'&About PE Encrypt v1.0');
  SetWindowLong(BtnBrowse.Handle,GWL_STYLE,GetWindowLong(BtnBrowse.handle,GWL_STYLE) or BS_FLAT);
  SetWindowLong(BtnEncrypt.Handle,GWL_STYLE,GetWindowLong(BtnEncrypt.handle,GWL_STYLE) or BS_FLAT);
  SetWindowLong(BtnAbout.Handle,GWL_STYLE,GetWindowLong(BtnAbout.handle,GWL_STYLE) or BS_FLAT);
  SetWindowLong(BtnClose.Handle,GWL_STYLE,GetWindowLong(BtnClose.handle,GWL_STYLE) or BS_FLAT);
end;

procedure TMainFrm.BtnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TMainFrm.BtnBrowseClick(Sender: TObject);
begin
  with TOpenDialog.Create(Self) do
  try
    Filter:='