frmtiny22other.pas

酷鱼下载线源程序

unit FrmTiny22other;

interface

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

var
  Tiny22otherFrm: TTiny22otherFrm;

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

implementation

{$R *.DFM}

procedure TTiny22otherFrm.BitBtn1Click(Sender : TObject);
begin
(*
004F57D0   53                     push    ebx
004F57D1   56                     push    esi
004F57D2   8BD8                   mov     ebx, eax
004F57D4   A180725000             mov     eax, dword ptr [$00507280]
004F57D9   8B00                   mov     eax, [eax]
004F57DB   8B8090050000           mov     eax, [eax+$0590]
004F57E1   8B10                   mov     edx, [eax]
004F57E3   FF5204                 call    dword ptr [edx+$04]
004F57E6   8B83F4020000           mov     eax, [ebx+$02F4]
004F57EC   8B10                   mov     edx, [eax]
004F57EE   FF92C4000000           call    dword ptr [edx+$00C4]
004F57F4   84C0                   test    al, al
004F57F6   741A                   jz      004F5812
004F57F8   6A00                   push    $00
004F57FA   6A00                   push    $00
004F57FC   A180725000             mov     eax, dword ptr [$00507280]
004F5801   8B00                   mov     eax, [eax]
004F5803   8B8090050000           mov     eax, [eax+$0590]
004F5809   B1FD                   mov     cl, $FD
004F580B   B2AC                   mov     dl, $AC
004F580D   8B30                   mov     esi, [eax]
004F580F   FF5628                 call    dword ptr [esi+$28]
004F5812   8B83F8020000           mov     eax, [ebx+$02F8]
004F5818   8B10                   mov     edx, [eax]
004F581A   FF92C4000000           call    dword ptr [edx+$00C4]
004F5820   84C0                   test    al, al
004F5822   741A                   jz      004F583E
004F5824   6A00                   push    $00
004F5826   6A00                   push    $00
004F5828   A180725000             mov     eax, dword ptr [$00507280]
004F582D   8B00                   mov     eax, [eax]
004F582F   8B8090050000           mov     eax, [eax+$0590]
004F5835   B1F9                   mov     cl, $F9
004F5837   B2AC                   mov     dl, $AC
004F5839   8B30                   mov     esi, [eax]
004F583B   FF5628                 call    dword ptr [esi+$28]
004F583E   A180725000             mov     eax, dword ptr [$00507280]
004F5843   8B00                   mov     eax, [eax]
004F5845   8B8090050000           mov     eax, [eax+$0590]
004F584B   8B10                   mov     edx, [eax]
004F584D   FF5208                 call    dword ptr [edx+$08]
004F5850   8BC3                   mov     eax, ebx

|
004F5852   E845000000             call    004F589C

* Possible String Reference to: '命令已完成！'
|
004F5857   B86C584F00             mov     eax, $004F586C

* Reference to: Dialogs.ShowMessage(AnsiString);
|
004F585C   E86BB9F4FF             call    004411CC
004F5861   5E                     pop     esi
004F5862   5B                     pop     ebx
004F5863   C3                     ret

*)
end;

procedure TTiny22otherFrm.FormCreate(Sender : TObject);
begin
(*
004F587C   53                     push    ebx
004F587D   8BD8                   mov     ebx, eax
004F587F   A180725000             mov     eax, dword ptr [$00507280]
004F5884   8B00                   mov     eax, [eax]
004F5886   8B8090050000           mov     eax, [eax+$0590]

|
004F588C   E85BF5F9FF             call    00494DEC
004F5891   8BC3                   mov     eax, ebx

|
004F5893   E804000000             call    004F589C
004F5898   5B                     pop     ebx
004F5899   C3                     ret

*)
end;

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

*)
end;

procedure TTiny22otherFrm._PROC_004F595D(Sender : TObject);
begin
(*
004F595D   8BEC                   mov     ebp, esp
004F595F   33C0                   xor     eax, eax
004F5961   55                     push    ebp

* Possible String Reference to: '閆轲