📄 frmtiny15other.pas
字号:
unit FrmTiny15other;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TTiny15otherFrm=class(TForm)
Panel1: N.A.;
GroupBox2: N.A.;
Button1: N.A.;
Button2: N.A.;
LB2: N.A.;
LB1: N.A.;
GroupBox3: N.A.;
FL7: N.A.;
FL6: N.A.;
FL5: N.A.;
FL4: N.A.;
FL1: N.A.;
FL0: N.A.;
Button5: N.A.;
Button6: N.A.;
BitBtn1: N.A.;
Button7: N.A.;
procedure Button5Click(Sender : TObject);
procedure Button6Click(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure Button7Click(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure _PROC_004F391C(Sender : TObject);
procedure _PROC_004F3C6D(Sender : TObject);
procedure _PROC_004F3C9C(Sender : TObject);
procedure _PROC_004F3CA4(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Tiny15otherFrm: TTiny15otherFrm;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TTiny15otherFrm.Button5Click(Sender : TObject);
begin
(*
|
004F3784 E8AB030000 call 004F3B34
004F3789 C3 ret
*)
end;
procedure TTiny15otherFrm.Button6Click(Sender : TObject);
begin
(*
004F378C 53 push ebx
004F378D 56 push esi
004F378E 8BF0 mov esi, eax
004F3790 B3FF mov bl, $FF
004F3792 8B860C030000 mov eax, [esi+$030C]
004F3798 8B10 mov edx, [eax]
004F379A FF92C4000000 call dword ptr [edx+$00C4]
004F37A0 84C0 test al, al
004F37A2 7403 jz 004F37A7
004F37A4 80E37F and bl, $7F
004F37A7 8B8610030000 mov eax, [esi+$0310]
004F37AD 8B10 mov edx, [eax]
004F37AF FF92C4000000 call dword ptr [edx+$00C4]
004F37B5 84C0 test al, al
004F37B7 7403 jz 004F37BC
004F37B9 80E3BF and bl, $BF
004F37BC 8B8614030000 mov eax, [esi+$0314]
004F37C2 8B10 mov edx, [eax]
004F37C4 FF92C4000000 call dword ptr [edx+$00C4]
004F37CA 84C0 test al, al
004F37CC 7403 jz 004F37D1
004F37CE 80E3DF and bl, $DF
004F37D1 8B8618030000 mov eax, [esi+$0318]
004F37D7 8B10 mov edx, [eax]
004F37D9 FF92C4000000 call dword ptr [edx+$00C4]
004F37DF 84C0 test al, al
004F37E1 7403 jz 004F37E6
004F37E3 80E3EF and bl, $EF
004F37E6 8B861C030000 mov eax, [esi+$031C]
004F37EC 8B10 mov edx, [eax]
004F37EE FF92C4000000 call dword ptr [edx+$00C4]
004F37F4 84C0 test al, al
004F37F6 7403 jz 004F37FB
004F37F8 80E3FD and bl, $FD
004F37FB 8B8620030000 mov eax, [esi+$0320]
004F3801 8B10 mov edx, [eax]
004F3803 FF92C4000000 call dword ptr [edx+$00C4]
004F3809 84C0 test al, al
004F380B 7403 jz 004F3810
004F380D 80E3FE and bl, $FE
004F3810 A180725000 mov eax, dword ptr [$00507280]
004F3815 8B00 mov eax, [eax]
004F3817 8B8090050000 mov eax, [eax+$0590]
004F381D 8B10 mov edx, [eax]
004F381F FF5204 call dword ptr [edx+$04]
004F3822 6A00 push $00
004F3824 53 push ebx
004F3825 A180725000 mov eax, dword ptr [$00507280]
004F382A 8B00 mov eax, [eax]
004F382C 8B8090050000 mov eax, [eax+$0590]
004F3832 B1A0 mov cl, $A0
004F3834 B2AC mov dl, $AC
004F3836 8B18 mov ebx, [eax]
004F3838 FF5328 call dword ptr [ebx+$28]
004F383B A180725000 mov eax, dword ptr [$00507280]
004F3840 8B00 mov eax, [eax]
004F3842 8B8090050000 mov eax, [eax+$0590]
004F3848 8B10 mov edx, [eax]
004F384A FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004F384D B86C384F00 mov eax, $004F386C
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004F3852 E875D9F4FF call 004411CC
004F3857 8BC6 mov eax, esi
|
004F3859 E8D6020000 call 004F3B34
004F385E 5E pop esi
004F385F 5B pop ebx
004F3860 C3 ret
*)
end;
procedure TTiny15otherFrm.Button1Click(Sender : TObject);
begin
(*
|
004F3878 E8EB010000 call 004F3A68
004F387D C3 ret
*)
end;
procedure TTiny15otherFrm.Button2Click(Sender : TObject);
begin
(*
004F3880 53 push ebx
004F3881 56 push esi
004F3882 8BF0 mov esi, eax
004F3884 6A00 push $00
004F3886 668B0D1C394F00 mov cx, word ptr [$004F391C]
004F388D B203 mov dl, $03
* Possible String Reference to: 'LB2,LB1锁定位一旦设置，不能恢复，是
| 否继续？'
|
004F388F B828394F00 mov eax, $004F3928
|
004F3894 E83BD8F4FF call 004410D4
004F3899 83F806 cmp eax, +$06
004F389C 757B jnz 004F3919
004F389E B3FF mov bl, $FF
004F38A0 8B8600030000 mov eax, [esi+$0300]
004F38A6 8B10 mov edx, [eax]
004F38A8 FF92C4000000 call dword ptr [edx+$00C4]
004F38AE 84C0 test al, al
004F38B0 7403 jz 004F38B5
004F38B2 80E3FB and bl, $FB
004F38B5 8B8604030000 mov eax, [esi+$0304]
004F38BB 8B10 mov edx, [eax]
004F38BD FF92C4000000 call dword ptr [edx+$00C4]
004F38C3 84C0 test al, al
004F38C5 7403 jz 004F38CA
004F38C7 80E3FD and bl, $FD
004F38CA A180725000 mov eax, dword ptr [$00507280]
004F38CF 8B00 mov eax, [eax]
004F38D1 8B8090050000 mov eax, [eax+$0590]
004F38D7 8B10 mov edx, [eax]
004F38D9 FF5204 call dword ptr [edx+$04]
004F38DC 6A00 push $00
004F38DE 6A00 push $00
004F38E0 A180725000 mov eax, dword ptr [$00507280]
004F38E5 8B00 mov eax, [eax]
004F38E7 8B8090050000 mov eax, [eax+$0590]
004F38ED 8BCB mov ecx, ebx
004F38EF B2AC mov dl, $AC
004F38F1 8B18 mov ebx, [eax]
004F38F3 FF5328 call dword ptr [ebx+$28]
004F38F6 A180725000 mov eax, dword ptr [$00507280]
004F38FB 8B00 mov eax, [eax]
004F38FD 8B8090050000 mov eax, [eax+$0590]
004F3903 8B10 mov edx, [eax]
004F3905 FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004F3908 B85C394F00 mov eax, $004F395C
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004F390D E8BAD8F4FF call 004411CC
004F3912 8BC6 mov eax, esi
|
004F3914 E84F010000 call 004F3A68
004F3919 5E pop esi
004F391A 5B pop ebx
004F391B C3 ret
*)
end;
procedure TTiny15otherFrm.Button7Click(Sender : TObject);
begin
(*
004F3968 55 push ebp
004F3969 8BEC mov ebp, esp
004F396B 6A00 push $00
004F396D 6A00 push $00
004F396F 53 push ebx
004F3970 33C0 xor eax, eax
004F3972 55 push ebp
004F3973 68023A4F00 push $004F3A02
***** TRY
|
004F3978 64FF30 push dword ptr fs:[eax]
004F397B 648920 mov fs:[eax], esp
004F397E A180725000 mov eax, dword ptr [$00507280]
004F3983 8B00 mov eax, [eax]
004F3985 8B8090050000 mov eax, [eax+$0590]
004F398B 8B10 mov edx, [eax]
004F398D FF5204 call dword ptr [edx+$04]
004F3990 6A00 push $00
004F3992 6A00 push $00
004F3994 A180725000 mov eax, dword ptr [$00507280]
004F3999 8B00 mov eax, [eax]
004F399B 8B8090050000 mov eax, [eax+$0590]
004F39A1 33C9 xor ecx, ecx
004F39A3 B238 mov dl, $38
004F39A5 8B18 mov ebx, [eax]
004F39A7 FF5328 call dword ptr [ebx+$28]
004F39AA 8BD8 mov ebx, eax
004F39AC A180725000 mov eax, dword ptr [$00507280]
004F39B1 8B00 mov eax, [eax]
004F39B3 8B8090050000 mov eax, [eax+$0590]
004F39B9 8B10 mov edx, [eax]
004F39BB FF5208 call dword ptr [edx+$08]
004F39BE 8D4DF8 lea ecx, [ebp-$08]
004F39C1 33C0 xor eax, eax
004F39C3 8AC3 mov al, bl
004F39C5 BA02000000 mov edx, $00000002
* Reference to: SysUtils.IntToHex(Integer;Integer):AnsiString;overload;
|
004F39CA E8095CF1FF call 004095D8
004F39CF 8B4DF8 mov ecx, [ebp-$08]
004F39D2 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: '校准字节(Calibration Byte)值为：: 0
| x'
|
004F39D5 BA183A4F00 mov edx, $004F3A18
* Reference to: System.@LStrCat3;
|
004F39DA E84113F1FF call 00404D20
004F39DF 8B45FC mov eax, [ebp-$04]
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004F39E2 E8E5D7F4FF call 004411CC
004F39E7 33C0 xor eax, eax
004F39E9 5A pop edx
004F39EA 59 pop ecx
004F39EB 59 pop ecx
004F39EC 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[YY]⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -