zbprealert.pas

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

unit ZBPreAlert;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TPreAlertfrm=class(TForm)
    RxGradientCaption1: TRxGradientCaption;
    ListView1: TListView;
    Button3: TBitBtn;
    Button4: TBitBtn;
    Button5: TBitBtn;
    Button6: TBitBtn;
    Button7: TBitBtn;
    Button8: TBitBtn;
    Button9: TBitBtn;
    ListView2: TListView;
    Label1: TLabel;
    ImageList1: TImageList;
    ImageList2: TImageList;
    Button1: TBitBtn;
    Label2: TLabel;
    ListView3: TListView;
    Button2: TBitBtn;
    Button10: TBitBtn;
    BitBtn1: TBitBtn;
    OFFS_0328: N.A.;
    procedure Button5Click(Sender : TObject);
    procedure Button6Click(Sender : TObject);
    procedure Button7Click(Sender : TObject);
    procedure ListView1Change(Sender : TObject);
    procedure ListView2Change(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure Button8Click(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure Button9Click(Sender : TObject);
    procedure Button3Click(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure FormKeyPress(Sender : TObject);
    procedure ListView3Click(Sender : TObject);
    procedure ListView3Change(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure FormActivate(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure Button10Click(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure _PROC_0064DF84(Sender : TObject);
    procedure _PROC_0064E2D8(Sender : TObject);
    procedure _PROC_0064E4EF(Sender : TObject);
    procedure _PROC_0064EDE8(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  PreAlertfrm: TPreAlertfrm;

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

implementation

{$R *.DFM}

procedure TPreAlertfrm.Button5Click(Sender : TObject);
begin
(*

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0064DDBC   E8FB82E0FF             call    004560BC
0064DDC1   C3                     ret

*)
end;

procedure TPreAlertfrm.Button6Click(Sender : TObject);
begin
(*
0064DDC4   55                     push    ebp
0064DDC5   8BEC                   mov     ebp, esp
0064DDC7   6A00                   push    $00
0064DDC9   6A00                   push    $00
0064DDCB   6A00                   push    $00
0064DDCD   53                     push    ebx
0064DDCE   56                     push    esi
0064DDCF   57                     push    edi
0064DDD0   8BF0                   mov     esi, eax

* Reference to pointer to GlobalVar_0078CECC
|
0064DDD2   8B3D50D37700           mov     edi, [$0077D350]
0064DDD8   33C0                   xor     eax, eax
0064DDDA   55                     push    ebp

* Possible String Reference to: '楸Z