frmmega16other.pas

酷鱼下载线源程序

unit FrmMega16other;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tmega16otherFrm=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 Button2Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure Button3Click(Sender : TObject);
    procedure Button5Click(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure Button6Click(Sender : TObject);
    procedure Button7Click(Sender : TObject);
    procedure _PROC_004E6E80(Sender : TObject);
    procedure _PROC_004E7050(Sender : TObject);
    procedure _PROC_004E71D0(Sender : TObject);
    procedure _PROC_004E7443(Sender : TObject);
    procedure _PROC_004E77D5(Sender : TObject);
    procedure _PROC_004E7804(Sender : TObject);
    procedure _PROC_004E780C(Sender : TObject);
    procedure _PROC_004E7B2A(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  mega16otherFrm: Tmega16otherFrm;

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

implementation

{$R *.DFM}

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

*)
end;

procedure Tmega16otherFrm.Button2Click(Sender : TObject);
begin
(*
004E7350   53                     push    ebx
004E7351   56                     push    esi
004E7352   8BF0                   mov     esi, eax
004E7354   6A00                   push    $00
004E7356   668B0D44744E00         mov     cx, word ptr [$004E7444]
004E735D   B203                   mov     dl, $03

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

|
004E7364   E86B9DF5FF             call    004410D4
004E7369   83F806                 cmp     eax, +$06
004E736C   0F85CE000000           jnz     004E7440
004E7372   B3FF                   mov     bl, $FF
004E7374   8B863C030000           mov     eax, [esi+$033C]
004E737A   8B10                   mov     edx, [eax]
004E737C   FF92C4000000           call    dword ptr [edx+$00C4]
004E7382   84C0                   test    al, al
004E7384   7403                   jz      004E7389
004E7386   80E3DF                 and     bl, $DF
004E7389   8B8640030000           mov     eax, [esi+$0340]
004E738F   8B10                   mov     edx, [eax]
004E7391   FF92C4000000           call    dword ptr [edx+$00C4]
004E7397   84C0                   test    al, al
004E7399   7403                   jz      004E739E
004E739B   80E3EF                 and     bl, $EF
004E739E   8B8634030000           mov     eax, [esi+$0334]
004E73A4   8B10                   mov     edx, [eax]
004E73A6   FF92C4000000           call    dword ptr [edx+$00C4]
004E73AC   84C0                   test    al, al
004E73AE   7403                   jz      004E73B3
004E73B0   80E3F7                 and     bl, $F7
004E73B3   8B8638030000           mov     eax, [esi+$0338]
004E73B9   8B10                   mov     edx, [eax]
004E73BB   FF92C4000000           call    dword ptr [edx+$00C4]
004E73C1   84C0                   test    al, al
004E73C3   7403                   jz      004E73C8
004E73C5   80E3FB                 and     bl, $FB
004E73C8   8B862C030000           mov     eax, [esi+$032C]
004E73CE   8B10                   mov     edx, [eax]
004E73D0   FF92C4000000           call    dword ptr [edx+$00C4]
004E73D6   84C0                   test    al, al
004E73D8   7403                   jz      004E73DD
004E73DA   80E3FD                 and     bl, $FD
004E73DD   8B8630030000           mov     eax, [esi+$0330]
004E73E3   8B10                   mov     edx, [eax]
004E73E5   FF92C4000000           call    dword ptr [edx+$00C4]
004E73EB   84C0                   test    al, al
004E73ED   7403                   jz      004E73F2
004E73EF   80E3FE                 and     bl, $FE
004E73F2   A180725000             mov     eax, dword ptr [$00507280]
004E73F7   8B00                   mov     eax, [eax]
004E73F9   8B8090050000           mov     eax, [eax+$0590]
004E73FF   8B10                   mov     edx, [eax]
004E7401   FF5204                 call    dword ptr [edx+$04]
004E7404   6A00                   push    $00
004E7406   53                     push    ebx
004E7407   A180725000             mov     eax, dword ptr [$00507280]
004E740C   8B00                   mov     eax, [eax]
004E740E   8B8090050000           mov     eax, [eax+$0590]
004E7414   B1FF                   mov     cl, $FF
004E7416   B2AC                   mov     dl, $AC
004E7418   8B18                   mov     ebx, [eax]
004E741A   FF5328                 call    dword ptr [ebx+$28]
004E741D   A180725000             mov     eax, dword ptr [$00507280]
004E7422   8B00                   mov     eax, [eax]
004E7424   8B8090050000           mov     eax, [eax+$0590]
004E742A   8B10                   mov     edx, [eax]
004E742C   FF5208                 call    dword ptr [edx+$08]

* Possible String Reference to: '命令完成！'
|
004E742F   B884744E00             mov     eax, $004E7484

* Reference to: Dialogs.ShowMessage(AnsiString);
|
004E7434   E8939DF5FF             call    004411CC
004E7439   8BC6                   mov     eax, esi

* Reference to : Tmega16otherFrm._PROC_004E6E80()
|
004E743B   E840FAFFFF             call    004E6E80
004E7440   5E                     pop     esi
004E7441   5B                     pop     ebx
004E7442   C3                     ret

*)
end;

procedure Tmega16otherFrm.FormCreate(Sender : TObject);
begin
(*
004E7490   53                     push    ebx
004E7491   8BD8                   mov     ebx, eax
004E7493   A180725000             mov     eax, dword ptr [$00507280]
004E7498   8B00                   mov     eax, [eax]
004E749A   8B8090050000           mov     eax, [eax+$0590]

|
004E74A0   E847D9FAFF             call    00494DEC
004E74A5   8BC3                   mov     eax, ebx

* Reference to : Tmega16otherFrm._PROC_004E6E80()
|
004E74A7   E8D4F9FFFF             call    004E6E80
004E74AC   8BC3                   mov     eax, ebx

* Reference to : Tmega16otherFrm._PROC_004E7050()
|
004E74AE   E89DFBFFFF             call    004E7050
004E74B3   8BC3                   mov     eax, ebx

* Reference to : Tmega16otherFrm._PROC_004E71D0()
|
004E74B5   E816FDFFFF             call    004E71D0
004E74BA   5B                     pop     ebx
004E74BB   C3                     ret

*)
end;

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

* Reference to : Tmega16otherFrm._PROC_004E6E80()
|
004E74BC   E8BFF9FFFF             call    004E6E80
004E74C1   C3                     ret

*)
end;

procedure Tmega16otherFrm.Button3Click(Sender : TObject);