frmmega8535other.pas

酷鱼下载线源程序

unit FrmMega8535other;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tmega8535otherFrm=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 FormCreate(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 FormClose(Sender : TObject);
    procedure _PROC_004E888F(Sender : TObject);
    procedure _PROC_004E910D(Sender : TObject);
    procedure _PROC_004E913C(Sender : TObject);
    procedure _PROC_004E9145(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  mega8535otherFrm: Tmega8535otherFrm;

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

implementation

{$R *.DFM}

procedure Tmega8535otherFrm.FormCreate(Sender : TObject);
begin
(*
004E8768   53                     push    ebx
004E8769   8BD8                   mov     ebx, eax
004E876B   A180725000             mov     eax, dword ptr [$00507280]
004E8770   8B00                   mov     eax, [eax]
004E8772   8B8090050000           mov     eax, [eax+$0590]

|
004E8778   E86FC6FAFF             call    00494DEC
004E877D   8BC3                   mov     eax, ebx

|
004E877F   E8B8040000             call    004E8C3C
004E8784   8BC3                   mov     eax, ebx

|
004E8786   E881060000             call    004E8E0C
004E878B   8BC3                   mov     eax, ebx

|
004E878D   E8FA070000             call    004E8F8C
004E8792   5B                     pop     ebx
004E8793   C3                     ret

*)
end;

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

|
004E8794   E8A3040000             call    004E8C3C
004E8799   C3                     ret

*)
end;

procedure Tmega8535otherFrm.Button2Click(Sender : TObject);
begin
(*
004E879C   53                     push    ebx
004E879D   56                     push    esi
004E879E   8BF0                   mov     esi, eax
004E87A0   6A00                   push    $00
004E87A2   668B0D90884E00         mov     cx, word ptr [$004E8890]
004E87A9   B203                   mov     dl, $03

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

|
004E87B0   E81F89F5FF             call    004410D4
004E87B5   83F806                 cmp     eax, +$06
004E87B8   0F85CE000000           jnz     004E888C
004E87BE   B3FF                   mov     bl, $FF
004E87C0   8B863C030000           mov     eax, [esi+$033C]
004E87C6   8B10                   mov     edx, [eax]
004E87C8   FF92C4000000           call    dword ptr [edx+$00C4]
004E87CE   84C0                   test    al, al
004E87D0   7403                   jz      004E87D5
004E87D2   80E3DF                 and     bl, $DF
004E87D5   8B8640030000           mov     eax, [esi+$0340]
004E87DB   8B10                   mov     edx, [eax]
004E87DD   FF92C4000000           call    dword ptr [edx+$00C4]
004E87E3   84C0                   test    al, al
004E87E5   7403                   jz      004E87EA
004E87E7   80E3EF                 and     bl, $EF
004E87EA   8B8634030000           mov     eax, [esi+$0334]
004E87F0   8B10                   mov     edx, [eax]
004E87F2   FF92C4000000           call    dword ptr [edx+$00C4]
004E87F8   84C0                   test    al, al
004E87FA   7403                   jz      004E87FF
004E87FC   80E3F7                 and     bl, $F7
004E87FF   8B8638030000           mov     eax, [esi+$0338]
004E8805   8B10                   mov     edx, [eax]
004E8807   FF92C4000000           call    dword ptr [edx+$00C4]
004E880D   84C0                   test    al, al
004E880F   7403                   jz      004E8814
004E8811   80E3FB                 and     bl, $FB
004E8814   8B862C030000           mov     eax, [esi+$032C]
004E881A   8B10                   mov     edx, [eax]
004E881C   FF92C4000000           call    dword ptr [edx+$00C4]
004E8822   84C0                   test    al, al
004E8824   7403                   jz      004E8829
004E8826   80E3FD                 and     bl, $FD
004E8829   8B8630030000           mov     eax, [esi+$0330]
004E882F   8B10                   mov     edx, [eax]
004E8831   FF92C4000000           call    dword ptr [edx+$00C4]
004E8837   84C0                   test    al, al
004E8839   7403                   jz      004E883E
004E883B   80E3FE                 and     bl, $FE
004E883E   A180725000             mov     eax, dword ptr [$00507280]
004E8843   8B00                   mov     eax, [eax]
004E8845   8B8090050000           mov     eax, [eax+$0590]
004E884B   8B10                   mov     edx, [eax]
004E884D   FF5204                 call    dword ptr [edx+$04]
004E8850   6A00                   push    $00
004E8852   53                     push    ebx
004E8853   A180725000             mov     eax, dword ptr [$00507280]
004E8858   8B00                   mov     eax, [eax]
004E885A   8B8090050000           mov     eax, [eax+$0590]
004E8860   B1FF                   mov     cl, $FF
004E8862   B2AC                   mov     dl, $AC
004E8864   8B18                   mov     ebx, [eax]
004E8866   FF5328                 call    dword ptr [ebx+$28]
004E8869   A180725000             mov     eax, dword ptr [$00507280]
004E886E   8B00                   mov     eax, [eax]
004E8870   8B8090050000           mov     eax, [eax+$0590]
004E8876   8B10                   mov     edx, [eax]
004E8878   FF5208                 call    dword ptr [edx+$08]

* Possible String Reference to: '命令完成！'
|
004E887B   B8D0884E00             mov     eax, $004E88D0

* Reference to: Dialogs.ShowMessage(AnsiString);
|
004E8880   E84789F5FF             call    004411CC
004E8885   8BC6                   mov     eax, esi

|
004E8887   E8B0030000             call    004E8C3C
004E888C   5E                     pop     esi
004E888D   5B                     pop     ebx
004E888E   C3                     ret

*)
end;

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

|
004E88DC   E82B050000             call    004E8E0C
004E88E1   C3                     ret

*)
end;