unit1.pas

很好的文章,用于共享软件的注册保护.文章从调用注册流程、验证注册密钥、存储注册验证结果三个方面举例说明了软件正确的注册验证方式

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    edt1: TEdit;
    dlgOpen1: TOpenDialog;
    lbl1: TLabel;
    procedure btn3Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    dir:string;
    lst1:TStringList;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  if dlgOpen1.Execute() then
  begin
     dir:=ExtractFilePath(dlgOpen1.FileName);
     edt1.Text:=dir;
     btn2.Enabled:=True;
     try
     lst1.LoadFromFile(dir+'Client.config');
     except
       ShowMessage('打开文件失败！');
     end;
  end;
end;

procedure TForm1.btn2Click(Sender: TObject);
var i:Integer;
begin
  for I := 0 to lst1.Count - 1 do
  begin
    if Trim(lst1.Strings[i])=Trim('    <add key="SingleInstance" value="false"/>') then
    begin
      MessageBox(Handle,'你电脑上的飞信已破解！','weiny--飞信破解软件',64+0);
      Break;
    end;
    
    if Trim(lst1.Strings[i])='</AppSettings>' then
      begin
        lst1.Insert(i-1,'    <add key="SingleInstance" value="false"/>');
        try
        lst1.SaveToFile(dir+'Client.config');
        MessageBox(Handle,'破解成功！','weiny--飞信破解软件',64+0);
        except
          ShowMessage('保存失败');
        end;
        Break;
      end;
  end;

end;

procedure TForm1.btn3Click(Sender: TObject);
begin
  Close;  
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  lst1.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  lst1:=TStringList.Create;
  lst1.Clear;
end;

end.