📄 frmmega161other.pas
字号:
unit FrmMega161other;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
Tmega161otherFrm=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.;
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.;
procedure Button1Click(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure Button5Click(Sender : TObject);
procedure Button6Click(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure _PROC_004ECD3F(Sender : TObject);
procedure _PROC_004ED1ED(Sender : TObject);
procedure _PROC_004ED21C(Sender : TObject);
procedure _PROC_004ED224(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
mega161otherFrm: Tmega161otherFrm;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure Tmega161otherFrm.Button1Click(Sender : TObject);
begin
(*
|
004ECC44 E873020000 call 004ECEBC
004ECC49 C3 ret
*)
end;
procedure Tmega161otherFrm.Button2Click(Sender : TObject);
begin
(*
004ECC4C 53 push ebx
004ECC4D 56 push esi
004ECC4E 8BF0 mov esi, eax
004ECC50 6A00 push $00
004ECC52 668B0D40CD4E00 mov cx, word ptr [$004ECD40]
004ECC59 B203 mov dl, $03
* Possible String Reference to: 'LB2,LB1锁定位一旦设置，不能恢复，是
| 否继续？'
|
004ECC5B B84CCD4E00 mov eax, $004ECD4C
|
004ECC60 E86F44F5FF call 004410D4
004ECC65 83F806 cmp eax, +$06
004ECC68 0F85CE000000 jnz 004ECD3C
004ECC6E B3FF mov bl, $FF
004ECC70 8B8610030000 mov eax, [esi+$0310]
004ECC76 8B10 mov edx, [eax]
004ECC78 FF92C4000000 call dword ptr [edx+$00C4]
004ECC7E 84C0 test al, al
004ECC80 7403 jz 004ECC85
004ECC82 80E3DF and bl, $DF
004ECC85 8B8614030000 mov eax, [esi+$0314]
004ECC8B 8B10 mov edx, [eax]
004ECC8D FF92C4000000 call dword ptr [edx+$00C4]
004ECC93 84C0 test al, al
004ECC95 7403 jz 004ECC9A
004ECC97 80E3EF and bl, $EF
004ECC9A 8B8608030000 mov eax, [esi+$0308]
004ECCA0 8B10 mov edx, [eax]
004ECCA2 FF92C4000000 call dword ptr [edx+$00C4]
004ECCA8 84C0 test al, al
004ECCAA 7403 jz 004ECCAF
004ECCAC 80E3F7 and bl, $F7
004ECCAF 8B860C030000 mov eax, [esi+$030C]
004ECCB5 8B10 mov edx, [eax]
004ECCB7 FF92C4000000 call dword ptr [edx+$00C4]
004ECCBD 84C0 test al, al
004ECCBF 7403 jz 004ECCC4
004ECCC1 80E3FB and bl, $FB
004ECCC4 8B8600030000 mov eax, [esi+$0300]
004ECCCA 8B10 mov edx, [eax]
004ECCCC FF92C4000000 call dword ptr [edx+$00C4]
004ECCD2 84C0 test al, al
004ECCD4 7403 jz 004ECCD9
004ECCD6 80E3FD and bl, $FD
004ECCD9 8B8604030000 mov eax, [esi+$0304]
004ECCDF 8B10 mov edx, [eax]
004ECCE1 FF92C4000000 call dword ptr [edx+$00C4]
004ECCE7 84C0 test al, al
004ECCE9 7403 jz 004ECCEE
004ECCEB 80E3FE and bl, $FE
004ECCEE A180725000 mov eax, dword ptr [$00507280]
004ECCF3 8B00 mov eax, [eax]
004ECCF5 8B8090050000 mov eax, [eax+$0590]
004ECCFB 8B10 mov edx, [eax]
004ECCFD FF5204 call dword ptr [edx+$04]
004ECD00 6A00 push $00
004ECD02 53 push ebx
004ECD03 A180725000 mov eax, dword ptr [$00507280]
004ECD08 8B00 mov eax, [eax]
004ECD0A 8B8090050000 mov eax, [eax+$0590]
004ECD10 B1FF mov cl, $FF
004ECD12 B2AC mov dl, $AC
004ECD14 8B18 mov ebx, [eax]
004ECD16 FF5328 call dword ptr [ebx+$28]
004ECD19 A180725000 mov eax, dword ptr [$00507280]
004ECD1E 8B00 mov eax, [eax]
004ECD20 8B8090050000 mov eax, [eax+$0590]
004ECD26 8B10 mov edx, [eax]
004ECD28 FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004ECD2B B880CD4E00 mov eax, $004ECD80
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004ECD30 E89744F5FF call 004411CC
004ECD35 8BC6 mov eax, esi
|
004ECD37 E880010000 call 004ECEBC
004ECD3C 5E pop esi
004ECD3D 5B pop ebx
004ECD3E C3 ret
*)
end;
procedure Tmega161otherFrm.Button5Click(Sender : TObject);
begin
(*
|
004ECD8C E8FB020000 call 004ED08C
004ECD91 C3 ret
*)
end;
procedure Tmega161otherFrm.Button6Click(Sender : TObject);
begin
(*
004ECD94 53 push ebx
004ECD95 56 push esi
004ECD96 8BF0 mov esi, eax
004ECD98 B3FF mov bl, $FF
004ECD9A 8B861C030000 mov eax, [esi+$031C]
004ECDA0 8B10 mov edx, [eax]
004ECDA2 FF92C4000000 call dword ptr [edx+$00C4]
004ECDA8 84C0 test al, al
004ECDAA 7403 jz 004ECDAF
004ECDAC 80E3BF and bl, $BF
004ECDAF 8B8620030000 mov eax, [esi+$0320]
004ECDB5 8B10 mov edx, [eax]
004ECDB7 FF92C4000000 call dword ptr [edx+$00C4]
004ECDBD 84C0 test al, al
004ECDBF 7403 jz 004ECDC4
004ECDC1 80E3DF and bl, $DF
004ECDC4 8B8624030000 mov eax, [esi+$0324]
004ECDCA 8B10 mov edx, [eax]
004ECDCC FF92C4000000 call dword ptr [edx+$00C4]
004ECDD2 84C0 test al, al
004ECDD4 7403 jz 004ECDD9
004ECDD6 80E3EF and bl, $EF
004ECDD9 8B8628030000 mov eax, [esi+$0328]
004ECDDF 8B10 mov edx, [eax]
004ECDE1 FF92C4000000 call dword ptr [edx+$00C4]
004ECDE7 84C0 test al, al
004ECDE9 7403 jz 004ECDEE
004ECDEB 80E3F7 and bl, $F7
004ECDEE 8B862C030000 mov eax, [esi+$032C]
004ECDF4 8B10 mov edx, [eax]
004ECDF6 FF92C4000000 call dword ptr [edx+$00C4]
004ECDFC 84C0 test al, al
004ECDFE 7403 jz 004ECE03
004ECE00 80E3FB and bl, $FB
004ECE03 8B8630030000 mov eax, [esi+$0330]
004ECE09 8B10 mov edx, [eax]
004ECE0B FF92C4000000 call dword ptr [edx+$00C4]
004ECE11 84C0 test al, al
004ECE13 7403 jz 004ECE18
004ECE15 80E3FD and bl, $FD
004ECE18 8B8634030000 mov eax, [esi+$0334]
004ECE1E 8B10 mov edx, [eax]
004ECE20 FF92C4000000 call dword ptr [edx+$00C4]
004ECE26 84C0 test al, al
004ECE28 7403 jz 004ECE2D
004ECE2A 80E3FE and bl, $FE
004ECE2D A180725000 mov eax, dword ptr [$00507280]
004ECE32 8B00 mov eax, [eax]
004ECE34 8B8090050000 mov eax, [eax+$0590]
004ECE3A 8B10 mov edx, [eax]
004ECE3C FF5204 call dword ptr [edx+$04]
004ECE3F 6A00 push $00
004ECE41 53 push ebx
004ECE42 A180725000 mov eax, dword ptr [$00507280]
004ECE47 8B00 mov eax, [eax]
004ECE49 8B8090050000 mov eax, [eax+$0590]
004ECE4F B1A0 mov cl, $A0
004ECE51 B2AC mov dl, $AC
004ECE53 8B18 mov ebx, [eax]
004ECE55 FF5328 call dword ptr [ebx+$28]
004ECE58 A180725000 mov eax, dword ptr [$00507280]
004ECE5D 8B00 mov eax, [eax]
004ECE5F 8B8090050000 mov eax, [eax+$0590]
004ECE65 8B10 mov edx, [eax]
004ECE67 FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004ECE6A B888CE4E00 mov eax, $004ECE88
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004ECE6F E85843F5FF call 004411CC
004ECE74 8BC6 mov eax, esi
|
004ECE76 E811020000 call 004ED08C
004ECE7B 5E pop esi
004ECE7C 5B pop ebx
004ECE7D C3 ret
*)
end;
procedure Tmega161otherFrm.FormCreate(Sender : TObject);
begin
(*
004ECE94 53 push ebx
004ECE95 8BD8 mov ebx, eax
004ECE97 A180725000 mov eax, dword ptr [$00507280]
004ECE9C 8B00 mov eax, [eax]
004ECE9E 8B8090050000 mov eax, [eax+$0590]
|
004ECEA4 E8437FFAFF call 00494DEC
004ECEA9 8BC3 mov eax, ebx
|
004ECEAB E80C000000 call 004ECEBC
004ECEB0 8BC3 mov eax, ebx
|
004ECEB2 E8D5010000 call 004ED08C
004ECEB7 5B pop ebx
004ECEB8 C3 ret
*)
end;
procedure Tmega161otherFrm.FormClose(Sender : TObject);
begin
(*
004ED1E8 C60102 mov byte ptr [ecx], $02
004ED1EB C3 ret
*)
end;
procedure Tmega161otherFrm._PROC_004ECD3F(Sender : TObject);
begin
(*
004ECD3F 0003 add [ebx], al
004ECD41 0000 add [eax], al
*)
end;
procedure Tmega161otherFrm._PROC_004ED1ED(Sender : TObject);
begin
(*
004ED1ED 8BEC mov ebp, esp
004ED1EF 33C0 xor eax, eax
004ED1F1 55 push ebp
* Possible String Reference to: '槭p⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -