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

📄 frmtiny2313other.pas

📁 酷鱼下载线源程序
💻 PAS
📖 第 1 页 / 共 2 页
字号:
unit FrmTiny2313other;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TTiny2313otherFrm=class(TForm)
    Panel1: N.A.;
    GroupBox1: N.A.;
    fh7: N.A.;
    fh6: N.A.;
    fh5: N.A.;
    fh4: N.A.;
    fh3: N.A.;
    fh2: N.A.;
    fh1: N.A.;
    fh0: N.A.;
    Button3: N.A.;
    Button4: N.A.;
    GroupBox2: N.A.;
    Button1: N.A.;
    Button2: N.A.;
    LBN1: N.A.;
    LBN0: N.A.;
    GroupBox3: N.A.;
    FL7: N.A.;
    FL6: N.A.;
    FL5: N.A.;
    FL4: N.A.;
    FL3: N.A.;
    FL2: N.A.;
    FL1: N.A.;
    FL0: N.A.;
    Button5: N.A.;
    Button6: N.A.;
    groupbox4: N.A.;
    Button8: N.A.;
    Button9: N.A.;
    LEF0: N.A.;
    BitBtn1: N.A.;
    Button7: N.A.;
    procedure Button3Click(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure Button5Click(Sender : TObject);
    procedure Button6Click(Sender : TObject);
    procedure Button8Click(Sender : TObject);
    procedure Button9Click(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure Button7Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure _PROC_004F440F(Sender : TObject);
    procedure _PROC_004F49F5(Sender : TObject);
    procedure _PROC_004F4A24(Sender : TObject);
    procedure _PROC_004F4A2C(Sender : TObject);
    procedure _PROC_004F4D4F(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Tiny2313otherFrm: TTiny2313otherFrm;

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

implementation

{$R *.DFM}

procedure TTiny2313otherFrm.Button3Click(Sender : TObject);
begin
(*

|
004F40AC   E8CF050000             call    004F4680
004F40B1   C3                     ret

*)
end;

procedure TTiny2313otherFrm.Button4Click(Sender : TObject);
begin
(*
004F40B4   53                     push    ebx
004F40B5   56                     push    esi
004F40B6   8BF0                   mov     esi, eax
004F40B8   B3FF                   mov     bl, $FF
004F40BA   8B86F8020000           mov     eax, [esi+$02F8]
004F40C0   8B10                   mov     edx, [eax]
004F40C2   FF92C4000000           call    dword ptr [edx+$00C4]
004F40C8   84C0                   test    al, al
004F40CA   7403                   jz      004F40CF
004F40CC   80E37F                 and     bl, $7F
004F40CF   8B86FC020000           mov     eax, [esi+$02FC]
004F40D5   8B10                   mov     edx, [eax]
004F40D7   FF92C4000000           call    dword ptr [edx+$00C4]
004F40DD   84C0                   test    al, al
004F40DF   7403                   jz      004F40E4
004F40E1   80E3BF                 and     bl, $BF
004F40E4   8B8600030000           mov     eax, [esi+$0300]
004F40EA   8B10                   mov     edx, [eax]
004F40EC   FF92C4000000           call    dword ptr [edx+$00C4]
004F40F2   84C0                   test    al, al
004F40F4   7403                   jz      004F40F9
004F40F6   80E3DF                 and     bl, $DF
004F40F9   8B8604030000           mov     eax, [esi+$0304]
004F40FF   8B10                   mov     edx, [eax]
004F4101   FF92C4000000           call    dword ptr [edx+$00C4]
004F4107   84C0                   test    al, al
004F4109   7403                   jz      004F410E
004F410B   80E3EF                 and     bl, $EF
004F410E   8B8608030000           mov     eax, [esi+$0308]
004F4114   8B10                   mov     edx, [eax]
004F4116   FF92C4000000           call    dword ptr [edx+$00C4]
004F411C   84C0                   test    al, al
004F411E   7403                   jz      004F4123
004F4120   80E3F7                 and     bl, $F7
004F4123   8B860C030000           mov     eax, [esi+$030C]
004F4129   8B10                   mov     edx, [eax]
004F412B   FF92C4000000           call    dword ptr [edx+$00C4]
004F4131   84C0                   test    al, al
004F4133   7403                   jz      004F4138
004F4135   80E3FB                 and     bl, $FB
004F4138   8B8610030000           mov     eax, [esi+$0310]
004F413E   8B10                   mov     edx, [eax]
004F4140   FF92C4000000           call    dword ptr [edx+$00C4]
004F4146   84C0                   test    al, al
004F4148   7403                   jz      004F414D
004F414A   80E3FD                 and     bl, $FD
004F414D   8B8614030000           mov     eax, [esi+$0314]
004F4153   8B10                   mov     edx, [eax]
004F4155   FF92C4000000           call    dword ptr [edx+$00C4]
004F415B   84C0                   test    al, al
004F415D   7403                   jz      004F4162
004F415F   80E3FE                 and     bl, $FE
004F4162   A180725000             mov     eax, dword ptr [$00507280]
004F4167   8B00                   mov     eax, [eax]
004F4169   8B8090050000           mov     eax, [eax+$0590]
004F416F   8B10                   mov     edx, [eax]
004F4171   FF5204                 call    dword ptr [edx+$04]
004F4174   6A00                   push    $00
004F4176   53                     push    ebx
004F4177   A180725000             mov     eax, dword ptr [$00507280]
004F417C   8B00                   mov     eax, [eax]
004F417E   8B8090050000           mov     eax, [eax+$0590]
004F4184   B1A8                   mov     cl, $A8
004F4186   B2AC                   mov     dl, $AC
004F4188   8B18                   mov     ebx, [eax]
004F418A   FF5328                 call    dword ptr [ebx+$28]
004F418D   A180725000             mov     eax, dword ptr [$00507280]
004F4192   8B00                   mov     eax, [eax]
004F4194   8B8090050000           mov     eax, [eax+$0590]
004F419A   8B10                   mov     edx, [eax]
004F419C   FF5208                 call    dword ptr [edx+$08]

* Possible String Reference to: '命令完成!'
|
004F419F   B8BC414F00             mov     eax, $004F41BC

* Reference to: Dialogs.ShowMessage(AnsiString);
|
004F41A4   E823D0F4FF             call    004411CC
004F41A9   8BC6                   mov     eax, esi

|
004F41AB   E8D0040000             call    004F4680
004F41B0   5E                     pop     esi
004F41B1   5B                     pop     ebx
004F41B2   C3                     ret

*)
end;

procedure TTiny2313otherFrm.Button5Click(Sender : TObject);
begin
(*

|
004F41C8   E833060000             call    004F4800
004F41CD   C3                     ret

*)
end;

procedure TTiny2313otherFrm.Button6Click(Sender : TObject);
begin
(*
004F41D0   53                     push    ebx
004F41D1   56                     push    esi
004F41D2   8BF0                   mov     esi, eax
004F41D4   B3FF                   mov     bl, $FF
004F41D6   8B8638030000           mov     eax, [esi+$0338]
004F41DC   8B10                   mov     edx, [eax]
004F41DE   FF92C4000000           call    dword ptr [edx+$00C4]
004F41E4   84C0                   test    al, al
004F41E6   7403                   jz      004F41EB
004F41E8   80E37F                 and     bl, $7F
004F41EB   8B863C030000           mov     eax, [esi+$033C]
004F41F1   8B10                   mov     edx, [eax]
004F41F3   FF92C4000000           call    dword ptr [edx+$00C4]
004F41F9   84C0                   test    al, al
004F41FB   7403                   jz      004F4200
004F41FD   80E3BF                 and     bl, $BF
004F4200   8B8640030000           mov     eax, [esi+$0340]
004F4206   8B10                   mov     edx, [eax]
004F4208   FF92C4000000           call    dword ptr [edx+$00C4]
004F420E   84C0                   test    al, al
004F4210   7403                   jz      004F4215
004F4212   80E3DF                 and     bl, $DF
004F4215   8B8644030000           mov     eax, [esi+$0344]
004F421B   8B10                   mov     edx, [eax]
004F421D   FF92C4000000           call    dword ptr [edx+$00C4]
004F4223   84C0                   test    al, al
004F4225   7403                   jz      004F422A
004F4227   80E3EF                 and     bl, $EF
004F422A   8B8648030000           mov     eax, [esi+$0348]
004F4230   8B10                   mov     edx, [eax]

⌨️ 快捷键说明

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