dgwatclr.pas

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

unit DGWatClr;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmWatClr=class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender : TObject);
    procedure FormPaint(Sender : TObject);
    procedure _PROC_006B4145(Sender : TObject);
    procedure _PROC_006B4174(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmWatClr: TFrmWatClr;

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

implementation

{$R *.DFM}

procedure TFrmWatClr.Timer1Timer(Sender : TObject);
begin
(*
006B3F80   53                     push    ebx
006B3F81   8BD8                   mov     ebx, eax
006B3F83   33D2                   xor     edx, edx

* Reference to control TFrmWatClr.Timer1 : TTimer
|
006B3F85   8B83D0020000           mov     eax, [ebx+$02D0]

* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
006B3F8B   E840B5DAFF             call    0045F4D0

* Reference to field TFrmWatClr.ModalResult : TModalResult
|
006B3F90   C7833402000001000000   mov     dword ptr [ebx+$0234], $00000001
006B3F9A   5B                     pop     ebx
006B3F9B   C3                     ret

*)
end;

procedure TFrmWatClr.FormPaint(Sender : TObject);
begin
(*
006B3F9C   55                     push    ebp
006B3F9D   8BEC                   mov     ebp, esp
006B3F9F   83C4E0                 add     esp, -$20
006B3FA2   53                     push    ebx
006B3FA3   56                     push    esi
006B3FA4   57                     push    edi
006B3FA5   33C9                   xor     ecx, ecx
006B3FA7   894DF4                 mov     [ebp-$0C], ecx
006B3FAA   8BF0                   mov     esi, eax
006B3FAC   33C0                   xor     eax, eax
006B3FAE   55                     push    ebp
006B3FAF   68F2406B00             push    $006B40F2

***** TRY
|
006B3FB4   64FF30                 push    dword ptr fs:[eax]
006B3FB7   648920                 mov     fs:[eax], esp
006B3FBA   B201                   mov     dl, $01

* Reference to class TBitmap32
|
006B3FBC   A1BC925200             mov     eax, dword ptr [$005292BC]

* Reference to : TBitmap32._PROC_005297DC()
|
006B3FC1   E81658E7FF             call    005297DC
006B3FC6   8BD8                   mov     ebx, eax
006B3FC8   8BC6                   mov     eax, esi

* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
006B3FCA   E8E554D8FF             call    004394B4
006B3FCF   8BD0                   mov     edx, eax
006B3FD1   8BC3                   mov     eax, ebx

* Reference to : TBitmap32._PROC_005297D0()
|
006B3FD3   E8F857E7FF             call    005297D0
006B3FD8   8BC6                   mov     eax, esi

* Reference to: controls.TControl.GetClientHeight(TControl):Integer;
|
006B3FDA   E81955D8FF             call    004394F8
006B3FDF   8BD0                   mov     edx, eax
006B3FE1   8BC3                   mov     eax, ebx

* Reference to : TBitmap32._PROC_00529778()
|
006B3FE3   E89057E7FF             call    00529778

* Possible String Reference to: '楷体_GB2312'
|
006B3FE8   BA08416B00             mov     edx, $006B4108

* Reference to field TBitmap32.OFFS_0078
|
006B3FED   8B4378                 mov     eax, [ebx+$78]

* Reference to: graphics.TFont.SetName(TFont;TFontName);
|
006B3FF0   E8EFA0D6FF             call    0041E0E4
006B3FF5   BA12000000             mov     edx, $00000012

* Reference to field TBitmap32.OFFS_0078
|
006B3FFA   8B4378                 mov     eax, [ebx+$78]

* Reference to: graphics.TFont.SetSize(TFont;Integer);
|
006B3FFD   E85AA1D6FF             call    0041E15C
006B4002   8D45F4                 lea     eax, [ebp-$0C]

* Possible String Reference to: '正在等待服务器初始化,5分钟后自动重