hjabout.pas

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

unit HJAbout;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls
type
  TAboutDlg=class(TForm)
    Button1: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    Label3: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    procedure OKBtnClick(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure _PROC_006A274D(Sender : TObject);
    procedure _PROC_006A277C(Sender : TObject);
    procedure Proc_006A2618(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  AboutDlg: TAboutDlg;

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

implementation

{$R *.DFM}

procedure TAboutDlg.OKBtnClick(Sender : TObject);
begin
(*

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006A2644   E8733ADBFF             call    004560BC
006A2649   C3                     ret

*)
end;

procedure TAboutDlg.FormKeyDown(Sender : TObject);
begin
(*
006A264C   55                     push    ebp
006A264D   8BEC                   mov     ebp, esp
006A264F   6683391B               cmp     word ptr [ecx], +$1B
006A2653   7505                   jnz     006A265A

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006A2655   E8623ADBFF             call    004560BC
006A265A   5D                     pop     ebp
006A265B   C20400                 ret     $0004

*)
end;

procedure TAboutDlg.FormCreate(Sender : TObject);
begin
(*
006A2660   55                     push    ebp
006A2661   8BEC                   mov     ebp, esp
006A2663   83C4E8                 add     esp, -$18
006A2666   53                     push    ebx
006A2667   56                     push    esi
006A2668   33C9                   xor     ecx, ecx
006A266A   894DF8                 mov     [ebp-$08], ecx
006A266D   894DF4                 mov     [ebp-$0C], ecx
006A2670   894DE8                 mov     [ebp-$18], ecx
006A2673   8BD8                   mov     ebx, eax
006A2675   33C0                   xor     eax, eax
006A2677   55                     push    ebp
006A2678   680C276A00             push    $006A270C

***** TRY
|
006A267D   64FF30                 push    dword ptr fs:[eax]
006A2680   648920                 mov     fs:[eax], esp
006A2683   8D45FE                 lea     eax, [ebp-$02]

* Reference to: Unit_005B0D4C.Proc_005B2020
|
006A2686   E895F9F0FF             call    005B2020
006A268B   8BF0                   mov     esi, eax

* Possible String Reference to: 'Build '
|
006A268D   6824276A00             push    $006A2724
006A2692   8975EC                 mov     [ebp-$14], esi
006A2695   33C0                   xor     eax, eax
006A2697   8945F0                 mov     [ebp-$10], eax
006A269A   DF6DEC                 fild    qword ptr [ebp-$14]
006A269D   D8352C276A00           fdiv    dword ptr [$006A272C]
006A26A3   83C4F4                 add     esp, -$0C
006A26A6   DB3C24                 fstp    tbyte ptr [esp]
006A26A9   9B                     wait
006A26AA   8D55F4                 lea     edx, [ebp-$0C]

* Possible String Reference to: '0.00'
|
006A26AD   B838276A00             mov     eax, $006A2738

* Reference to: Unit_00409434.Proc_0040BAC4
|
006A26B2   E80D94D6FF             call    0040BAC4
006A26B7   FF75F4                 push    dword ptr [ebp-$0C]
006A26BA   6848276A00             push    $006A2748
006A26BF   8D55E8                 lea     edx, [ebp-$18]
006A26C2   0FB745FE               movzx   eax, word ptr [ebp-$02]

* Reference to: Unit_00409434.Proc_0040A564
|
006A26C6   E8997ED6FF             call    0040A564
006A26CB   FF75E8                 push    dword ptr [ebp-$18]
006A26CE   8D45F8                 lea     eax, [ebp-$08]
006A26D1   BA04000000             mov     edx, $00000004

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

* Reference to control TAboutDlg.Label5 : TLabel
|
006A26DE   8B83EC020000           mov     eax, [ebx+$02EC]

* Reference to: controls.TControl.SetText(TControl;TCaption);
|
006A26E4   E89773D9FF             call    00439A80
006A26E9   33C0                   xor     eax, eax
006A26EB   5A                     pop     edx
006A26EC   59                     pop     ecx
006A26ED   59                     pop     ecx
006A26EE   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '^[嬪]