frmtiny13other.pas

酷鱼下载线源程序

unit FrmTiny13other;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TTiny13otherFrm=class(TForm)
    Panel1: N.A.;
    GroupBox1: 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.;
    BitBtn1: N.A.;
    Button7: N.A.;
    procedure Button1Click(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure Button3Click(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure Button5Click(Sender : TObject);
    procedure Button6Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure Button7Click(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure _PROC_004F2DBB(Sender : TObject);
    procedure _PROC_004F3461(Sender : TObject);
    procedure _PROC_004F3490(Sender : TObject);
    procedure _PROC_004F3498(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Tiny13otherFrm: TTiny13otherFrm;

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

implementation

{$R *.DFM}

procedure TTiny13otherFrm.Button1Click(Sender : TObject);
begin
(*

|
004F2D18   E80F030000             call    004F302C
004F2D1D   C3                     ret

*)
end;

procedure TTiny13otherFrm.Button2Click(Sender : TObject);
begin
(*
004F2D20   53                     push    ebx
004F2D21   56                     push    esi
004F2D22   8BF0                   mov     esi, eax
004F2D24   6A00                   push    $00
004F2D26   668B0DBC2D4F00         mov     cx, word ptr [$004F2DBC]
004F2D2D   B203                   mov     dl, $03

* Possible String Reference to: 'LB2,LB1锁定位一旦设置，不能恢复，是
|                                否继续？'
|
004F2D2F   B8C82D4F00             mov     eax, $004F2DC8

|
004F2D34   E89BE3F4FF             call    004410D4
004F2D39   83F806                 cmp     eax, +$06
004F2D3C   757A                   jnz     004F2DB8
004F2D3E   B3FF                   mov     bl, $FF
004F2D40   8B8620030000           mov     eax, [esi+$0320]
004F2D46   8B10                   mov     edx, [eax]
004F2D48   FF92C4000000           call    dword ptr [edx+$00C4]
004F2D4E   84C0                   test    al, al
004F2D50   7403                   jz      004F2D55
004F2D52   80E3FD                 and     bl, $FD
004F2D55   8B8624030000           mov     eax, [esi+$0324]
004F2D5B   8B10                   mov     edx, [eax]
004F2D5D   FF92C4000000           call    dword ptr [edx+$00C4]
004F2D63   84C0                   test    al, al
004F2D65   7403                   jz      004F2D6A
004F2D67   80E3FE                 and     bl, $FE
004F2D6A   A180725000             mov     eax, dword ptr [$00507280]
004F2D6F   8B00                   mov     eax, [eax]
004F2D71   8B8090050000           mov     eax, [eax+$0590]
004F2D77   8B10                   mov     edx, [eax]
004F2D79   FF5204                 call    dword ptr [edx+$04]
004F2D7C   6A00                   push    $00
004F2D7E   53                     push    ebx
004F2D7F   A180725000             mov     eax, dword ptr [$00507280]
004F2D84   8B00                   mov     eax, [eax]
004F2D86   8B8090050000           mov     eax, [eax+$0590]
004F2D8C   B1FF                   mov     cl, $FF
004F2D8E   B2AC                   mov     dl, $AC
004F2D90   8B18                   mov     ebx, [eax]
004F2D92   FF5328                 call    dword ptr [ebx+$28]
004F2D95   A180725000             mov     eax, dword ptr [$00507280]
004F2D9A   8B00                   mov     eax, [eax]
004F2D9C   8B8090050000           mov     eax, [eax+$0590]
004F2DA2   8B10                   mov     edx, [eax]
004F2DA4   FF5208                 call    dword ptr [edx+$08]

* Possible String Reference to: '命令完成！'
|
004F2DA7   B8FC2D4F00             mov     eax, $004F2DFC

* Reference to: Dialogs.ShowMessage(AnsiString);
|
004F2DAC   E81BE4F4FF             call    004411CC
004F2DB1   8BC6                   mov     eax, esi

|
004F2DB3   E874020000             call    004F302C
004F2DB8   5E                     pop     esi
004F2DB9   5B                     pop     ebx
004F2DBA   C3                     ret

*)
end;

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

|
004F2E08   E8EB020000             call    004F30F8
004F2E0D   C3                     ret

*)
end;

procedure TTiny13otherFrm.Button4Click(Sender : TObject);
begin
(*
004F2E10   53                     push    ebx
004F2E11   56                     push    esi
004F2E12   8BF0                   mov     esi, eax
004F2E14   B3FF                   mov     bl, $FF
004F2E16   8B86F8020000           mov     eax, [esi+$02F8]
004F2E1C   8B10                   mov     edx, [eax]
004F2E1E   FF92C4000000           call    dword ptr [edx+$00C4]
004F2E24   84C0                   test    al, al
004F2E26   7403                   jz      004F2E2B
004F2E28   80E3EF                 and     bl, $EF
004F2E2B   8B86FC020000           mov     eax, [esi+$02FC]
004F2E31   8B10                   mov     edx, [eax]
004F2E33   FF92C4000000           call    dword ptr [edx+$00C4]
004F2E39   84C0                   test    al, al
004F2E3B   7403                   jz      004F2E40
004F2E3D   80E3F7                 and     bl, $F7
004F2E40   8B8600030000           mov     eax, [esi+$0300]
004F2E46   8B10                   mov     edx, [eax]
004F2E48   FF92C4000000           call    dword ptr [edx+$00C4]
004F2E4E   84C0                   test    al, al
004F2E50   7403                   jz      004F2E55
004F2E52   80E3FB                 and     bl, $FB
004F2E55   8B8604030000           mov     eax, [esi+$0304]
004F2E5B   8B10                   mov     edx, [eax]
004F2E5D   FF92C4000000           call    dword ptr [edx+$00C4]
004F2E63   84C0                   test    al, al
004F2E65   7403                   jz      004F2E6A
004F2E67   80E3FD                 and     bl, $FD
004F2E6A   8B8608030000           mov     eax, [esi+$0308]
004F2E70   8B10                   mov     edx, [eax]
004F2E72   FF92C4000000           call    dword ptr [edx+$00C4]
004F2E78   84C0                   test    al, al
004F2E7A   7403                   jz      004F2E7F
004F2E7C   80E3FE                 and     bl, $FE
004F2E7F   A180725000             mov     eax, dword ptr [$00507280]
004F2E84   8B00                   mov     eax, [eax]
004F2E86   8B8090050000           mov     eax, [eax+$0590]
004F2E8C   8B10                   mov     edx, [eax]
004F2E8E   FF5204                 call    dword ptr [edx+$04]
004F2E91   6A00                   push    $00
004F2E93   53                     push    ebx
004F2E94   A180725000             mov     eax, dword ptr [$00507280]
004F2E99   8B00                   mov     eax, [eax]
004F2E9B   8B8090050000           mov     eax, [eax+$0590]
004F2EA1   B1A8                   mov     cl, $A8
004F2EA3   B2AC                   mov     dl, $AC
004F2EA5   8B18                   mov     ebx, [eax]
004F2EA7   FF5328                 call    dword ptr [ebx+$28]
004F2EAA   A180725000             mov     eax, dword ptr [$00507280]
004F2EAF   8B00                   mov     eax, [eax]
004F2EB1   8B8090050000           mov     eax, [eax+$0590]
004F2EB7   8B10                   mov     edx, [eax]
004F2EB9   FF5208                 call    dword ptr [edx+$08]

* Possible String Reference to: '命令完成！'
|
004F2EBC   B8D82E4F00             mov     eax, $004F2ED8