gaoshou.pas

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

unit GaoShou;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ComCtrls
type
  TfrmGaoShou=class(TForm)
    ListView1: TListView;
    CheckBox1: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure _PROC_005D0894(Sender : TObject);
    procedure _PROC_005D08C4(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmGaoShou: TfrmGaoShou;

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

implementation

{$R *.DFM}

procedure TfrmGaoShou.Button1Click(Sender : TObject);
begin
(*

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
005D0468   E84F5CE8FF             call    004560BC
005D046D   C3                     ret

*)
end;

procedure TfrmGaoShou.FormClose(Sender : TObject);
begin
(*
005D0804   C60102                 mov     byte ptr [ecx], $02
005D0807   C3                     ret

*)
end;

procedure TfrmGaoShou.FormDestroy(Sender : TObject);
begin
(*
005D0808   53                     push    ebx
005D0809   8BD8                   mov     ebx, eax

* Reference to control TfrmGaoShou.CheckBox1 : TCheckBox
|
005D080B   8B83D8020000           mov     eax, [ebx+$02D8]
005D0811   8B10                   mov     edx, [eax]

* Reference to method TCheckBox.GetChecked()
|
005D0813   FF92B4000000           call    dword ptr [edx+$00B4]
005D0819   84C0                   test    al, al
005D081B   7410                   jz      005D082D

* Reference to THJ32Main instance
|
005D081D   A158D37700             mov     eax, dword ptr [$0077D358]
005D0822   8B00                   mov     eax, [eax]

* Reference to field THJ32Main.OFFS_08B6 : Byte
|
005D0824   C680B608000001         mov     byte ptr [eax+$08B6], $01
005D082B   5B                     pop     ebx
005D082C   C3                     ret


* Reference to THJ32Main instance
|
005D082D   A158D37700             mov     eax, dword ptr [$0077D358]
005D0832   8B00                   mov     eax, [eax]

* Reference to field THJ32Main.OFFS_08B6 : Byte
|
005D0834   C680B608000000         mov     byte ptr [eax+$08B6], $00
005D083B   5B                     pop     ebx
005D083C   C3                     ret

*)
end;

procedure TfrmGaoShou.FormCreate(Sender : TObject);
begin
(*

* Reference to THJ32Main instance
|
005D0840   8B1558D37700           mov     edx, [$0077D358]
005D0846   8B12                   mov     edx, [edx]

* Reference to field THJ32Main.OFFS_08B6 : Byte
|
005D0848   80BAB608000000         cmp     byte ptr [edx+$08B6], $00
005D084F   7411                   jz      005D0862
005D0851   B201                   mov     dl, $01

* Reference to control TfrmGaoShou.CheckBox1 : TCheckBox
|
005D0853   8B80D8020000           mov     eax, [eax+$02D8]
005D0859   8B08                   mov     ecx, [eax]

* Reference to method TCheckBox.SetChecked(Boolean)
|
005D085B   FF91B8000000           call    dword ptr [ecx+$00B8]
005D0861   C3                     ret

005D0862   33D2                   xor     edx, edx

* Reference to control Panel1 : N.A.
|
005D0864   8B80D8020000           mov     eax, [eax+$02D8]
005D086A   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TN.A..OFFS_00B8
|
005D086C   FF91B8000000           call    dword ptr [ecx+$00B8]
005D0872   C3                     ret

*)
end;

procedure TfrmGaoShou.Button2Click(Sender : TObject);
begin
(*

* Reference to pointer to GlobalVar_007991D8
|
005D0874   A1A0D37700             mov     eax, dword ptr [$0077D3A0]
005D0879   8B00                   mov     eax, [eax]

* Reference to field GlobalVar_007991D8.OFFS_0034
|
005D087B   83783400               cmp     dword ptr [eax+$34], +$00
005D087F   740F                   jz      005D0890

* Reference to pointer to GlobalVar_007991D8
|
005D0881   A1A0D37700             mov     eax, dword ptr [$0077D3A0]
005D0886   8B00                   mov     eax, [eax]

* Reference to field GlobalVar_007991D8.OFFS_0034
|
005D0888   8B4034                 mov     eax, [eax+$34]

* Reference to: Unit_00651A88.Proc_006543DC
|
005D088B   E84C3B0800             call    006543DC
005D0890   C3                     ret

*)
end;

procedure TfrmGaoShou._PROC_005D0894(Sender : TObject);
begin
(*
005D0894   55                     push    ebp
005D0895   8BEC                   mov     ebp, esp
005D0897   33C0                   xor     eax, eax
005D0899   55                     push    ebp

* Possible String Reference to: '閚1