registgw.pas

一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.

unit RegistGW;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmRegist=class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    XPMenu1: TXPMenu;
    mIdTCPClient: TIdTCPClient;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Image8: TImage;
    Label2: TLabel;
    Image9: TImage;
    Label3: TLabel;
    OFFS_033C: N.A.;
    OFFS_0334: N.A.;
    procedure FormCreate(Sender : TObject);
    procedure Image4Click(Sender : TObject);
    procedure Image6Click(Sender : TObject);
    procedure Image7Click(Sender : TObject);
    procedure Image8Click(Sender : TObject);
    procedure CheckBox1Click(Sender : TObject);
    procedure Image5Click(Sender : TObject);
    procedure Image9Click(Sender : TObject);
    procedure _PROC_0065908D(Sender : TObject);
    procedure _PROC_00659594(Sender : TObject);
    procedure _PROC_006595B1(Sender : TObject);
    procedure _PROC_0065A169(Sender : TObject);
    procedure Proc_006590A8(Sender : TObject);
    procedure Proc_00659579(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmRegist: TfrmRegist;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TfrmRegist.FormCreate(Sender : TObject);
begin
(*
00658D14   55                     push    ebp
00658D15   8BEC                   mov     ebp, esp
00658D17   33C9                   xor     ecx, ecx
00658D19   51                     push    ecx
00658D1A   51                     push    ecx
00658D1B   51                     push    ecx
00658D1C   51                     push    ecx
00658D1D   53                     push    ebx
00658D1E   56                     push    esi
00658D1F   57                     push    edi
00658D20   8BD8                   mov     ebx, eax

* Reference to pointer to GlobalVar_00799270
|
00658D22   8B35ECD27700           mov     esi, [$0077D2EC]
00658D28   33C0                   xor     eax, eax
00658D2A   55                     push    ebp

* Possible String Reference to: '閨