showswf.pas

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

unit ShowSWF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ExtCtrls
type
  TfrmShowSWF=class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    Timer2: TTimer;
    procedure Timer1Timer(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure Timer2Timer(Sender : TObject);
    procedure _PROC_006B2A40(Sender : TObject);
    procedure _PROC_006B2A70(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmShowSWF: TfrmShowSWF;

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

implementation

{$R *.DFM}

procedure TfrmShowSWF.Timer1Timer(Sender : TObject);
begin
(*
006B2A04   53                     push    ebx
006B2A05   8BD8                   mov     ebx, eax

* Reference to control TfrmShowSWF.ShockwaveFlash4 : TShockwaveFlash
|
006B2A07   8B83D8020000           mov     eax, [ebx+$02D8]

* Reference to : TShockwaveFlash._PROC_0052BD0C()
|
006B2A0D   E8FA92E7FF             call    0052BD0C
006B2A12   BA64000000             mov     edx, $00000064

* Reference to control TfrmShowSWF.ShockwaveFlash4 : TShockwaveFlash
|
006B2A17   8B83D8020000           mov     eax, [ebx+$02D8]

* Reference to : TShockwaveFlash._PROC_0052BCB8()
|
006B2A1D   E89692E7FF             call    0052BCB8
006B2A22   5B                     pop     ebx
006B2A23   C3                     ret

*)
end;

procedure TfrmShowSWF.FormClose(Sender : TObject);
begin
(*
006B2A24   C60102                 mov     byte ptr [ecx], $02

* Reference to THJ32Main instance
|
006B2A27   A158D37700             mov     eax, dword ptr [$0077D358]
006B2A2C   8B00                   mov     eax, [eax]
006B2A2E   33D2                   xor     edx, edx

* Reference to field THJ32Main.OFFS_08EC
|
006B2A30   8990EC080000           mov     [eax+$08EC], edx
006B2A36   C3                     ret

*)
end;

procedure TfrmShowSWF.Timer2Timer(Sender : TObject);
begin
(*

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006B2A38   E87F36DAFF             call    004560BC
006B2A3D   C3                     ret

*)
end;

procedure TfrmShowSWF._PROC_006B2A40(Sender : TObject);
begin
(*
006B2A40   55                     push    ebp
006B2A41   8BEC                   mov     ebp, esp
006B2A43   33C0                   xor     eax, eax
006B2A45   55                     push    ebp
006B2A46   68652A6B00             push    $006B2A65

***** TRY
|
006B2A4B   64FF30                 push    dword ptr fs:[eax]
006B2A4E   648920                 mov     fs:[eax], esp
006B2A51   FF0504D57800           inc     dword ptr [$0078D504]
006B2A57   33C0                   xor     eax, eax
006B2A59   5A                     pop     edx
006B2A5A   59                     pop     ecx
006B2A5B   59                     pop     ecx
006B2A5C   648910                 mov     fs:[eax], edx

****** FINALLY
|
006B2A5F   686C2A6B00             push    $006B2A6C
006B2A64   C3                     ret


* Reference to: system.@HandleFinally;
|
006B2A65   E9C20FD5FF             jmp     00403A2C
006B2A6A   EBF8                   jmp     006B2A64

****** END
|
006B2A6C   5D                     pop     ebp
006B2A6D   C3                     ret

*)
end;

procedure TfrmShowSWF._PROC_006B2A70(Sender : TObject);
begin
(*
006B2A70   832D04D5780001         sub     dword ptr [$0078D504], +$01
006B2A77   C3                     ret

*)
end;

end.