dgsetup.pas

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

unit DGSetup;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Buttons, Spin, ExtCtrls
type
  TDGSysSetup=class(TForm)
    SpinEdit1: TSpinEdit;
    StaticText2: TStaticText;
    BtnOK: TBitBtn;
    BtnCancel: TBitBtn;
    SpinEdit2: TSpinEdit;
    StaticText1: TStaticText;
    CheckBox1: TCheckBox;
    CheckBox3: TCheckBox;
    StaticText4: TStaticText;
    Edit2: TEdit;
    Bevel1: TBevel;
    StaticText5: TStaticText;
    StaticText3: TStaticText;
    CheckBox2: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    procedure FormCreate(Sender : TObject);
    procedure BtnOKClick(Sender : TObject);
    procedure _PROC_006A1FC9(Sender : TObject);
    procedure _PROC_006A1FF8(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  DGSysSetup: TDGSysSetup;

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

implementation

{$R *.DFM}

procedure TDGSysSetup.FormCreate(Sender : TObject);
begin
(*
006A1A98   55                     push    ebp
006A1A99   8BEC                   mov     ebp, esp
006A1A9B   6A00                   push    $00
006A1A9D   53                     push    ebx
006A1A9E   56                     push    esi
006A1A9F   57                     push    edi
006A1AA0   8BD8                   mov     ebx, eax

* Reference to pointer to GlobalVar_0078CF04
|
006A1AA2   8B35F8CF7700           mov     esi, [$0077CFF8]
006A1AA8   33C0                   xor     eax, eax
006A1AAA   55                     push    ebp
006A1AAB   681E1C6A00             push    $006A1C1E

***** TRY
|
006A1AB0   64FF30                 push    dword ptr fs:[eax]
006A1AB3   648920                 mov     fs:[eax], esp
006A1AB6   33D2                   xor     edx, edx

* Reference to control TDGSysSetup.CheckBox4 : TCheckBox
|
006A1AB8   8B830C030000           mov     eax, [ebx+$030C]

* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006A1ABE   E8A57ED9FF             call    00439968
006A1AC3   33D2                   xor     edx, edx

* Reference to control TDGSysSetup.SpinEdit2 : TSpinEdit
|
006A1AC5   8B83E0020000           mov     eax, [ebx+$02E0]
006A1ACB   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TSpinEdit.OFFS_5C
|
006A1ACD   FF515C                 call    dword ptr [ecx+$5C]
006A1AD0   B201                   mov     dl, $01

* Reference to control TDGSysSetup.CheckBox3 : TCheckBox
|
006A1AD2   8B83EC020000           mov     eax, [ebx+$02EC]
006A1AD8   8B08                   mov     ecx, [eax]

* Reference to method TCheckBox.SetEnabled(Boolean)
|
006A1ADA   FF515C                 call    dword ptr [ecx+$5C]
006A1ADD   33D2                   xor     edx, edx

* Reference to control TDGSysSetup.Edit2 : TSpinEdit
|
006A1ADF   8B83F4020000           mov     eax, [ebx+$02F4]

* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006A1AE5   E87E7ED9FF             call    00439968
006A1AEA   33D2                   xor     edx, edx

* Reference to control TDGSysSetup.StaticText4 : TStaticText
|
006A1AEC   8B83F0020000           mov     eax, [ebx+$02F0]

* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006A1AF2   E8717ED9FF             call    00439968
006A1AF7   33D2                   xor     edx, edx

* Reference to control TDGSysSetup.StaticText1 : TStaticText
|
006A1AF9   8B83E4020000           mov     eax, [ebx+$02E4]
006A1AFF   8B08                   mov     ecx, [eax]

* Reference to method TStaticText.SetEnabled(Boolean)
|
006A1B01   FF515C                 call    dword ptr [ecx+$5C]
006A1B04   33D2                   xor     edx, edx

* Reference to control TDGSysSetup.StaticText3 : TStaticText
|
006A1B06   8B8300030000           mov     eax, [ebx+$0300]
006A1B0C   8B08                   mov     ecx, [eax]

* Reference to method TStaticText.SetEnabled(Boolean)
|
006A1B0E   FF515C                 call    dword ptr [ecx+$5C]
006A1B11   33D2                   xor     edx, edx

* Reference to control TDGSysSetup.SpinEdit2 : TSpinEdit
|
006A1B13   8B83E0020000           mov     eax, [ebx+$02E0]
006A1B19   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TSpinEdit.OFFS_5C
|
006A1B1B   FF515C                 call    dword ptr [ecx+$5C]
006A1B1E   6A00                   push    $00
006A1B20   8B06                   mov     eax, [esi]

* Possible String Reference to: 'AutoPgDn'
|
006A1B22   B9341C6A00             mov     ecx, $006A1C34

* Possible String Reference to: 'Setting'
|
006A1B27   BA481C6A00             mov     edx, $006A1C48
006A1B2C   8B38                   mov     edi, [eax]
006A1B2E   FF5708                 call    dword ptr [edi+$08]
006A1B31   8BD0                   mov     edx, eax

* Reference to control TDGSysSetup.SpinEdit1 : TSpinEdit
|
006A1B33   8B83D0020000           mov     eax, [ebx+$02D0]

* Reference to: spin.TSpinEdit.SetValue(TSpinEdit;Longint);
|
006A1B39   E89600EBFF             call    00551BD4
006A1B3E   6A05                   push    $05
006A1B40   8B06                   mov     eax, [esi]

* Possible String Reference to: 'CompTime'
|
006A1B42   B9581C6A00             mov     ecx, $006A1C58

* Possible String Reference to: 'Setting'
|
006A1B47   BA481C6A00             mov     edx, $006A1C48
006A1B4C   8B38                   mov     edi, [eax]
006A1B4E   FF5708                 call    dword ptr [edi+$08]
006A1B51   8BD0                   mov     edx, eax

* Reference to control TDGSysSetup.SpinEdit2 : TSpinEdit
|
006A1B53   8B83E0020000           mov     eax, [ebx+$02E0]

* Reference to: spin.TSpinEdit.SetValue(TSpinEdit;Longint);
|
006A1B59   E87600EBFF             call    00551BD4

* Reference to TApplication instance
|
006A1B5E   A100D17700             mov     eax, dword ptr [$0077D100]
006A1B63   8B00                   mov     eax, [eax]

* Reference to field TApplication.ShowHint : Boolean
|
006A1B65   8A5078                 mov     dl, byte ptr [eax+$78]

* Reference to control TDGSysSetup.CheckBox1 : TCheckBox
|
006A1B68   8B83E8020000           mov     eax, [ebx+$02E8]
006A1B6E   8B08                   mov     ecx, [eax]

* Reference to method TCheckBox.SetChecked(Boolean)
|
006A1B70   FF91B8000000           call    dword ptr [ecx+$00B8]
006A1B76   6A01                   push    $01
006A1B78   8B06                   mov     eax, [esi]

* Possible String Reference to: 'SaveColOrder'
|
006A1B7A   B96C1C6A00             mov     ecx, $006A1C6C

* Possible String Reference to: 'Setting'
|
006A1B7F   BA481C6A00             mov     edx, $006A1C48
006A1B84   8B38                   mov     edi, [eax]
006A1B86   FF5710                 call    dword ptr [edi+$10]
006A1B89   8BD0                   mov     edx, eax

* Reference to control TDGSysSetup.CheckBox2 : TCheckBox
|
006A1B8B   8B8304030000           mov     eax, [ebx+$0304]
006A1B91   8B08                   mov     ecx, [eax]

* Reference to method TCheckBox.SetChecked(Boolean)
|
006A1B93   FF91B8000000           call    dword ptr [ecx+$00B8]
006A1B99   6A01                   push    $01
006A1B9B   8B06                   mov     eax, [esi]

* Possible String Reference to: 'AutoClose'
|
006A1B9D   B9841C6A00             mov     ecx, $006A1C84

* Possible String Reference to: 'Setting'
|
006A1BA2   BA481C6A00             mov     edx, $006A1C48
006A1BA7   8B38                   mov     edi, [eax]
006A1BA9   FF5710                 call    dword ptr [edi+$10]
006A1BAC   8BD0                   mov     edx, eax

* Reference to control TDGSysSetup.CheckBox3 : TCheckBox
|
006A1BAE   8B83EC020000           mov     eax, [ebx+$02EC]
006A1BB4   8B08                   mov     ecx, [eax]

* Reference to method TCheckBox.SetChecked(Boolean)
|
006A1BB6   FF91B8000000           call    dword ptr [ecx+$00B8]
006A1BBC   6A00                   push    $00
006A1BBE   8B06                   mov     eax, [esi]

* Possible String Reference to: 'ShowPMD'
|
006A1BC0   B9981C6A00             mov     ecx, $006A1C98

* Possible String Reference to: 'Setting'
|
006A1BC5   BA481C6A00             mov     edx, $006A1C48
006A1BCA   8B38                   mov     edi, [eax]
006A1BCC   FF5710                 call    dword ptr [edi+$10]
006A1BCF   8BD0                   mov     edx, eax

* Reference to control TDGSysSetup.CheckBox5 : TCheckBox
|
006A1BD1   8B8310030000           mov     eax, [ebx+$0310]
006A1BD7   8B08                   mov     ecx, [eax]

* Reference to method TCheckBox.SetChecked(Boolean)
|
006A1BD9   FF91B8000000           call    dword ptr [ecx+$00B8]
006A1BDF   6A0A                   push    $0A
006A1BE1   8B06                   mov     eax, [esi]

* Possible String Reference to: 'AutoCloseAfter'
|
006A1BE3   B9A81C6A00             mov     ecx, $006A1CA8

* Possible String Reference to: 'Setting'
|
006A1BE8   BA481C6A00             mov     edx, $006A1C48
006A1BED   8B30                   mov     esi, [eax]
006A1BEF   FF5608                 call    dword ptr [esi+$08]
006A1BF2   8D55FC                 lea     edx, [ebp-$04]

* Reference to: Unit_00409434.Proc_0040A564
|
006A1BF5   E86A89D6FF             call    0040A564
006A1BFA   8B55FC                 mov     edx, [ebp-$04]

* Reference to control TDGSysSetup.Edit2 : TSpinEdit
|
006A1BFD   8B83F4020000           mov     eax, [ebx+$02F4]

* Reference to: controls.TControl.SetText(TControl;TCaption);
|
006A1C03   E8787ED9FF             call    00439A80
006A1C08   33C0                   xor     eax, eax
006A1C0A   5A                     pop     edx
006A1C0B   59                     pop     ecx
006A1C0C   59                     pop     ecx
006A1C0D   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '_^[Y]