📄 frm90can128other.pas
字号:
unit Frm90Can128other;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
Tat90can128otherFrm=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.;
LEF0: N.A.;
Button8: N.A.;
Button9: N.A.;
BitBtn1: N.A.;
Button7: N.A.;
LEF2: N.A.;
LEF3: 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_004EA5F3(Sender : TObject);
procedure _PROC_004EB005(Sender : TObject);
procedure _PROC_004EB034(Sender : TObject);
procedure _PROC_004EB03C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
at90can128otherFrm: Tat90can128otherFrm;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure Tat90can128otherFrm.Button1Click(Sender : TObject);
begin
(*
|
004EA4F8 E853050000 call 004EAA50
004EA4FD C3 ret
*)
end;
procedure Tat90can128otherFrm.Button2Click(Sender : TObject);
begin
(*
004EA500 53 push ebx
004EA501 56 push esi
004EA502 8BF0 mov esi, eax
004EA504 6A00 push $00
004EA506 668B0DF4A54E00 mov cx, word ptr [$004EA5F4]
004EA50D B203 mov dl, $03
* Possible String Reference to: 'LB2,LB1锁定位一旦设置，不能恢复，是
| 否继续？'
|
004EA50F B800A64E00 mov eax, $004EA600
|
004EA514 E8BB6BF5FF call 004410D4
004EA519 83F806 cmp eax, +$06
004EA51C 0F85CE000000 jnz 004EA5F0
004EA522 B3FF mov bl, $FF
004EA524 8B863C030000 mov eax, [esi+$033C]
004EA52A 8B10 mov edx, [eax]
004EA52C FF92C4000000 call dword ptr [edx+$00C4]
004EA532 84C0 test al, al
004EA534 7403 jz 004EA539
004EA536 80E3DF and bl, $DF
004EA539 8B8640030000 mov eax, [esi+$0340]
004EA53F 8B10 mov edx, [eax]
004EA541 FF92C4000000 call dword ptr [edx+$00C4]
004EA547 84C0 test al, al
004EA549 7403 jz 004EA54E
004EA54B 80E3EF and bl, $EF
004EA54E 8B8634030000 mov eax, [esi+$0334]
004EA554 8B10 mov edx, [eax]
004EA556 FF92C4000000 call dword ptr [edx+$00C4]
004EA55C 84C0 test al, al
004EA55E 7403 jz 004EA563
004EA560 80E3F7 and bl, $F7
004EA563 8B8638030000 mov eax, [esi+$0338]
004EA569 8B10 mov edx, [eax]
004EA56B FF92C4000000 call dword ptr [edx+$00C4]
004EA571 84C0 test al, al
004EA573 7403 jz 004EA578
004EA575 80E3FB and bl, $FB
004EA578 8B862C030000 mov eax, [esi+$032C]
004EA57E 8B10 mov edx, [eax]
004EA580 FF92C4000000 call dword ptr [edx+$00C4]
004EA586 84C0 test al, al
004EA588 7403 jz 004EA58D
004EA58A 80E3FD and bl, $FD
004EA58D 8B8630030000 mov eax, [esi+$0330]
004EA593 8B10 mov edx, [eax]
004EA595 FF92C4000000 call dword ptr [edx+$00C4]
004EA59B 84C0 test al, al
004EA59D 7403 jz 004EA5A2
004EA59F 80E3FE and bl, $FE
004EA5A2 A180725000 mov eax, dword ptr [$00507280]
004EA5A7 8B00 mov eax, [eax]
004EA5A9 8B8090050000 mov eax, [eax+$0590]
004EA5AF 8B10 mov edx, [eax]
004EA5B1 FF5204 call dword ptr [edx+$04]
004EA5B4 6A00 push $00
004EA5B6 53 push ebx
004EA5B7 A180725000 mov eax, dword ptr [$00507280]
004EA5BC 8B00 mov eax, [eax]
004EA5BE 8B8090050000 mov eax, [eax+$0590]
004EA5C4 B1FF mov cl, $FF
004EA5C6 B2AC mov dl, $AC
004EA5C8 8B18 mov ebx, [eax]
004EA5CA FF5328 call dword ptr [ebx+$28]
004EA5CD A180725000 mov eax, dword ptr [$00507280]
004EA5D2 8B00 mov eax, [eax]
004EA5D4 8B8090050000 mov eax, [eax+$0590]
004EA5DA 8B10 mov edx, [eax]
004EA5DC FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004EA5DF B834A64E00 mov eax, $004EA634
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004EA5E4 E8E36BF5FF call 004411CC
004EA5E9 8BC6 mov eax, esi
|
004EA5EB E860040000 call 004EAA50
004EA5F0 5E pop esi
004EA5F1 5B pop ebx
004EA5F2 C3 ret
*)
end;
procedure Tat90can128otherFrm.Button3Click(Sender : TObject);
begin
(*
|
004EA640 E8DB050000 call 004EAC20
004EA645 C3 ret
*)
end;
procedure Tat90can128otherFrm.Button4Click(Sender : TObject);
begin
(*
004EA648 53 push ebx
004EA649 56 push esi
004EA64A 8BF0 mov esi, eax
004EA64C B3FF mov bl, $FF
004EA64E 8B86F8020000 mov eax, [esi+$02F8]
004EA654 8B10 mov edx, [eax]
004EA656 FF92C4000000 call dword ptr [edx+$00C4]
004EA65C 84C0 test al, al
004EA65E 7403 jz 004EA663
004EA660 80E37F and bl, $7F
004EA663 8B86FC020000 mov eax, [esi+$02FC]
004EA669 8B10 mov edx, [eax]
004EA66B FF92C4000000 call dword ptr [edx+$00C4]
004EA671 84C0 test al, al
004EA673 7403 jz 004EA678
004EA675 80E3BF and bl, $BF
004EA678 8B8600030000 mov eax, [esi+$0300]
004EA67E 8B10 mov edx, [eax]
004EA680 FF92C4000000 call dword ptr [edx+$00C4]
004EA686 84C0 test al, al
004EA688 7403 jz 004EA68D
004EA68A 80E3DF and bl, $DF
004EA68D 8B8604030000 mov eax, [esi+$0304]
004EA693 8B10 mov edx, [eax]
004EA695 FF92C4000000 call dword ptr [edx+$00C4]
004EA69B 84C0 test al, al
004EA69D 7403 jz 004EA6A2
004EA69F 80E3EF and bl, $EF
004EA6A2 8B8608030000 mov eax, [esi+$0308]
004EA6A8 8B10 mov edx, [eax]
004EA6AA FF92C4000000 call dword ptr [edx+$00C4]
004EA6B0 84C0 test al, al
004EA6B2 7403 jz 004EA6B7
004EA6B4 80E3F7 and bl, $F7
004EA6B7 8B860C030000 mov eax, [esi+$030C]
004EA6BD 8B10 mov edx, [eax]
004EA6BF FF92C4000000 call dword ptr [edx+$00C4]
004EA6C5 84C0 test al, al
004EA6C7 7403 jz 004EA6CC
004EA6C9 80E3FB and bl, $FB
004EA6CC 8B8610030000 mov eax, [esi+$0310]
004EA6D2 8B10 mov edx, [eax]
004EA6D4 FF92C4000000 call dword ptr [edx+$00C4]
004EA6DA 84C0 test al, al
004EA6DC 7403 jz 004EA6E1
004EA6DE 80E3FD and bl, $FD
004EA6E1 8B8614030000 mov eax, [esi+$0314]
004EA6E7 8B10 mov edx, [eax]
004EA6E9 FF92C4000000 call dword ptr [edx+$00C4]
004EA6EF 84C0 test al, al
004EA6F1 7403 jz 004EA6F6
004EA6F3 80E3FE and bl, $FE
004EA6F6 A180725000 mov eax, dword ptr [$00507280]
004EA6FB 8B00 mov eax, [eax]
004EA6FD 8B8090050000 mov eax, [eax+$0590]
004EA703 8B10 mov edx, [eax]
004EA705 FF5204 call dword ptr [edx+$04]
004EA708 6A00 push $00
004EA70A 53 push ebx
004EA70B A180725000 mov eax, dword ptr [$00507280]
004EA710 8B00 mov eax, [eax]
004EA712 8B8090050000 mov eax, [eax+$0590]
004EA718 B1A8 mov cl, $A8
004EA71A B2AC mov dl, $AC
004EA71C 8B18 mov ebx, [eax]
004EA71E FF5328 call dword ptr [ebx+$28]
004EA721 A180725000 mov eax, dword ptr [$00507280]
004EA726 8B00 mov eax, [eax]
004EA728 8B8090050000 mov eax, [eax+$0590]
004EA72E 8B10 mov edx, [eax]
004EA730 FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -