frm90s2323other.pas

酷鱼下载线源程序

unit Frm90s2323other;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tat90s2323otherFrm=class(TForm)
    GroupBox1: N.A.;
    Mode1: N.A.;
    Mode2: N.A.;
    BitBtn2: N.A.;
    GroupBox2: N.A.;
    Lb1: N.A.;
    LB2: N.A.;
    Fstrt: N.A.;
    BitBtn1: N.A.;
    spien: N.A.;
    Label3: N.A.;
    Label4: N.A.;
    procedure BitBtn1Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure FstrtClick(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure _PROC_004EB830(Sender : TObject);
    procedure _PROC_004EB860(Sender : TObject);
    procedure _PROC_004EB868(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  at90s2323otherFrm: Tat90s2323otherFrm;

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

implementation

{$R *.DFM}

procedure Tat90s2323otherFrm.BitBtn1Click(Sender : TObject);
begin
(*
004EB5E0   53                     push    ebx
004EB5E1   56                     push    esi
004EB5E2   8BD8                   mov     ebx, eax
004EB5E4   A180725000             mov     eax, dword ptr [$00507280]
004EB5E9   8B00                   mov     eax, [eax]
004EB5EB   8B8090050000           mov     eax, [eax+$0590]
004EB5F1   8B10                   mov     edx, [eax]
004EB5F3   FF5204                 call    dword ptr [edx+$04]
004EB5F6   8B83F4020000           mov     eax, [ebx+$02F4]
004EB5FC   8B10                   mov     edx, [eax]
004EB5FE   FF92C4000000           call    dword ptr [edx+$00C4]
004EB604   84C0                   test    al, al
004EB606   741A                   jz      004EB622
004EB608   6A00                   push    $00
004EB60A   6A00                   push    $00
004EB60C   A180725000             mov     eax, dword ptr [$00507280]
004EB611   8B00                   mov     eax, [eax]
004EB613   8B8090050000           mov     eax, [eax+$0590]
004EB619   B1FD                   mov     cl, $FD
004EB61B   B2AC                   mov     dl, $AC
004EB61D   8B30                   mov     esi, [eax]
004EB61F   FF5628                 call    dword ptr [esi+$28]
004EB622   8B83F8020000           mov     eax, [ebx+$02F8]
004EB628   8B10                   mov     edx, [eax]
004EB62A   FF92C4000000           call    dword ptr [edx+$00C4]
004EB630   84C0                   test    al, al
004EB632   741A                   jz      004EB64E
004EB634   6A00                   push    $00
004EB636   6A00                   push    $00
004EB638   A180725000             mov     eax, dword ptr [$00507280]
004EB63D   8B00                   mov     eax, [eax]
004EB63F   8B8090050000           mov     eax, [eax+$0590]
004EB645   B1F9                   mov     cl, $F9
004EB647   B2AC                   mov     dl, $AC
004EB649   8B18                   mov     ebx, [eax]
004EB64B   FF5328                 call    dword ptr [ebx+$28]
004EB64E   A180725000             mov     eax, dword ptr [$00507280]
004EB653   8B00                   mov     eax, [eax]
004EB655   8B8090050000           mov     eax, [eax+$0590]
004EB65B   8B10                   mov     edx, [eax]
004EB65D   FF5208                 call    dword ptr [edx+$08]

* Possible String Reference to: '命令已完成！'
|
004EB660   B878B64E00             mov     eax, $004EB678

* Reference to: Dialogs.ShowMessage(AnsiString);
|
004EB665   E8625BF5FF             call    004411CC
004EB66A   5E                     pop     esi
004EB66B   5B                     pop     ebx
004EB66C   C3                     ret

*)
end;

procedure Tat90s2323otherFrm.FormCreate(Sender : TObject);
begin
(*
004EB688   53                     push    ebx
004EB689   8BD8                   mov     ebx, eax
004EB68B   A180725000             mov     eax, dword ptr [$00507280]
004EB690   8B00                   mov     eax, [eax]
004EB692   8B8090050000           mov     eax, [eax+$0590]

|
004EB698   E84F97FAFF             call    00494DEC
004EB69D   8BC3                   mov     eax, ebx

|
004EB69F   E804000000             call    004EB6A8
004EB6A4   5B                     pop     ebx
004EB6A5   C3                     ret

*)
end;

procedure Tat90s2323otherFrm.FstrtClick(Sender : TObject);
begin
(*
004EB78C   53                     push    ebx
004EB78D   56                     push    esi
004EB78E   8BD8                   mov     ebx, eax
004EB790   8B830C030000           mov     eax, [ebx+$030C]
004EB796   8B10                   mov     edx, [eax]
004EB798   FF92C4000000           call    dword ptr [edx+$00C4]
004EB79E   84C0                   test    al, al
004EB7A0   7440                   jz      004EB7E2
004EB7A2   A180725000             mov     eax, dword ptr [$00507280]
004EB7A7   8B00                   mov     eax, [eax]
004EB7A9   8B8090050000           mov     eax, [eax+$0590]
004EB7AF   8B10                   mov     edx, [eax]
004EB7B1   FF5204                 call    dword ptr [edx+$04]
004EB7B4   6A00                   push    $00
004EB7B6   6A00                   push    $00
004EB7B8   A180725000             mov     eax, dword ptr [$00507280]
004EB7BD   8B00                   mov     eax, [eax]
004EB7BF   8B8090050000           mov     eax, [eax+$0590]
004EB7C5   B1BE                   mov     cl, $BE
004EB7C7   B2AC                   mov     dl, $AC
004EB7C9   8B30                   mov     esi, [eax]
004EB7CB   FF5628                 call    dword ptr [esi+$28]
004EB7CE   A180725000             mov     eax, dword ptr [$00507280]
004EB7D3   8B00                   mov     eax, [eax]
004EB7D5   8B8090050000           mov     eax, [eax+$0590]
004EB7DB   8B10                   mov     edx, [eax]
004EB7DD   FF5208                 call    dword ptr [edx+$08]
004EB7E0   EB3E                   jmp     004EB820
004EB7E2   A180725000             mov     eax, dword ptr [$00507280]
004EB7E7   8B00                   mov     eax, [eax]
004EB7E9   8B8090050000           mov     eax, [eax+$0590]
004EB7EF   8B10                   mov     edx, [eax]
004EB7F1   FF5204                 call    dword ptr [edx+$04]
004EB7F4   6A00                   push    $00
004EB7F6   6A00                   push    $00
004EB7F8   A180725000             mov     eax, dword ptr [$00507280]
004EB7FD   8B00                   mov     eax, [eax]
004EB7FF   8B8090050000           mov     eax, [eax+$0590]
004EB805   B1BF                   mov     cl, $BF
004EB807   B2AC                   mov     dl, $AC
004EB809   8B30                   mov     esi, [eax]
004EB80B   FF5628                 call    dword ptr [esi+$28]
004EB80E   A180725000             mov     eax, dword ptr [$00507280]
004EB813   8B00                   mov     eax, [eax]
004EB815   8B8090050000           mov     eax, [eax+$0590]
004EB81B   8B10                   mov     edx, [eax]
004EB81D   FF5208                 call    dword ptr [edx+$08]
004EB820   8BC3                   mov     eax, ebx

|
004EB822   E881FEFFFF             call    004EB6A8
004EB827   5E                     pop     esi
004EB828   5B                     pop     ebx
004EB829   C3                     ret

*)
end;

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

*)
end;

procedure Tat90s2323otherFrm._PROC_004EB830(Sender : TObject);
begin
(*
004EB830   55                     push    ebp
004EB831   8BEC                   mov     ebp, esp
004EB833   33C0                   xor     eax, eax
004EB835   55                     push    ebp

* Possible String Reference to: '閱婑