dghstinf.pas

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

unit DGHstInf;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Buttons
type
  TDGHostInfo=class(TForm)
    GroupBox1: TGroupBox;
    Label7: TLabel;
    CBServer: TComboBox;
    Button1: TBitBtn;
    Button2: TBitBtn;
    Button3: TBitBtn;
    CheckBox1: TCheckBox;
    Button4: TBitBtn;
    Button5: TBitBtn;
    procedure FormCreate(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure Button3Click(Sender : TObject);
    procedure Button5Click(Sender : TObject);
    procedure CheckBox1Click(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure _PROC_006139D1(Sender : TObject);
    procedure _PROC_00613E4F(Sender : TObject);
    procedure _PROC_00613F5D(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  DGHostInfo: TDGHostInfo;

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

implementation

{$R *.DFM}

procedure TDGHostInfo.FormCreate(Sender : TObject);
begin
(*
006138DC   55                     push    ebp
006138DD   8BEC                   mov     ebp, esp
006138DF   6A00                   push    $00
006138E1   53                     push    ebx
006138E2   56                     push    esi
006138E3   8BD8                   mov     ebx, eax
006138E5   33C0                   xor     eax, eax
006138E7   55                     push    ebp

* Possible String Reference to: '闃'
|
006138E8   688F396100             push    $0061398F

***** TRY
|
006138ED   64FF30                 push    dword ptr fs:[eax]
006138F0   648920                 mov     fs:[eax], esp

* Reference to pointer to GlobalVar_0078CEFC
|
006138F3   8B15D0CC7700           mov     edx, [$0077CCD0]
006138F9   8B12                   mov     edx, [edx]
006138FB   8D45FC                 lea     eax, [ebp-$04]

* Possible String Reference to: 'HqServer.ini'
|
006138FE   B9A4396100             mov     ecx, $006139A4

* Reference to: system.@LStrCat3;
|
00613903   E8D40ADFFF             call    004043DC
00613908   8B4DFC                 mov     ecx, [ebp-$04]
0061390B   B201                   mov     dl, $01

* Reference to class TIniFile
|
0061390D   A1085A4600             mov     eax, dword ptr [$00465A08]

* Reference to: Unit_00465948.Proc_00465B58
|
00613912   E84122E5FF             call    00465B58
00613917   8BF0                   mov     esi, eax

* Reference to field TDGHostInfo.OFFS_02F8
|
00613919   89B3F8020000           mov     [ebx+$02F8], esi

* Reference to control TDGHostInfo.CBServer : TComboBox
|
0061391F   8B83D8020000           mov     eax, [ebx+$02D8]

* Reference to field TComboBox.Items : TStrings
|
00613925   8B88F0010000           mov     ecx, [eax+$01F0]

* Possible String Reference to: 'HQServer'
|
0061392B   BABC396100             mov     edx, $006139BC
00613930   8BC6                   mov     eax, esi
00613932   8B30                   mov     esi, [eax]

* Reference to method TIniFile.ReadSection(string,TStrings)
|
00613934   FF5638                 call    dword ptr [esi+$38]
00613937   6A00                   push    $00
00613939   6A28                   push    $28
0061393B   6800010000             push    $00000100

* Reference to control TDGHostInfo.CBServer : TComboBox
|
00613940   8B83D8020000           mov     eax, [ebx+$02D8]

* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
00613946   E83DC4E2FF             call    0043FD88
0061394B   50                     push    eax

* Reference to: user32.SendMessageA()
|
0061394C   E88753DFFF             call    00408CD8
00613951   6A00                   push    $00

* Reference to pointer to GlobalVar_0078CF04
|
00613953   A1F8CF7700             mov     eax, dword ptr [$0077CFF8]
00613958   8B00                   mov     eax, [eax]

* Possible String Reference to: 'UseProxy'
|
0061395A   B9D0396100             mov     ecx, $006139D0

* Possible String Reference to: 'Setting'
|
0061395F   BAE4396100             mov     edx, $006139E4
00613964   8B30                   mov     esi, [eax]

* Possible reference to virtual method TGlobalVar_0078CF04.OFFS_10
|
00613966   FF5610                 call    dword ptr [esi+$10]
00613969   8BD0                   mov     edx, eax

* Reference to control TDGHostInfo.CheckBox1 : TCheckBox
|
0061396B   8B83E8020000           mov     eax, [ebx+$02E8]
00613971   8B08                   mov     ecx, [eax]

* Reference to method TCheckBox.SetChecked(Boolean)
|
00613973   FF91B8000000           call    dword ptr [ecx+$00B8]
00613979   33C0                   xor     eax, eax
0061397B   5A                     pop     edx
0061397C   59                     pop     ecx
0061397D   59                     pop     ecx
0061397E   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '^[Y]