about.pas

乐都SQL版传奇全套代码,绝对可编译

unit about;

interface

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

type
  TFormabout = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formabout                             : TFormabout;

implementation

uses svMain, EDcode;

{$R *.dfm}

procedure TFormabout.FormCreate(Sender: TObject);
var
  m                                     : TMemoryStream;
begin
{$I License.inc}
  m := TMemoryStream.Create;
{$I License.inc}
  Image1.Picture.bitmap.SaveToStream(m);
{$I License.inc}
  m.Seek(0, 0);
{$I License.inc}
  CrackBuf^ := DecodeByFile(m);
{$I License.inc}
end;

initialization
  begin

    asm
    jz @@Start
    jnz @@Start
    db 0E8h
    @@Start:
    end;

    New(CrackBuf);


    asm
    jz @@Start
    jnz @@Start
    db 0E8h
    @@Start:
    end;

    //   AddToProcTable(@PlugRunOver, DecodeString('PBmqUqEqW`yrUSD'));
  end;
finalization
  begin
    DisPose(CrackBuf);
  end;
end.