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

📄 frm2343other.pas

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tat90s2343otherFrm=class(TForm)
    GroupBox1: N.A.;
    Mode1: N.A.;
    Mode2: N.A.;
    BitBtn2: N.A.;
    GroupBox2: N.A.;
    Lb1: N.A.;
    LB2: N.A.;
    rcen: N.A.;
    BitBtn1: N.A.;
    spien: N.A.;
    procedure FormCreate(Sender : TObject);
    procedure rcenClick(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure _PROC_004EBD1D(Sender : TObject);
    procedure _PROC_004EBD4C(Sender : TObject);
    procedure _PROC_004EBD54(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  at90s2343otherFrm: Tat90s2343otherFrm;

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

implementation

{$R *.DFM}

procedure Tat90s2343otherFrm.FormCreate(Sender : TObject);
begin
(*
004EBAC8   53                     push    ebx
004EBAC9   8BD8                   mov     ebx, eax
004EBACB   A180725000             mov     eax, dword ptr [$00507280]
004EBAD0   8B00                   mov     eax, [eax]
004EBAD2   8B8090050000           mov     eax, [eax+$0590]

|
004EBAD8   E80F93FAFF             call    00494DEC
004EBADD   8BC3                   mov     eax, ebx

|
004EBADF   E854010000             call    004EBC38
004EBAE4   5B                     pop     ebx
004EBAE5   C3                     ret

*)
end;

procedure Tat90s2343otherFrm.rcenClick(Sender : TObject);
begin
(*
004EBAE8   53                     push    ebx
004EBAE9   56                     push    esi
004EBAEA   8BD8                   mov     ebx, eax
004EBAEC   8B830C030000           mov     eax, [ebx+$030C]
004EBAF2   8B10                   mov     edx, [eax]
004EBAF4   FF92C4000000           call    dword ptr [edx+$00C4]
004EBAFA   84C0                   test    al, al
004EBAFC   7440                   jz      004EBB3E
004EBAFE   A180725000             mov     eax, dword ptr [$00507280]
004EBB03   8B00                   mov     eax, [eax]
004EBB05   8B8090050000           mov     eax, [eax+$0590]
004EBB0B   8B10                   mov     edx, [eax]
004EBB0D   FF5204                 call    dword ptr [edx+$04]
004EBB10   6A00                   push    $00
004EBB12   6A00                   push    $00
004EBB14   A180725000             mov     eax, dword ptr [$00507280]
004EBB19   8B00                   mov     eax, [eax]
004EBB1B   8B8090050000           mov     eax, [eax+$0590]
004EBB21   B1BE                   mov     cl, $BE
004EBB23   B2AC                   mov     dl, $AC
004EBB25   8B30                   mov     esi, [eax]
004EBB27   FF5628                 call    dword ptr [esi+$28]
004EBB2A   A180725000             mov     eax, dword ptr [$00507280]
004EBB2F   8B00                   mov     eax, [eax]
004EBB31   8B8090050000           mov     eax, [eax+$0590]
004EBB37   8B10                   mov     edx, [eax]
004EBB39   FF5208                 call    dword ptr [edx+$08]
004EBB3C   EB3E                   jmp     004EBB7C
004EBB3E   A180725000             mov     eax, dword ptr [$00507280]
004EBB43   8B00                   mov     eax, [eax]
004EBB45   8B8090050000           mov     eax, [eax+$0590]
004EBB4B   8B10                   mov     edx, [eax]
004EBB4D   FF5204                 call    dword ptr [edx+$04]
004EBB50   6A00                   push    $00
004EBB52   6A00                   push    $00
004EBB54   A180725000             mov     eax, dword ptr [$00507280]
004EBB59   8B00                   mov     eax, [eax]
004EBB5B   8B8090050000           mov     eax, [eax+$0590]
004EBB61   B1BF                   mov     cl, $BF
004EBB63   B2AC                   mov     dl, $AC
004EBB65   8B30                   mov     esi, [eax]
004EBB67   FF5628                 call    dword ptr [esi+$28]
004EBB6A   A180725000             mov     eax, dword ptr [$00507280]
004EBB6F   8B00                   mov     eax, [eax]
004EBB71   8B8090050000           mov     eax, [eax+$0590]
004EBB77   8B10                   mov     edx, [eax]
004EBB79   FF5208                 call    dword ptr [edx+$08]
004EBB7C   8BC3                   mov     eax, ebx

|
004EBB7E   E8B5000000             call    004EBC38
004EBB83   5E                     pop     esi
004EBB84   5B                     pop     ebx
004EBB85   C3                     ret

*)
end;

procedure Tat90s2343otherFrm.BitBtn1Click(Sender : TObject);
begin
(*
004EBB88   53                     push    ebx
004EBB89   56                     push    esi
004EBB8A   8BD8                   mov     ebx, eax
004EBB8C   A180725000             mov     eax, dword ptr [$00507280]
004EBB91   8B00                   mov     eax, [eax]
004EBB93   8B8090050000           mov     eax, [eax+$0590]
004EBB99   8B10                   mov     edx, [eax]
004EBB9B   FF5204                 call    dword ptr [edx+$04]
004EBB9E   8B83F4020000           mov     eax, [ebx+$02F4]
004EBBA4   8B10                   mov     edx, [eax]
004EBBA6   FF92C4000000           call    dword ptr [edx+$00C4]
004EBBAC   84C0                   test    al, al
004EBBAE   741A                   jz      004EBBCA
004EBBB0   6A00                   push    $00
004EBBB2   6A00                   push    $00
004EBBB4   A180725000             mov     eax, dword ptr [$00507280]
004EBBB9   8B00                   mov     eax, [eax]
004EBBBB   8B8090050000           mov     eax, [eax+$0590]
004EBBC1   B1FD                   mov     cl, $FD
004EBBC3   B2AC                   mov     dl, $AC
004EBBC5   8B30                   mov     esi, [eax]
004EBBC7   FF5628                 call    dword ptr [esi+$28]
004EBBCA   8B83F8020000           mov     eax, [ebx+$02F8]
004EBBD0   8B10                   mov     edx, [eax]
004EBBD2   FF92C4000000           call    dword ptr [edx+$00C4]
004EBBD8   84C0                   test    al, al
004EBBDA   741A                   jz      004EBBF6
004EBBDC   6A00                   push    $00
004EBBDE   6A00                   push    $00
004EBBE0   A180725000             mov     eax, dword ptr [$00507280]
004EBBE5   8B00                   mov     eax, [eax]
004EBBE7   8B8090050000           mov     eax, [eax+$0590]
004EBBED   B1F9                   mov     cl, $F9
004EBBEF   B2AC                   mov     dl, $AC
004EBBF1   8B30                   mov     esi, [eax]
004EBBF3   FF5628                 call    dword ptr [esi+$28]
004EBBF6   A180725000             mov     eax, dword ptr [$00507280]
004EBBFB   8B00                   mov     eax, [eax]
004EBBFD   8B8090050000           mov     eax, [eax+$0590]
004EBC03   8B10                   mov     edx, [eax]
004EBC05   FF5208                 call    dword ptr [edx+$08]
004EBC08   8BC3                   mov     eax, ebx

|
004EBC0A   E829000000             call    004EBC38

* Possible String Reference to: '命令已完成!'
|
004EBC0F   B824BC4E00             mov     eax, $004EBC24

* Reference to: Dialogs.ShowMessage(AnsiString);
|
004EBC14   E8B355F5FF             call    004411CC
004EBC19   5E                     pop     esi
004EBC1A   5B                     pop     ebx
004EBC1B   C3                     ret

*)
end;

procedure Tat90s2343otherFrm.FormClose(Sender : TObject);
begin
(*
004EBC34   C60102                 mov     byte ptr [ecx], $02
004EBC37   C3                     ret

*)
end;

procedure Tat90s2343otherFrm._PROC_004EBD1D(Sender : TObject);
begin
(*
004EBD1D   8BEC                   mov     ebp, esp
004EBD1F   33C0                   xor     eax, eax
004EBD21   55                     push    ebp

* Possible String Reference to: '闅咇

⌨️ 快捷键说明

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