📄 frmmega163other.pas
字号:
unit FrmMega163other;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
Tmega163otherFrm=class(TForm)
Panel1: 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.;
FL3: N.A.;
FL2: N.A.;
FL1: N.A.;
FL0: N.A.;
Button5: N.A.;
Button6: N.A.;
BitBtn1: N.A.;
Button7: N.A.;
GroupBox1: N.A.;
fh2: N.A.;
fh1: N.A.;
fh0: N.A.;
Button3: N.A.;
Button4: N.A.;
procedure Button1Click(Sender : TObject);
procedure Button3Click(Sender : TObject);
procedure Button5Click(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure Button4Click(Sender : TObject);
procedure Button6Click(Sender : TObject);
procedure Button7Click(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure _PROC_004EE613(Sender : TObject);
procedure _PROC_004EECC5(Sender : TObject);
procedure _PROC_004EECF4(Sender : TObject);
procedure _PROC_004EECFC(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
mega163otherFrm: Tmega163otherFrm;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure Tmega163otherFrm.Button1Click(Sender : TObject);
begin
(*
|
004EE508 E8EF030000 call 004EE8FC
004EE50D C3 ret
*)
end;
procedure Tmega163otherFrm.Button3Click(Sender : TObject);
begin
(*
|
004EE510 E8B7050000 call 004EEACC
004EE515 C3 ret
*)
end;
procedure Tmega163otherFrm.Button5Click(Sender : TObject);
begin
(*
|
004EE518 E86F060000 call 004EEB8C
004EE51D C3 ret
*)
end;
procedure Tmega163otherFrm.Button2Click(Sender : TObject);
begin
(*
004EE520 53 push ebx
004EE521 56 push esi
004EE522 8BF0 mov esi, eax
004EE524 6A00 push $00
004EE526 668B0D14E64E00 mov cx, word ptr [$004EE614]
004EE52D B203 mov dl, $03
* Possible String Reference to: 'LB2,LB1锁定位一旦设置，不能恢复，是
| 否继续？'
|
004EE52F B820E64E00 mov eax, $004EE620
|
004EE534 E89B2BF5FF call 004410D4
004EE539 83F806 cmp eax, +$06
004EE53C 0F85CE000000 jnz 004EE610
004EE542 B3FF mov bl, $FF
004EE544 8B8610030000 mov eax, [esi+$0310]
004EE54A 8B10 mov edx, [eax]
004EE54C FF92C4000000 call dword ptr [edx+$00C4]
004EE552 84C0 test al, al
004EE554 7403 jz 004EE559
004EE556 80E3DF and bl, $DF
004EE559 8B8614030000 mov eax, [esi+$0314]
004EE55F 8B10 mov edx, [eax]
004EE561 FF92C4000000 call dword ptr [edx+$00C4]
004EE567 84C0 test al, al
004EE569 7403 jz 004EE56E
004EE56B 80E3EF and bl, $EF
004EE56E 8B8608030000 mov eax, [esi+$0308]
004EE574 8B10 mov edx, [eax]
004EE576 FF92C4000000 call dword ptr [edx+$00C4]
004EE57C 84C0 test al, al
004EE57E 7403 jz 004EE583
004EE580 80E3F7 and bl, $F7
004EE583 8B860C030000 mov eax, [esi+$030C]
004EE589 8B10 mov edx, [eax]
004EE58B FF92C4000000 call dword ptr [edx+$00C4]
004EE591 84C0 test al, al
004EE593 7403 jz 004EE598
004EE595 80E3FB and bl, $FB
004EE598 8B8600030000 mov eax, [esi+$0300]
004EE59E 8B10 mov edx, [eax]
004EE5A0 FF92C4000000 call dword ptr [edx+$00C4]
004EE5A6 84C0 test al, al
004EE5A8 7403 jz 004EE5AD
004EE5AA 80E3FD and bl, $FD
004EE5AD 8B8604030000 mov eax, [esi+$0304]
004EE5B3 8B10 mov edx, [eax]
004EE5B5 FF92C4000000 call dword ptr [edx+$00C4]
004EE5BB 84C0 test al, al
004EE5BD 7403 jz 004EE5C2
004EE5BF 80E3FE and bl, $FE
004EE5C2 A180725000 mov eax, dword ptr [$00507280]
004EE5C7 8B00 mov eax, [eax]
004EE5C9 8B8090050000 mov eax, [eax+$0590]
004EE5CF 8B10 mov edx, [eax]
004EE5D1 FF5204 call dword ptr [edx+$04]
004EE5D4 6A00 push $00
004EE5D6 53 push ebx
004EE5D7 A180725000 mov eax, dword ptr [$00507280]
004EE5DC 8B00 mov eax, [eax]
004EE5DE 8B8090050000 mov eax, [eax+$0590]
004EE5E4 B1FF mov cl, $FF
004EE5E6 B2AC mov dl, $AC
004EE5E8 8B18 mov ebx, [eax]
004EE5EA FF5328 call dword ptr [ebx+$28]
004EE5ED A180725000 mov eax, dword ptr [$00507280]
004EE5F2 8B00 mov eax, [eax]
004EE5F4 8B8090050000 mov eax, [eax+$0590]
004EE5FA 8B10 mov edx, [eax]
004EE5FC FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004EE5FF B854E64E00 mov eax, $004EE654
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004EE604 E8C32BF5FF call 004411CC
004EE609 8BC6 mov eax, esi
|
004EE60B E8EC020000 call 004EE8FC
004EE610 5E pop esi
004EE611 5B pop ebx
004EE612 C3 ret
*)
end;
procedure Tmega163otherFrm.Button4Click(Sender : TObject);
begin
(*
004EE660 53 push ebx
004EE661 56 push esi
004EE662 8BF0 mov esi, eax
004EE664 B3FF mov bl, $FF
004EE666 8B8648030000 mov eax, [esi+$0348]
004EE66C 8B10 mov edx, [eax]
004EE66E FF92C4000000 call dword ptr [edx+$00C4]
004EE674 84C0 test al, al
004EE676 7403 jz 004EE67B
004EE678 80E3FB and bl, $FB
004EE67B 8B864C030000 mov eax, [esi+$034C]
004EE681 8B10 mov edx, [eax]
004EE683 FF92C4000000 call dword ptr [edx+$00C4]
004EE689 84C0 test al, al
004EE68B 7403 jz 004EE690
004EE68D 80E3FD and bl, $FD
004EE690 8B8650030000 mov eax, [esi+$0350]
004EE696 8B10 mov edx, [eax]
004EE698 FF92C4000000 call dword ptr [edx+$00C4]
004EE69E 84C0 test al, al
004EE6A0 7403 jz 004EE6A5
004EE6A2 80E3FE and bl, $FE
004EE6A5 A180725000 mov eax, dword ptr [$00507280]
004EE6AA 8B00 mov eax, [eax]
004EE6AC 8B8090050000 mov eax, [eax+$0590]
004EE6B2 8B10 mov edx, [eax]
004EE6B4 FF5204 call dword ptr [edx+$04]
004EE6B7 6A00 push $00
004EE6B9 53 push ebx
004EE6BA A180725000 mov eax, dword ptr [$00507280]
004EE6BF 8B00 mov eax, [eax]
004EE6C1 8B8090050000 mov eax, [eax+$0590]
004EE6C7 B1A8 mov cl, $A8
004EE6C9 B2AC mov dl, $AC
004EE6CB 8B18 mov ebx, [eax]
004EE6CD FF5328 call dword ptr [ebx+$28]
004EE6D0 A180725000 mov eax, dword ptr [$00507280]
004EE6D5 8B00 mov eax, [eax]
004EE6D7 8B8090050000 mov eax, [eax+$0590]
004EE6DD 8B10 mov edx, [eax]
004EE6DF FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004EE6E2 B800E74E00 mov eax, $004EE700
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004EE6E7 E8E02AF5FF call 004411CC
004EE6EC 8BC6 mov eax, esi
|
004EE6EE E8D9030000 call 004EEACC
004EE6F3 5E pop esi
004EE6F4 5B pop ebx
004EE6F5 C3 ret
*)
end;
procedure Tmega163otherFrm.Button6Click(Sender : TObject);
begin
(*
004EE70C 53 push ebx
004EE70D 56 push esi
004EE70E 8BF0 mov esi, eax
004EE710 B3FF mov bl, $FF
004EE712 8B861C030000 mov eax, [esi+$031C]
004EE718 8B10 mov edx, [eax]
004EE71A FF92C4000000 call dword ptr [edx+$00C4]
004EE720 84C0 test al, al
004EE722 7403 jz 004EE727
004EE724 80E37F and bl, $7F
004EE727 8B8620030000 mov eax, [esi+$0320]
004EE72D 8B10 mov edx, [eax]
004EE72F FF92C4000000 call dword ptr [edx+$00C4]
004EE735 84C0 test al, al
004EE737 7403 jz 004EE73C
004EE739 80E3BF and bl, $BF
004EE73C 8B8624030000 mov eax, [esi+$0324]
004EE742 8B10 mov edx, [eax]
004EE744 FF92C4000000 call dword ptr [edx+$00C4]
004EE74A 84C0 test al, al
004EE74C 7403 jz 004EE751
004EE74E 80E3F7 and bl, $F7
004EE751 8B8628030000 mov eax, [esi+$0328]
004EE757 8B10 mov edx, [eax]
004EE759 FF92C4000000 call dword ptr [edx+$00C4]
004EE75F 84C0 test al, al
004EE761 7403 jz 004EE766
004EE763 80E3FB and bl, $FB
004EE766 8B862C030000 mov eax, [esi+$032C]
004EE76C 8B10 mov edx, [eax]
004EE76E FF92C4000000 call dword ptr [edx+$00C4]
004EE774 84C0 test al, al
004EE776 7403 jz 004EE77B
004EE778 80E3FD and bl, $FD
004EE77B 8B8630030000 mov eax, [esi+$0330]
004EE781 8B10 mov edx, [eax]
004EE783 FF92C4000000 call dword ptr [edx+$00C4]
004EE789 84C0 test al, al
004EE78B 7403 jz 004EE790
004EE78D 80E3FE and bl, $FE
004EE790 A180725000 mov eax, dword ptr [$00507280]
004EE795 8B00 mov eax, [eax]
004EE797 8B8090050000 mov eax, [eax+$0590]
004EE79D 8B10 mov edx, [eax]
004EE79F FF5204 call dword ptr [edx+$04]
004EE7A2 6A00 push $00
004EE7A4 53 push ebx
004EE7A5 A180725000 mov eax, dword ptr [$00507280]
004EE7AA 8B00 mov eax, [eax]
004EE7AC 8B8090050000 mov eax, [eax+$0590]
004EE7B2 B1A0 mov cl, $A0
004EE7B4 B2AC mov dl, $AC
004EE7B6 8B18 mov ebx, [eax]
004EE7B8 FF5328 call dword ptr [ebx+$28]
004EE7BB A180725000 mov eax, dword ptr [$00507280]
004EE7C0 8B00 mov eax, [eax]
004EE7C2 8B8090050000 mov eax, [eax+$0590]
004EE7C8 8B10 mov edx, [eax]
004EE7CA FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004EE7CD B8ECE74E00 mov eax, $004EE7EC
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004EE7D2 E8F529F5FF call 004411CC
004EE7D7 8BC6 mov eax, esi
|
004EE7D9 E8AE030000 call 004EEB8C
004EE7DE 5E pop esi
004EE7DF 5B pop ebx
004EE7E0 C3 ret
*)
end;
procedure Tmega163otherFrm.Button7Click(Sender : TObject);
begin
(*
004EE7F8 55 push ebp
004EE7F9 8BEC mov ebp, esp
004EE7FB 6A00 push $00
004EE7FD 6A00 push $00
004EE7FF 53 push ebx
004EE800 33C0 xor eax, eax
004EE802 55 push ebp
* Possible String Reference to: '镮Z⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -