📄 frmmega64other.pas
字号:
unit FrmMega64other;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
Tmega64otherFrm=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.;
groupbox4: N.A.;
Lm103c: N.A.;
Lwdton: N.A.;
Button8: N.A.;
Button9: 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 Button7Click(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure Button8Click(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure Button9Click(Sender : TObject);
procedure _PROC_004E967B(Sender : TObject);
procedure _PROC_004EA065(Sender : TObject);
procedure _PROC_004EA094(Sender : TObject);
procedure _PROC_004EA09C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
mega64otherFrm: Tmega64otherFrm;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure Tmega64otherFrm.Button1Click(Sender : TObject);
begin
(*
|
004E9580 E8A3040000 call 004E9A28
004E9585 C3 ret
*)
end;
procedure Tmega64otherFrm.Button2Click(Sender : TObject);
begin
(*
004E9588 53 push ebx
004E9589 56 push esi
004E958A 8BF0 mov esi, eax
004E958C 6A00 push $00
004E958E 668B0D7C964E00 mov cx, word ptr [$004E967C]
004E9595 B203 mov dl, $03
* Possible String Reference to: 'LB2,LB1锁定位一旦设置，不能恢复，是
| 否继续？'
|
004E9597 B888964E00 mov eax, $004E9688
|
004E959C E8337BF5FF call 004410D4
004E95A1 83F806 cmp eax, +$06
004E95A4 0F85CE000000 jnz 004E9678
004E95AA B3FF mov bl, $FF
004E95AC 8B863C030000 mov eax, [esi+$033C]
004E95B2 8B10 mov edx, [eax]
004E95B4 FF92C4000000 call dword ptr [edx+$00C4]
004E95BA 84C0 test al, al
004E95BC 7403 jz 004E95C1
004E95BE 80E3DF and bl, $DF
004E95C1 8B8640030000 mov eax, [esi+$0340]
004E95C7 8B10 mov edx, [eax]
004E95C9 FF92C4000000 call dword ptr [edx+$00C4]
004E95CF 84C0 test al, al
004E95D1 7403 jz 004E95D6
004E95D3 80E3EF and bl, $EF
004E95D6 8B8634030000 mov eax, [esi+$0334]
004E95DC 8B10 mov edx, [eax]
004E95DE FF92C4000000 call dword ptr [edx+$00C4]
004E95E4 84C0 test al, al
004E95E6 7403 jz 004E95EB
004E95E8 80E3F7 and bl, $F7
004E95EB 8B8638030000 mov eax, [esi+$0338]
004E95F1 8B10 mov edx, [eax]
004E95F3 FF92C4000000 call dword ptr [edx+$00C4]
004E95F9 84C0 test al, al
004E95FB 7403 jz 004E9600
004E95FD 80E3FB and bl, $FB
004E9600 8B862C030000 mov eax, [esi+$032C]
004E9606 8B10 mov edx, [eax]
004E9608 FF92C4000000 call dword ptr [edx+$00C4]
004E960E 84C0 test al, al
004E9610 7403 jz 004E9615
004E9612 80E3FD and bl, $FD
004E9615 8B8630030000 mov eax, [esi+$0330]
004E961B 8B10 mov edx, [eax]
004E961D FF92C4000000 call dword ptr [edx+$00C4]
004E9623 84C0 test al, al
004E9625 7403 jz 004E962A
004E9627 80E3FE and bl, $FE
004E962A A180725000 mov eax, dword ptr [$00507280]
004E962F 8B00 mov eax, [eax]
004E9631 8B8090050000 mov eax, [eax+$0590]
004E9637 8B10 mov edx, [eax]
004E9639 FF5204 call dword ptr [edx+$04]
004E963C 6A00 push $00
004E963E 53 push ebx
004E963F A180725000 mov eax, dword ptr [$00507280]
004E9644 8B00 mov eax, [eax]
004E9646 8B8090050000 mov eax, [eax+$0590]
004E964C B1FF mov cl, $FF
004E964E B2AC mov dl, $AC
004E9650 8B18 mov ebx, [eax]
004E9652 FF5328 call dword ptr [ebx+$28]
004E9655 A180725000 mov eax, dword ptr [$00507280]
004E965A 8B00 mov eax, [eax]
004E965C 8B8090050000 mov eax, [eax+$0590]
004E9662 8B10 mov edx, [eax]
004E9664 FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004E9667 B8BC964E00 mov eax, $004E96BC
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004E966C E85B7BF5FF call 004411CC
004E9671 8BC6 mov eax, esi
|
004E9673 E8B0030000 call 004E9A28
004E9678 5E pop esi
004E9679 5B pop ebx
004E967A C3 ret
*)
end;
procedure Tmega64otherFrm.Button3Click(Sender : TObject);
begin
(*
|
004E96C8 E82B050000 call 004E9BF8
004E96CD C3 ret
*)
end;
procedure Tmega64otherFrm.Button4Click(Sender : TObject);
begin
(*
004E96D0 53 push ebx
004E96D1 56 push esi
004E96D2 8BF0 mov esi, eax
004E96D4 B3FF mov bl, $FF
004E96D6 8B86F8020000 mov eax, [esi+$02F8]
004E96DC 8B10 mov edx, [eax]
004E96DE FF92C4000000 call dword ptr [edx+$00C4]
004E96E4 84C0 test al, al
004E96E6 7403 jz 004E96EB
004E96E8 80E37F and bl, $7F
004E96EB 8B86FC020000 mov eax, [esi+$02FC]
004E96F1 8B10 mov edx, [eax]
004E96F3 FF92C4000000 call dword ptr [edx+$00C4]
004E96F9 84C0 test al, al
004E96FB 7403 jz 004E9700
004E96FD 80E3BF and bl, $BF
004E9700 8B8600030000 mov eax, [esi+$0300]
004E9706 8B10 mov edx, [eax]
004E9708 FF92C4000000 call dword ptr [edx+$00C4]
004E970E 84C0 test al, al
004E9710 7403 jz 004E9715
004E9712 80E3DF and bl, $DF
004E9715 8B8604030000 mov eax, [esi+$0304]
004E971B 8B10 mov edx, [eax]
004E971D FF92C4000000 call dword ptr [edx+$00C4]
004E9723 84C0 test al, al
004E9725 7403 jz 004E972A
004E9727 80E3EF and bl, $EF
004E972A 8B8608030000 mov eax, [esi+$0308]
004E9730 8B10 mov edx, [eax]
004E9732 FF92C4000000 call dword ptr [edx+$00C4]
004E9738 84C0 test al, al
004E973A 7403 jz 004E973F
004E973C 80E3F7 and bl, $F7
004E973F 8B860C030000 mov eax, [esi+$030C]
004E9745 8B10 mov edx, [eax]
004E9747 FF92C4000000 call dword ptr [edx+$00C4]
004E974D 84C0 test al, al
004E974F 7403 jz 004E9754
004E9751 80E3FB and bl, $FB
004E9754 8B8610030000 mov eax, [esi+$0310]
004E975A 8B10 mov edx, [eax]
004E975C FF92C4000000 call dword ptr [edx+$00C4]
004E9762 84C0 test al, al
004E9764 7403 jz 004E9769
004E9766 80E3FD and bl, $FD
004E9769 8B8614030000 mov eax, [esi+$0314]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -