cartoon.pas

来自「一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.」· PAS 代码 · 共 61 行

unit cartoon;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmCartoon=class(TForm)
    RxGIFAnimator1: TRxGIFAnimator;
    OFFS_02D4: N.A.;
    procedure FormClose(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure _PROC_006B2C34(Sender : TObject);
    procedure _PROC_006B2CD4(Sender : TObject);
    procedure _PROC_006B2D04(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmCartoon: TfrmCartoon;

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

implementation

{$R *.DFM}

procedure TfrmCartoon.FormClose(Sender : TObject);
begin
(*
006B2C1C   53                     push    ebx
006B2C1D   8BD9                   mov     ebx, ecx
006B2C1F   33D2                   xor     edx, edx

* Reference to control TfrmCartoon.RxGIFAnimator1 : TRxGIFAnimator
|
006B2C21   8B80D0020000           mov     eax, [eax+$02D0]

* Reference to : TRxGIFAnimator._PROC_005C7194()
|
006B2C27   E86845F1FF             call    005C7194
006B2C2C   C60302                 mov     byte ptr [ebx], $02
006B2C2F   5B                     pop     ebx
006B2C30   C3                     ret

*)
end;

procedure TfrmCartoon.FormCreate(Sender : TObject);
begin
(*
006B2CAC   55                     push    ebp
006B2CAD   8BEC                   mov     ebp, esp
006B2CAF   33C0                   xor     eax, eax
006B2CB1   55                     push    ebp

* Possible String Reference to: '閈