📄 frmtiny26other.pas
字号:
unit FrmTiny26other;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TTiny26otherFrm=class(TForm)
Panel1: N.A.;
GroupBox1: 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.;
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.;
procedure Button3Click(Sender : TObject);
procedure Button4Click(Sender : TObject);
procedure Button5Click(Sender : TObject);
procedure Button6Click(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure Button7Click(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure _PROC_004F504F(Sender : TObject);
procedure _PROC_004F5549(Sender : TObject);
procedure _PROC_004F5578(Sender : TObject);
procedure _PROC_004F5580(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Tiny26otherFrm: TTiny26otherFrm;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TTiny26otherFrm.Button3Click(Sender : TObject);
begin
(*
|
004F4DB4 E8DB030000 call 004F5194
004F4DB9 C3 ret
*)
end;
procedure TTiny26otherFrm.Button4Click(Sender : TObject);
begin
(*
004F4DBC 53 push ebx
004F4DBD 56 push esi
004F4DBE 8BF0 mov esi, eax
004F4DC0 B3FF mov bl, $FF
004F4DC2 8B86F8020000 mov eax, [esi+$02F8]
004F4DC8 8B10 mov edx, [eax]
004F4DCA FF92C4000000 call dword ptr [edx+$00C4]
004F4DD0 84C0 test al, al
004F4DD2 7403 jz 004F4DD7
004F4DD4 80E3EF and bl, $EF
004F4DD7 8B86FC020000 mov eax, [esi+$02FC]
004F4DDD 8B10 mov edx, [eax]
004F4DDF FF92C4000000 call dword ptr [edx+$00C4]
004F4DE5 84C0 test al, al
004F4DE7 7403 jz 004F4DEC
004F4DE9 80E3F7 and bl, $F7
004F4DEC 8B8600030000 mov eax, [esi+$0300]
004F4DF2 8B10 mov edx, [eax]
004F4DF4 FF92C4000000 call dword ptr [edx+$00C4]
004F4DFA 84C0 test al, al
004F4DFC 7403 jz 004F4E01
004F4DFE 80E3FB and bl, $FB
004F4E01 8B8604030000 mov eax, [esi+$0304]
004F4E07 8B10 mov edx, [eax]
004F4E09 FF92C4000000 call dword ptr [edx+$00C4]
004F4E0F 84C0 test al, al
004F4E11 7403 jz 004F4E16
004F4E13 80E3FD and bl, $FD
004F4E16 8B8608030000 mov eax, [esi+$0308]
004F4E1C 8B10 mov edx, [eax]
004F4E1E FF92C4000000 call dword ptr [edx+$00C4]
004F4E24 84C0 test al, al
004F4E26 7403 jz 004F4E2B
004F4E28 80E3FE and bl, $FE
004F4E2B A180725000 mov eax, dword ptr [$00507280]
004F4E30 8B00 mov eax, [eax]
004F4E32 8B8090050000 mov eax, [eax+$0590]
004F4E38 8B10 mov edx, [eax]
004F4E3A FF5204 call dword ptr [edx+$04]
004F4E3D 6A00 push $00
004F4E3F 53 push ebx
004F4E40 A180725000 mov eax, dword ptr [$00507280]
004F4E45 8B00 mov eax, [eax]
004F4E47 8B8090050000 mov eax, [eax+$0590]
004F4E4D B1A8 mov cl, $A8
004F4E4F B2AC mov dl, $AC
004F4E51 8B18 mov ebx, [eax]
004F4E53 FF5328 call dword ptr [ebx+$28]
004F4E56 A180725000 mov eax, dword ptr [$00507280]
004F4E5B 8B00 mov eax, [eax]
004F4E5D 8B8090050000 mov eax, [eax+$0590]
004F4E63 8B10 mov edx, [eax]
004F4E65 FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004F4E68 B8844E4F00 mov eax, $004F4E84
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004F4E6D E85AC3F4FF call 004411CC
004F4E72 8BC6 mov eax, esi
|
004F4E74 E81B030000 call 004F5194
004F4E79 5E pop esi
004F4E7A 5B pop ebx
004F4E7B C3 ret
*)
end;
procedure TTiny26otherFrm.Button5Click(Sender : TObject);
begin
(*
|
004F4E90 E80B040000 call 004F52A0
004F4E95 C3 ret
*)
end;
procedure TTiny26otherFrm.Button6Click(Sender : TObject);
begin
(*
004F4E98 53 push ebx
004F4E99 56 push esi
004F4E9A 8BF0 mov esi, eax
004F4E9C B3FF mov bl, $FF
004F4E9E 8B862C030000 mov eax, [esi+$032C]
004F4EA4 8B10 mov edx, [eax]
004F4EA6 FF92C4000000 call dword ptr [edx+$00C4]
004F4EAC 84C0 test al, al
004F4EAE 7403 jz 004F4EB3
004F4EB0 80E37F and bl, $7F
004F4EB3 8B8630030000 mov eax, [esi+$0330]
004F4EB9 8B10 mov edx, [eax]
004F4EBB FF92C4000000 call dword ptr [edx+$00C4]
004F4EC1 84C0 test al, al
004F4EC3 7403 jz 004F4EC8
004F4EC5 80E3BF and bl, $BF
004F4EC8 8B8634030000 mov eax, [esi+$0334]
004F4ECE 8B10 mov edx, [eax]
004F4ED0 FF92C4000000 call dword ptr [edx+$00C4]
004F4ED6 84C0 test al, al
004F4ED8 7403 jz 004F4EDD
004F4EDA 80E3DF and bl, $DF
004F4EDD 8B8638030000 mov eax, [esi+$0338]
004F4EE3 8B10 mov edx, [eax]
004F4EE5 FF92C4000000 call dword ptr [edx+$00C4]
004F4EEB 84C0 test al, al
004F4EED 7403 jz 004F4EF2
004F4EEF 80E3EF and bl, $EF
004F4EF2 8B863C030000 mov eax, [esi+$033C]
004F4EF8 8B10 mov edx, [eax]
004F4EFA FF92C4000000 call dword ptr [edx+$00C4]
004F4F00 84C0 test al, al
004F4F02 7403 jz 004F4F07
004F4F04 80E3F7 and bl, $F7
004F4F07 8B8640030000 mov eax, [esi+$0340]
004F4F0D 8B10 mov edx, [eax]
004F4F0F FF92C4000000 call dword ptr [edx+$00C4]
004F4F15 84C0 test al, al
004F4F17 7403 jz 004F4F1C
004F4F19 80E3FB and bl, $FB
004F4F1C 8B8644030000 mov eax, [esi+$0344]
004F4F22 8B10 mov edx, [eax]
004F4F24 FF92C4000000 call dword ptr [edx+$00C4]
004F4F2A 84C0 test al, al
004F4F2C 7403 jz 004F4F31
004F4F2E 80E3FD and bl, $FD
004F4F31 8B8648030000 mov eax, [esi+$0348]
004F4F37 8B10 mov edx, [eax]
004F4F39 FF92C4000000 call dword ptr [edx+$00C4]
004F4F3F 84C0 test al, al
004F4F41 7403 jz 004F4F46
004F4F43 80E3FE and bl, $FE
004F4F46 A180725000 mov eax, dword ptr [$00507280]
004F4F4B 8B00 mov eax, [eax]
004F4F4D 8B8090050000 mov eax, [eax+$0590]
004F4F53 8B10 mov edx, [eax]
004F4F55 FF5204 call dword ptr [edx+$04]
004F4F58 6A00 push $00
004F4F5A 53 push ebx
004F4F5B A180725000 mov eax, dword ptr [$00507280]
004F4F60 8B00 mov eax, [eax]
004F4F62 8B8090050000 mov eax, [eax+$0590]
004F4F68 B1A0 mov cl, $A0
004F4F6A B2AC mov dl, $AC
004F4F6C 8B18 mov ebx, [eax]
004F4F6E FF5328 call dword ptr [ebx+$28]
004F4F71 A180725000 mov eax, dword ptr [$00507280]
004F4F76 8B00 mov eax, [eax]
004F4F78 8B8090050000 mov eax, [eax+$0590]
004F4F7E 8B10 mov edx, [eax]
004F4F80 FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004F4F83 B8A04F4F00 mov eax, $004F4FA0
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004F4F88 E83FC2F4FF call 004411CC
004F4F8D 8BC6 mov eax, esi
|
004F4F8F E80C030000 call 004F52A0
004F4F94 5E pop esi
004F4F95 5B pop ebx
004F4F96 C3 ret
*)
end;
procedure TTiny26otherFrm.Button1Click(Sender : TObject);
begin
(*
|
004F4FAC E817010000 call 004F50C8
004F4FB1 C3 ret
*)
end;
procedure TTiny26otherFrm.Button2Click(Sender : TObject);
begin
(*
004F4FB4 53 push ebx
004F4FB5 56 push esi
004F4FB6 8BF0 mov esi, eax
004F4FB8 6A00 push $00
004F4FBA 668B0D50504F00 mov cx, word ptr [$004F5050]
004F4FC1 B203 mov dl, $03
* Possible String Reference to: 'LB2,LB1锁定位一旦设置，不能恢复，是
| 否继续？'
|
004F4FC3 B85C504F00 mov eax, $004F505C
|
004F4FC8 E807C1F4FF call 004410D4
004F4FCD 83F806 cmp eax, +$06
004F4FD0 757A jnz 004F504C
004F4FD2 B3FF mov bl, $FF
004F4FD4 8B8620030000 mov eax, [esi+$0320]
004F4FDA 8B10 mov edx, [eax]
004F4FDC FF92C4000000 call dword ptr [edx+$00C4]
004F4FE2 84C0 test al, al
004F4FE4 7403 jz 004F4FE9
004F4FE6 80E3FD and bl, $FD
004F4FE9 8B8624030000 mov eax, [esi+$0324]
004F4FEF 8B10 mov edx, [eax]
004F4FF1 FF92C4000000 call dword ptr [edx+$00C4]
004F4FF7 84C0 test al, al
004F4FF9 7403 jz 004F4FFE
004F4FFB 80E3FE and bl, $FE
004F4FFE A180725000 mov eax, dword ptr [$00507280]
004F5003 8B00 mov eax, [eax]
004F5005 8B8090050000 mov eax, [eax+$0590]
004F500B 8B10 mov edx, [eax]
004F500D FF5204 call dword ptr [edx+$04]
004F5010 6A00 push $00
004F5012 53 push ebx
004F5013 A180725000 mov eax, dword ptr [$00507280]
004F5018 8B00 mov eax, [eax]
004F501A 8B8090050000 mov eax, [eax+$0590]
004F5020 B1FF mov cl, $FF
004F5022 B2AC mov dl, $AC
004F5024 8B18 mov ebx, [eax]
004F5026 FF5328 call dword ptr [ebx+$28]
004F5029 A180725000 mov eax, dword ptr [$00507280]
004F502E 8B00 mov eax, [eax]
004F5030 8B8090050000 mov eax, [eax+$0590]
004F5036 8B10 mov edx, [eax]
004F5038 FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004F503B B890504F00 mov eax, $004F5090
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004F5040 E887C1F4FF call 004411CC
004F5045 8BC6 mov eax, esi
|
004F5047 E87C000000 call 004F50C8
004F504C 5E pop esi
004F504D 5B pop ebx
004F504E C3 ret
*)
end;
procedure TTiny26otherFrm.FormCreate(Sender : TObject);
begin
(*
004F509C 53 push ebx
004F509D 8BD8 mov ebx, eax
004F509F A180725000 mov eax, dword ptr [$00507280]
004F50A4 8B00 mov eax, [eax]
004F50A6 8B8090050000 mov eax, [eax+$0590]
|
004F50AC E83BFDF9FF call 00494DEC
004F50B1 8BC3 mov eax, ebx
|
004F50B3 E810000000 call 004F50C8
004F50B8 8BC3 mov eax, ebx
|
004F50BA E8D5000000 call 004F5194
004F50BF 8BC3 mov eax, ebx
|
004F50C1 E8DA010000 call 004F52A0
004F50C6 5B pop ebx
004F50C7 C3 ret
*)
end;
procedure TTiny26otherFrm.Button7Click(Sender : TObject);
begin
(*
004F5420 55 push ebp
004F5421 8BEC mov ebp, esp
004F5423 33C9 xor ecx, ecx
004F5425 51 push ecx
004F5426 51 push ecx
004F5427 51 push ecx
004F5428 51 push ecx
004F5429 53 push ebx
004F542A 56 push esi
004F542B 57 push edi
004F542C 8B3580725000 mov esi, [$00507280]
004F5432 33C0 xor eax, eax
004F5434 55 push ebp
* Possible String Reference to: '轸眇⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -