dzhweb.pas

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

unit DZHWeb;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmWeb=class(TForm)
    procedure FormClose(Sender : TObject);
    procedure EmbeddedWB1TranslateAccelerator(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure EmbeddedWB1DocumentComplete(Sender : TObject);
    procedure _PROC_00515310(Sender : TObject);
    procedure _PROC_00515329(Sender : TObject);
    procedure _PROC_00515358(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmWeb: TfrmWeb;

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

implementation

{$R *.DFM}

procedure TfrmWeb.FormClose(Sender : TObject);
begin
(*
00515224   C60102                 mov     byte ptr [ecx], $02
00515227   C3                     ret

*)
end;

procedure TfrmWeb.EmbeddedWB1TranslateAccelerator(Sender : TObject);
begin
(*
00515228   55                     push    ebp
00515229   8BEC                   mov     ebp, esp
0051522B   56                     push    esi
0051522C   817A0400010000         cmp     dword ptr [edx+$04], $00000100
00515233   7512                   jnz     00515247
00515235   8B4A08                 mov     ecx, [edx+$08]
00515238   83F91B                 cmp     ecx, +$1B
0051523B   7405                   jz      00515242
0051523D   83F90D                 cmp     ecx, +$0D
00515240   7505                   jnz     00515247

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
00515242   E8750EF4FF             call    004560BC
00515247   8BC6                   mov     eax, esi
00515249   5E                     pop     esi
0051524A   5D                     pop     ebp
0051524B   C20400                 ret     $0004

*)
end;

procedure TfrmWeb.FormKeyDown(Sender : TObject);
begin
(*
00515250   55                     push    ebp
00515251   8BEC                   mov     ebp, esp
00515253   6683391B               cmp     word ptr [ecx], +$1B
00515257   7406                   jz      0051525F
00515259   6683390D               cmp     word ptr [ecx], +$0D
0051525D   7505                   jnz     00515264

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0051525F   E8580EF4FF             call    004560BC
00515264   5D                     pop     ebp
00515265   C20400                 ret     $0004

*)
end;

procedure TfrmWeb.EmbeddedWB1DocumentComplete(Sender : TObject);
begin
(*
00515268   55                     push    ebp
00515269   8BEC                   mov     ebp, esp
0051526B   51                     push    ecx
0051526C   B906000000             mov     ecx, $00000006
00515271   6A00                   push    $00
00515273   6A00                   push    $00
00515275   49                     dec     ecx
00515276   75F9                   jnz     00515271
00515278   874DFC                 xchg    [ebp-$04], ecx
0051527B   53                     push    ebx
0051527C   8BD8                   mov     ebx, eax
0051527E   33C0                   xor     eax, eax
00515280   55                     push    ebp
00515281   6802535100             push    $00515302

***** TRY
|
00515286   64FF30                 push    dword ptr fs:[eax]
00515289   648920                 mov     fs:[eax], esp
0051528C   6810535100             push    $00515310
00515291   681C535100             push    $0051531C
00515296   8D55CC                 lea     edx, [ebp-$34]

* Reference to control TfrmWeb.EmbeddedWB1 : TEmbeddedWB
|
00515299   8B83D0020000           mov     eax, [ebx+$02D0]

* Reference to: olectrls.TOleControl.GetOleObject(TOleControl):Variant;
|
0051529F   E8CC83FFFF             call    0050D670
005152A4   8D45CC                 lea     eax, [ebp-$34]
005152A7   50                     push    eax
005152A8   8D45DC                 lea     eax, [ebp-$24]
005152AB   50                     push    eax

* Reference to: system.@DispInvoke;cdecl;
|
005152AC   E863FEEEFF             call    00405114
005152B1   83C40C                 add     esp, +$0C
005152B4   8D45DC                 lea     eax, [ebp-$24]
005152B7   50                     push    eax
005152B8   8D45EC                 lea     eax, [ebp-$14]
005152BB   50                     push    eax

* Reference to: system.@DispInvoke;cdecl;
|
005152BC   E853FEEEFF             call    00405114
005152C1   83C40C                 add     esp, +$0C
005152C4   8D55EC                 lea     edx, [ebp-$14]
005152C7   8D45FC                 lea     eax, [ebp-$04]

* Reference to: system.@VarToLStr(String;String;Variant;Variant);
|
005152CA   E80903EFFF             call    004055D8
005152CF   8B55FC                 mov     edx, [ebp-$04]
005152D2   8BC3                   mov     eax, ebx

* Reference to: controls.TControl.SetText(TControl;TCaption);
|
005152D4   E8A747F2FF             call    00439A80
005152D9   33C0                   xor     eax, eax
005152DB   5A                     pop     edx
005152DC   59                     pop     ecx
005152DD   59                     pop     ecx
005152DE   648910                 mov     fs:[eax], edx

****** FINALLY
|
005152E1   6809535100             push    $00515309
005152E6   8D45CC                 lea     eax, [ebp-$34]

* Reference to object Variant
|
005152E9   8B156C114000           mov     edx, [$0040116C]
005152EF   B903000000             mov     ecx, $00000003

* Reference to: system.@FinalizeArray;
|
005152F4   E8C7F8EEFF             call    00404BC0
005152F9   8D45FC                 lea     eax, [ebp-$04]

* Reference to: system.@LStrClr(String;String);
|
005152FC   E8F3EDEEFF             call    004040F4
00515301   C3                     ret


* Reference to: system.@HandleFinally;
|
00515302   E925E7EEFF             jmp     00403A2C
00515307   EBDD                   jmp     005152E6

****** END
|
00515309   5B                     pop     ebx
0051530A   8BE5                   mov     esp, ebp
0051530C   5D                     pop     ebp
0051530D   C20400                 ret     $0004

*)
end;

procedure TfrmWeb._PROC_00515310(Sender : TObject);
begin
(*
00515310   0100                   add     [eax], eax
00515312   00746974               add     [ecx+ebp*2+$74], dh
00515316   6C                     insb
00515317   650000                 add     gs:[eax], al
0051531A   0000                   add     [eax], al

*)
end;

procedure TfrmWeb._PROC_00515329(Sender : TObject);
begin
(*
00515329   8BEC                   mov     ebp, esp
0051532B   33C0                   xor     eax, eax
0051532D   55                     push    ebp

* Possible String Reference to: '橼骖