📄 frmmega162other.pas
字号:
unit FrmMega162other;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
Tmega162otherFrm=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.;
groupbox4: N.A.;
LEF1: N.A.;
Button8: N.A.;
Button9: N.A.;
LEF2: N.A.;
LEF3: N.A.;
BitBtn1: N.A.;
Button7: 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 Button8Click(Sender : TObject);
procedure Button9Click(Sender : TObject);
procedure Button7Click(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure _PROC_004ED767(Sender : TObject);
procedure _PROC_004EE141(Sender : TObject);
procedure _PROC_004EE170(Sender : TObject);
procedure _PROC_004EE178(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
mega162otherFrm: Tmega162otherFrm;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure Tmega162otherFrm.Button1Click(Sender : TObject);
begin
(*
|
004ED66C E83B050000 call 004EDBAC
004ED671 C3 ret
*)
end;
procedure Tmega162otherFrm.Button2Click(Sender : TObject);
begin
(*
004ED674 53 push ebx
004ED675 56 push esi
004ED676 8BF0 mov esi, eax
004ED678 6A00 push $00
004ED67A 668B0D68D74E00 mov cx, word ptr [$004ED768]
004ED681 B203 mov dl, $03
* Possible String Reference to: 'LB2,LB1锁定位一旦设置，不能恢复，是
| 否继续？'
|
004ED683 B874D74E00 mov eax, $004ED774
|
004ED688 E8473AF5FF call 004410D4
004ED68D 83F806 cmp eax, +$06
004ED690 0F85CE000000 jnz 004ED764
004ED696 B3FF mov bl, $FF
004ED698 8B863C030000 mov eax, [esi+$033C]
004ED69E 8B10 mov edx, [eax]
004ED6A0 FF92C4000000 call dword ptr [edx+$00C4]
004ED6A6 84C0 test al, al
004ED6A8 7403 jz 004ED6AD
004ED6AA 80E3DF and bl, $DF
004ED6AD 8B8640030000 mov eax, [esi+$0340]
004ED6B3 8B10 mov edx, [eax]
004ED6B5 FF92C4000000 call dword ptr [edx+$00C4]
004ED6BB 84C0 test al, al
004ED6BD 7403 jz 004ED6C2
004ED6BF 80E3EF and bl, $EF
004ED6C2 8B8634030000 mov eax, [esi+$0334]
004ED6C8 8B10 mov edx, [eax]
004ED6CA FF92C4000000 call dword ptr [edx+$00C4]
004ED6D0 84C0 test al, al
004ED6D2 7403 jz 004ED6D7
004ED6D4 80E3F7 and bl, $F7
004ED6D7 8B8638030000 mov eax, [esi+$0338]
004ED6DD 8B10 mov edx, [eax]
004ED6DF FF92C4000000 call dword ptr [edx+$00C4]
004ED6E5 84C0 test al, al
004ED6E7 7403 jz 004ED6EC
004ED6E9 80E3FB and bl, $FB
004ED6EC 8B862C030000 mov eax, [esi+$032C]
004ED6F2 8B10 mov edx, [eax]
004ED6F4 FF92C4000000 call dword ptr [edx+$00C4]
004ED6FA 84C0 test al, al
004ED6FC 7403 jz 004ED701
004ED6FE 80E3FD and bl, $FD
004ED701 8B8630030000 mov eax, [esi+$0330]
004ED707 8B10 mov edx, [eax]
004ED709 FF92C4000000 call dword ptr [edx+$00C4]
004ED70F 84C0 test al, al
004ED711 7403 jz 004ED716
004ED713 80E3FE and bl, $FE
004ED716 A180725000 mov eax, dword ptr [$00507280]
004ED71B 8B00 mov eax, [eax]
004ED71D 8B8090050000 mov eax, [eax+$0590]
004ED723 8B10 mov edx, [eax]
004ED725 FF5204 call dword ptr [edx+$04]
004ED728 6A00 push $00
004ED72A 53 push ebx
004ED72B A180725000 mov eax, dword ptr [$00507280]
004ED730 8B00 mov eax, [eax]
004ED732 8B8090050000 mov eax, [eax+$0590]
004ED738 B1FF mov cl, $FF
004ED73A B2AC mov dl, $AC
004ED73C 8B18 mov ebx, [eax]
004ED73E FF5328 call dword ptr [ebx+$28]
004ED741 A180725000 mov eax, dword ptr [$00507280]
004ED746 8B00 mov eax, [eax]
004ED748 8B8090050000 mov eax, [eax+$0590]
004ED74E 8B10 mov edx, [eax]
004ED750 FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004ED753 B8A8D74E00 mov eax, $004ED7A8
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004ED758 E86F3AF5FF call 004411CC
004ED75D 8BC6 mov eax, esi
|
004ED75F E848040000 call 004EDBAC
004ED764 5E pop esi
004ED765 5B pop ebx
004ED766 C3 ret
*)
end;
procedure Tmega162otherFrm.Button3Click(Sender : TObject);
begin
(*
|
004ED7B4 E8C3050000 call 004EDD7C
004ED7B9 C3 ret
*)
end;
procedure Tmega162otherFrm.Button4Click(Sender : TObject);
begin
(*
004ED7BC 53 push ebx
004ED7BD 56 push esi
004ED7BE 8BF0 mov esi, eax
004ED7C0 B3FF mov bl, $FF
004ED7C2 8B86F8020000 mov eax, [esi+$02F8]
004ED7C8 8B10 mov edx, [eax]
004ED7CA FF92C4000000 call dword ptr [edx+$00C4]
004ED7D0 84C0 test al, al
004ED7D2 7403 jz 004ED7D7
004ED7D4 80E37F and bl, $7F
004ED7D7 8B86FC020000 mov eax, [esi+$02FC]
004ED7DD 8B10 mov edx, [eax]
004ED7DF FF92C4000000 call dword ptr [edx+$00C4]
004ED7E5 84C0 test al, al
004ED7E7 7403 jz 004ED7EC
004ED7E9 80E3BF and bl, $BF
004ED7EC 8B8600030000 mov eax, [esi+$0300]
004ED7F2 8B10 mov edx, [eax]
004ED7F4 FF92C4000000 call dword ptr [edx+$00C4]
004ED7FA 84C0 test al, al
004ED7FC 7403 jz 004ED801
004ED7FE 80E3DF and bl, $DF
004ED801 8B8604030000 mov eax, [esi+$0304]
004ED807 8B10 mov edx, [eax]
004ED809 FF92C4000000 call dword ptr [edx+$00C4]
004ED80F 84C0 test al, al
004ED811 7403 jz 004ED816
004ED813 80E3EF and bl, $EF
004ED816 8B8608030000 mov eax, [esi+$0308]
004ED81C 8B10 mov edx, [eax]
004ED81E FF92C4000000 call dword ptr [edx+$00C4]
004ED824 84C0 test al, al
004ED826 7403 jz 004ED82B
004ED828 80E3F7 and bl, $F7
004ED82B 8B860C030000 mov eax, [esi+$030C]
004ED831 8B10 mov edx, [eax]
004ED833 FF92C4000000 call dword ptr [edx+$00C4]
004ED839 84C0 test al, al
004ED83B 7403 jz 004ED840
004ED83D 80E3FB and bl, $FB
004ED840 8B8610030000 mov eax, [esi+$0310]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -