frm90s1200.pas

酷鱼下载线源程序

unit Frm90s1200;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tat90s1200otherFrm=class(TForm)
    GroupBox1: N.A.;
    Mode1: N.A.;
    Mode2: N.A.;
    BitBtn1: N.A.;
    BitBtn2: N.A.;
    Label2: N.A.;
    Label3: N.A.;
    procedure FormClose(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure _PROC_004EB329(Sender : TObject);
    procedure _PROC_004EB358(Sender : TObject);
    procedure _PROC_004EB360(Sender : TObject);
    procedure _PROC_004EB381(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  at90s1200otherFrm: Tat90s1200otherFrm;

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

implementation

{$R *.DFM}

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

*)
end;

procedure Tat90s1200otherFrm.BitBtn1Click(Sender : TObject);
begin
(*
004EB26C   53                     push    ebx
004EB26D   56                     push    esi
004EB26E   8BD8                   mov     ebx, eax
004EB270   A180725000             mov     eax, dword ptr [$00507280]
004EB275   8B00                   mov     eax, [eax]
004EB277   8B8090050000           mov     eax, [eax+$0590]
004EB27D   8B10                   mov     edx, [eax]
004EB27F   FF5204                 call    dword ptr [edx+$04]
004EB282   8B83F4020000           mov     eax, [ebx+$02F4]
004EB288   8B10                   mov     edx, [eax]
004EB28A   FF92C4000000           call    dword ptr [edx+$00C4]
004EB290   84C0                   test    al, al
004EB292   741A                   jz      004EB2AE
004EB294   6A00                   push    $00
004EB296   6A00                   push    $00
004EB298   A180725000             mov     eax, dword ptr [$00507280]
004EB29D   8B00                   mov     eax, [eax]
004EB29F   8B8090050000           mov     eax, [eax+$0590]
004EB2A5   B1FD                   mov     cl, $FD
004EB2A7   B2AC                   mov     dl, $AC
004EB2A9   8B30                   mov     esi, [eax]
004EB2AB   FF5628                 call    dword ptr [esi+$28]
004EB2AE   8B83F8020000           mov     eax, [ebx+$02F8]
004EB2B4   8B10                   mov     edx, [eax]
004EB2B6   FF92C4000000           call    dword ptr [edx+$00C4]
004EB2BC   84C0                   test    al, al
004EB2BE   741A                   jz      004EB2DA
004EB2C0   6A00                   push    $00
004EB2C2   6A00                   push    $00
004EB2C4   A180725000             mov     eax, dword ptr [$00507280]
004EB2C9   8B00                   mov     eax, [eax]
004EB2CB   8B8090050000           mov     eax, [eax+$0590]
004EB2D1   B1F9                   mov     cl, $F9
004EB2D3   B2AC                   mov     dl, $AC
004EB2D5   8B18                   mov     ebx, [eax]
004EB2D7   FF5328                 call    dword ptr [ebx+$28]
004EB2DA   A180725000             mov     eax, dword ptr [$00507280]
004EB2DF   8B00                   mov     eax, [eax]
004EB2E1   8B8090050000           mov     eax, [eax+$0590]
004EB2E7   8B10                   mov     edx, [eax]
004EB2E9   FF5208                 call    dword ptr [edx+$08]

* Possible String Reference to: '命令已完成！'
|
004EB2EC   B804B34E00             mov     eax, $004EB304

* Reference to: Dialogs.ShowMessage(AnsiString);
|
004EB2F1   E8D65EF5FF             call    004411CC
004EB2F6   5E                     pop     esi
004EB2F7   5B                     pop     ebx
004EB2F8   C3                     ret

*)
end;

procedure Tat90s1200otherFrm.FormCreate(Sender : TObject);
begin
(*
004EB314   A180725000             mov     eax, dword ptr [$00507280]
004EB319   8B00                   mov     eax, [eax]
004EB31B   8B8090050000           mov     eax, [eax+$0590]

|
004EB321   E8C69AFAFF             call    00494DEC
004EB326   C3                     ret

*)
end;

procedure Tat90s1200otherFrm._PROC_004EB329(Sender : TObject);
begin
(*
004EB329   8BEC                   mov     ebp, esp
004EB32B   33C0                   xor     eax, eax
004EB32D   55                     push    ebp

* Possible String Reference to: '閹忨