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

📄 frmpicoption.pas

📁 酷鱼下载线源程序
💻 PAS
字号:
unit FrmPicOption;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TpicOtherFrm=class(TForm)
    GroupBox1: N.A.;
    edt2000: N.A.;
    edt2001: N.A.;
    edt2002: N.A.;
    Label1: N.A.;
    Label2: N.A.;
    Label3: N.A.;
    Label4: N.A.;
    Button2: N.A.;
    Button3: N.A.;
    GroupBox2: N.A.;
    cfg13: N.A.;
    cfg12: N.A.;
    cfg9: N.A.;
    cfg8: N.A.;
    cfg6: N.A.;
    cfg3: N.A.;
    cfg2: N.A.;
    cfg1: N.A.;
    cfg0: N.A.;
    cfg7: N.A.;
    Button1: N.A.;
    Button4: N.A.;
    edt2003: N.A.;
    BitBtn1: N.A.;
    Button5: N.A.;
    procedure FormCreate(Sender : TObject);
    procedure Button3Click(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure Button5Click(Sender : TObject);
    procedure edt2000KeyPress(Sender : TObject);
    procedure edt2002KeyPress(Sender : TObject);
    procedure edt2001KeyPress(Sender : TObject);
    procedure edt2003KeyPress(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure _PROC_004E7BE8(Sender : TObject);
    procedure _PROC_004E7C0C(Sender : TObject);
    procedure _PROC_004E7D18(Sender : TObject);
    procedure _PROC_004E8359(Sender : TObject);
    procedure _PROC_004E8388(Sender : TObject);
    procedure _PROC_004E8390(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  picOtherFrm: TpicOtherFrm;

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

implementation

{$R *.DFM}

procedure TpicOtherFrm.FormCreate(Sender : TObject);
begin
(*
004E7ED8   53                     push    ebx
004E7ED9   8BD8                   mov     ebx, eax
004E7EDB   A180725000             mov     eax, dword ptr [$00507280]
004E7EE0   8B00                   mov     eax, [eax]
004E7EE2   8B8090050000           mov     eax, [eax+$0590]

|
004E7EE8   E8FFCEFAFF             call    00494DEC
004E7EED   8BC3                   mov     eax, ebx

* Reference to : TpicOtherFrm._PROC_004E7C0C()
|
004E7EEF   E818FDFFFF             call    004E7C0C
004E7EF4   8BC3                   mov     eax, ebx

* Reference to : TpicOtherFrm._PROC_004E7D18()
|
004E7EF6   E81DFEFFFF             call    004E7D18
004E7EFB   5B                     pop     ebx
004E7EFC   C3                     ret

*)
end;

procedure TpicOtherFrm.Button3Click(Sender : TObject);
begin
(*
004E7F00   55                     push    ebp
004E7F01   8BEC                   mov     ebp, esp
004E7F03   33C9                   xor     ecx, ecx
004E7F05   51                     push    ecx
004E7F06   51                     push    ecx
004E7F07   51                     push    ecx
004E7F08   51                     push    ecx
004E7F09   51                     push    ecx
004E7F0A   51                     push    ecx
004E7F0B   53                     push    ebx
004E7F0C   56                     push    esi
004E7F0D   57                     push    edi
004E7F0E   8BF0                   mov     esi, eax
004E7F10   33C0                   xor     eax, eax
004E7F12   55                     push    ebp

* Possible String Reference to: '閐埋

⌨️ 快捷键说明

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