hjexit.pas

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

unit HJExit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls
type
  TfrmExit=class(TForm)
    Label1: TLabel;
    Button1: TBitBtn;
    Button2: TBitBtn;
    Image1: TImage;
    procedure FormCreate(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure _PROC_00651A50(Sender : TObject);
    procedure _PROC_00651A80(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmExit: TfrmExit;

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

implementation

{$R *.DFM}

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

* Possible String Reference to: '您真要退出大智慧?'
|
00651A00   BA1C1A6500             mov     edx, $00651A1C

* Reference to control TfrmExit.Label1 : TLabel
|
00651A05   8B80D0020000           mov     eax, [eax+$02D0]

* Reference to: controls.TControl.SetText(TControl;TCaption);
|
00651A0B   E87080DEFF             call    00439A80
00651A10   C3                     ret

*)
end;

procedure TfrmExit.FormKeyDown(Sender : TObject);
begin
(*
00651A30   55                     push    ebp
00651A31   8BEC                   mov     ebp, esp
00651A33   53                     push    ebx
00651A34   6683391B               cmp     word ptr [ecx], +$1B
00651A38   750F                   jnz     00651A49

* Reference to control TfrmExit.Button2 : TBitBtn
|
00651A3A   8B80D8020000           mov     eax, [eax+$02D8]

* Possible reference to dynamic method TBitBtn.OFFS_FFEC
|
00651A40   66BBECFF               mov     bx, $FFEC

* Reference to: system.@CallDynaInst;
|
00651A44   E85F1ADBFF             call    004034A8
00651A49   5B                     pop     ebx
00651A4A   5D                     pop     ebp
00651A4B   C20400                 ret     $0004

*)
end;

procedure TfrmExit._PROC_00651A50(Sender : TObject);
begin
(*
00651A50   55                     push    ebp
00651A51   8BEC                   mov     ebp, esp
00651A53   33C0                   xor     eax, eax
00651A55   55                     push    ebp
00651A56   68751A6500             push    $00651A75

***** TRY
|
00651A5B   64FF30                 push    dword ptr fs:[eax]
00651A5E   648920                 mov     fs:[eax], esp
00651A61   FF05DCCE7800           inc     dword ptr [$0078CEDC]
00651A67   33C0                   xor     eax, eax
00651A69   5A                     pop     edx
00651A6A   59                     pop     ecx
00651A6B   59                     pop     ecx
00651A6C   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: ']脣纼-芪x'
|
00651A6F   687C1A6500             push    $00651A7C
00651A74   C3                     ret


* Reference to: system.@HandleFinally;
|
00651A75   E9B21FDBFF             jmp     00403A2C
00651A7A   EBF8                   jmp     00651A74

****** END
|
00651A7C   5D                     pop     ebp
00651A7D   C3                     ret

*)
end;

procedure TfrmExit._PROC_00651A80(Sender : TObject);
begin
(*
00651A80   832DDCCE780001         sub     dword ptr [$0078CEDC], +$01
00651A87   C3                     ret

*)
end;

end.