dgwatcls.pas

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

unit Dgwatcls;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons
type
  TFrmWaitClose=class(TForm)
    StaticText1: TStaticText;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    stHint: TStaticText;
    TimerAlarm: TTimer;
    st2: TStaticText;
    GroupBox1: TGroupBox;
    StaticText3: TStaticText;
    StaticText2: TStaticText;
    procedure FormCreate(Sender : TObject);
    procedure TimerAlarmTimer(Sender : TObject);
    procedure _PROC_006A2389(Sender : TObject);
    procedure _PROC_006A23B8(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmWaitClose: TFrmWaitClose;

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

implementation

{$R *.DFM}

procedure TFrmWaitClose.FormCreate(Sender : TObject);
begin
(*
006A2284   53                     push    ebx
006A2285   8BD8                   mov     ebx, eax
006A2287   B201                   mov     dl, $01

* Reference to control TFrmWaitClose.TimerAlarm : TTimer
|
006A2289   8B83E0020000           mov     eax, [ebx+$02E0]

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

* Reference to field TFrmWaitClose.OFFS_02F8
|
006A2294   C783F80200001E000000   mov     dword ptr [ebx+$02F8], $0000001E
006A229E   5B                     pop     ebx
006A229F   C3                     ret

*)
end;

procedure TFrmWaitClose.TimerAlarmTimer(Sender : TObject);
begin
(*
006A22A0   55                     push    ebp
006A22A1   8BEC                   mov     ebp, esp
006A22A3   33C9                   xor     ecx, ecx
006A22A5   51                     push    ecx
006A22A6   51                     push    ecx
006A22A7   51                     push    ecx
006A22A8   51                     push    ecx
006A22A9   51                     push    ecx
006A22AA   53                     push    ebx
006A22AB   56                     push    esi
006A22AC   57                     push    edi
006A22AD   8BD8                   mov     ebx, eax
006A22AF   33C0                   xor     eax, eax
006A22B1   55                     push    ebp
006A22B2   686C236A00             push    $006A236C

***** TRY
|
006A22B7   64FF30                 push    dword ptr fs:[eax]
006A22BA   648920                 mov     fs:[eax], esp
006A22BD   FF8BF8020000           dec     dword ptr [ebx+$02F8]
006A22C3   33F6                   xor     esi, esi

* Reference to field TFrmWaitClose.OFFS_02F8
|
006A22C5   8B8BF8020000           mov     ecx, [ebx+$02F8]
006A22CB   8BC1                   mov     eax, ecx
006A22CD   BF3C000000             mov     edi, $0000003C
006A22D2   99                     cdq
006A22D3   F7FF                   idiv    edi 
006A22D5   8BF8                   mov     edi, eax
006A22D7   8BC1                   mov     eax, ecx
006A22D9   B93C000000             mov     ecx, $0000003C
006A22DE   99                     cdq
006A22DF   F7F9                   idiv    ecx 
006A22E1   8955FC                 mov     [ebp-$04], edx
006A22E4   8D55F4                 lea     edx, [ebp-$0C]
006A22E7   8BC6                   mov     eax, esi

* Reference to: Unit_00409434.Proc_0040A564
|
006A22E9   E87682D6FF             call    0040A564
006A22EE   FF75F4                 push    dword ptr [ebp-$0C]
006A22F1   6884236A00             push    $006A2384
006A22F6   8D55F0                 lea     edx, [ebp-$10]
006A22F9   8BC7                   mov     eax, edi

* Reference to: Unit_00409434.Proc_0040A564
|
006A22FB   E86482D6FF             call    0040A564
006A2300   FF75F0                 push    dword ptr [ebp-$10]
006A2303   6884236A00             push    $006A2384
006A2308   8D55EC                 lea     edx, [ebp-$14]
006A230B   8B45FC                 mov     eax, [ebp-$04]

* Reference to: Unit_00409434.Proc_0040A564
|
006A230E   E85182D6FF             call    0040A564
006A2313   FF75EC                 push    dword ptr [ebp-$14]
006A2316   8D45F8                 lea     eax, [ebp-$08]
006A2319   BA05000000             mov     edx, $00000005

* Reference to: system.@LStrCatN;
|
006A231E   E82D21D6FF             call    00404450
006A2323   8B55F8                 mov     edx, [ebp-$08]

* Reference to control TFrmWaitClose.st2 : TStaticText
|
006A2326   8B83E4020000           mov     eax, [ebx+$02E4]

* Reference to: controls.TControl.SetText(TControl;TCaption);
|
006A232C   E84F77D9FF             call    00439A80

* Reference to field TFrmWaitClose.OFFS_02F8
|
006A2331   83BBF802000000         cmp     dword ptr [ebx+$02F8], +$00
006A2338   7F17                   jnle    006A2351
006A233A   33D2                   xor     edx, edx

* Reference to control TFrmWaitClose.TimerAlarm : TTimer
|
006A233C   8B83E0020000           mov     eax, [ebx+$02E0]

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

* Reference to field TFrmWaitClose.ModalResult : TModalResult
|
006A2347   C7833402000006000000   mov     dword ptr [ebx+$0234], $00000006
006A2351   33C0                   xor     eax, eax
006A2353   5A                     pop     edx
006A2354   59                     pop     ecx
006A2355   59                     pop     ecx
006A2356   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '_^[嬪]