⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 logindzh.pas

📁 一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.
💻 PAS
字号:
unit loginDZH;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmLoginDZH=class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Legacy2: TLegacy;
    PaintBox1: TPaintBox;
    Edit5: TMaskEdit;
    Edit6: TMaskEdit;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    CheckBox1: TCheckBox;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    XPMenu1: TXPMenu;
    RadioButton1: TRadioButton;
    CBServer: TListBox;
    Label37: TLabel;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image1: TImage;
    Timer1: TTimer;
    BtnSpeed: TButton;
    Edit3: TEdit;
    Edit4: TEdit;
    IdHTTP1: TIdHTTP;
    Memo1: TMemo;
    Button1: TRadioButton;
    Button2: TButton;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    OFFS_0354: N.A.;
    OFFS_0393: N.A.;
    OFFS_0383: N.A.;
    OFFS_0382: N.A.;
    OFFS_039C: N.A.;
    OFFS_0381: N.A.;
    OFFS_0380: N.A.;
    OFFS_0389: N.A.;
    OFFS_0398: N.A.;
    OFFS_03B8: N.A.;
    OFFS_03BC: N.A.;
    procedure FormCreate(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure BitBtn2Click(Sender : TObject);
    procedure BitBtn4Click(Sender : TObject);
    procedure BitBtn3Click(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure Button3Click(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure FormPaint(Sender : TObject);
    procedure Timer1Timer(Sender : TObject);
    procedure FormResize(Sender : TObject);
    procedure BtnSpeedClick(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure BitBtn5Click(Sender : TObject);
    procedure BitBtn6Click(Sender : TObject);
    procedure _PROC_00614C39(Sender : TObject);
    procedure _PROC_00614E49(Sender : TObject);
    procedure _PROC_00615539(Sender : TObject);
    procedure _PROC_00615645(Sender : TObject);
    procedure _PROC_00615654(Sender : TObject);
    procedure _PROC_006156A8(Sender : TObject);
    procedure _PROC_006156D8(Sender : TObject);
    procedure _PROC_006158A0(Sender : TObject);
    procedure _PROC_00615BA1(Sender : TObject);
    procedure _PROC_00615FE5(Sender : TObject);
    procedure _PROC_00616600(Sender : TObject);
    procedure _PROC_0061665D(Sender : TObject);
    procedure _PROC_00616A10(Sender : TObject);
    procedure _PROC_00616A29(Sender : TObject);
    procedure _PROC_00616C78(Sender : TObject);
    procedure _PROC_00616D64(Sender : TObject);
    procedure _PROC_00616D77(Sender : TObject);
    procedure _PROC_00616DD9(Sender : TObject);
    procedure _PROC_00616FE4(Sender : TObject);
    procedure _PROC_00617165(Sender : TObject);
    procedure _PROC_00617208(Sender : TObject);
    procedure _PROC_0061726C(Sender : TObject);
    procedure _PROC_006172D0(Sender : TObject);
    procedure _PROC_006172DC(Sender : TObject);
    procedure _PROC_00617380(Sender : TObject);
    procedure _PROC_006173B0(Sender : TObject);
    procedure _PROC_0061772D(Sender : TObject);
    procedure _PROC_00618069(Sender : TObject);
    procedure _PROC_00618142(Sender : TObject);
    procedure _PROC_00618150(Sender : TObject);
    procedure Proc_00614E48(Sender : TObject);
    procedure Proc_00615580(Sender : TObject);
    procedure Proc_006166AC(Sender : TObject);
    procedure Proc_0061772C(Sender : TObject);
    procedure Proc_00614704(Sender : TObject);
    procedure Proc_00614C38(Sender : TObject);
    procedure Proc_00615637(Sender : TObject);
    procedure Proc_00615BA0(Sender : TObject);
    procedure Proc_00616A02(Sender : TObject);
    procedure Proc_00618141(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmLoginDZH: TfrmLoginDZH;

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

implementation

{$R *.DFM}

procedure TfrmLoginDZH.FormCreate(Sender : TObject);
begin
(*
00614F68   55                     push    ebp
00614F69   8BEC                   mov     ebp, esp
00614F6B   B906000000             mov     ecx, $00000006
00614F70   6A00                   push    $00
00614F72   6A00                   push    $00
00614F74   49                     dec     ecx
00614F75   75F9                   jnz     00614F70
00614F77   53                     push    ebx
00614F78   56                     push    esi
00614F79   57                     push    edi
00614F7A   8945FC                 mov     [ebp-$04], eax
00614F7D   33C0                   xor     eax, eax
00614F7F   55                     push    ebp

* Possible String Reference to: '閗遛

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -