frmmega8other.pas

酷鱼下载线源程序

unit FrmMega8other;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tmega8otherFrm=class(TForm)
    Panel1: N.A.;
    GroupBox1: N.A.;
    fh7: N.A.;
    fh6: N.A.;
    fh5: 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.;
    LBN3: N.A.;
    LBN2: N.A.;
    LBN5: N.A.;
    LBN4: 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 FormClose(Sender : TObject);
    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 Button7Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure _PROC_004F5F34(Sender : TObject);
    procedure _PROC_004F60B4(Sender : TObject);
    procedure _PROC_004F6333(Sender : TObject);
    procedure _PROC_004F66BD(Sender : TObject);
    procedure _PROC_004F66EC(Sender : TObject);
    procedure _PROC_004F66F4(Sender : TObject);
    procedure _PROC_004F6833(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  mega8otherFrm: Tmega8otherFrm;

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

implementation

{$R *.DFM}

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

*)
end;

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

|
004F6238   E827FBFFFF             call    004F5D64
004F623D   C3                     ret

*)
end;

procedure Tmega8otherFrm.Button2Click(Sender : TObject);
begin
(*
004F6240   53                     push    ebx
004F6241   56                     push    esi
004F6242   8BF0                   mov     esi, eax
004F6244   6A00                   push    $00
004F6246   668B0D34634F00         mov     cx, word ptr [$004F6334]
004F624D   B203                   mov     dl, $03

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

|
004F6254   E87BAEF4FF             call    004410D4
004F6259   83F806                 cmp     eax, +$06
004F625C   0F85CE000000           jnz     004F6330
004F6262   B3FF                   mov     bl, $FF
004F6264   8B863C030000           mov     eax, [esi+$033C]
004F626A   8B10                   mov     edx, [eax]
004F626C   FF92C4000000           call    dword ptr [edx+$00C4]
004F6272   84C0                   test    al, al
004F6274   7403                   jz      004F6279
004F6276   80E3DF                 and     bl, $DF
004F6279   8B8640030000           mov     eax, [esi+$0340]
004F627F   8B10                   mov     edx, [eax]
004F6281   FF92C4000000           call    dword ptr [edx+$00C4]
004F6287   84C0                   test    al, al
004F6289   7403                   jz      004F628E
004F628B   80E3EF                 and     bl, $EF
004F628E   8B8634030000           mov     eax, [esi+$0334]
004F6294   8B10                   mov     edx, [eax]
004F6296   FF92C4000000           call    dword ptr [edx+$00C4]
004F629C   84C0                   test    al, al
004F629E   7403                   jz      004F62A3
004F62A0   80E3F7                 and     bl, $F7
004F62A3   8B8638030000           mov     eax, [esi+$0338]
004F62A9   8B10                   mov     edx, [eax]
004F62AB   FF92C4000000           call    dword ptr [edx+$00C4]
004F62B1   84C0                   test    al, al
004F62B3   7403                   jz      004F62B8
004F62B5   80E3FB                 and     bl, $FB
004F62B8   8B862C030000           mov     eax, [esi+$032C]
004F62BE   8B10                   mov     edx, [eax]
004F62C0   FF92C4000000           call    dword ptr [edx+$00C4]
004F62C6   84C0                   test    al, al
004F62C8   7403                   jz      004F62CD
004F62CA   80E3FD                 and     bl, $FD
004F62CD   8B8630030000           mov     eax, [esi+$0330]
004F62D3   8B10                   mov     edx, [eax]
004F62D5   FF92C4000000           call    dword ptr [edx+$00C4]
004F62DB   84C0                   test    al, al
004F62DD   7403                   jz      004F62E2
004F62DF   80E3FE                 and     bl, $FE
004F62E2   A180725000             mov     eax, dword ptr [$00507280]
004F62E7   8B00                   mov     eax, [eax]
004F62E9   8B8090050000           mov     eax, [eax+$0590]
004F62EF   8B10                   mov     edx, [eax]
004F62F1   FF5204                 call    dword ptr [edx+$04]
004F62F4   6A00                   push    $00
004F62F6   53                     push    ebx
004F62F7   A180725000             mov     eax, dword ptr [$00507280]
004F62FC   8B00                   mov     eax, [eax]
004F62FE   8B8090050000           mov     eax, [eax+$0590]
004F6304   B1FF                   mov     cl, $FF
004F6306   B2AC                   mov     dl, $AC
004F6308   8B18                   mov     ebx, [eax]
004F630A   FF5328                 call    dword ptr [ebx+$28]
004F630D   A180725000             mov     eax, dword ptr [$00507280]
004F6312   8B00                   mov     eax, [eax]
004F6314   8B8090050000           mov     eax, [eax+$0590]
004F631A   8B10                   mov     edx, [eax]
004F631C   FF5208                 call    dword ptr [edx+$08]

* Possible String Reference to: '命令完成！'
|
004F631F   B874634F00             mov     eax, $004F6374

* Reference to: Dialogs.ShowMessage(AnsiString);
|
004F6324   E8A3AEF4FF             call    004411CC
004F6329   8BC6                   mov     eax, esi

|
004F632B   E834FAFFFF             call    004F5D64
004F6330   5E                     pop     esi
004F6331   5B                     pop     ebx
004F6332   C3                     ret

*)
end;

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

* Reference to : Tmega8otherFrm._PROC_004F5F34()
|
004F6380   E8AFFBFFFF             call    004F5F34
004F6385   C3                     ret

*)
end;

procedure Tmega8otherFrm.Button4Click(Sender : TObject);
begin
(*
004F6388   53                     push    ebx
004F6389   56                     push    esi
004F638A   8BF0                   mov     esi, eax