📄 frmtiny12other.pas
字号:
unit FrmTiny12other;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
Ttiny12otherFrm=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.;
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 Button5Click(Sender : TObject);
procedure Button6Click(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure Button7Click(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure _PROC_004F2908(Sender : TObject);
procedure _PROC_004F2959(Sender : TObject);
procedure _PROC_004F2988(Sender : TObject);
procedure _PROC_004F2990(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
tiny12otherFrm: Ttiny12otherFrm;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure Ttiny12otherFrm.Button5Click(Sender : TObject);
begin
(*
|
004F23FC E83F010000 call 004F2540
004F2401 C3 ret
*)
end;
procedure Ttiny12otherFrm.Button6Click(Sender : TObject);
begin
(*
004F2404 53 push ebx
004F2405 56 push esi
004F2406 8BF0 mov esi, eax
004F2408 B3FF mov bl, $FF
004F240A 8B860C030000 mov eax, [esi+$030C]
004F2410 8B10 mov edx, [eax]
004F2412 FF92C4000000 call dword ptr [edx+$00C4]
004F2418 84C0 test al, al
004F241A 7403 jz 004F241F
004F241C 80E37F and bl, $7F
004F241F 8B8610030000 mov eax, [esi+$0310]
004F2425 8B10 mov edx, [eax]
004F2427 FF92C4000000 call dword ptr [edx+$00C4]
004F242D 84C0 test al, al
004F242F 7403 jz 004F2434
004F2431 80E3BF and bl, $BF
004F2434 8B8614030000 mov eax, [esi+$0314]
004F243A 8B10 mov edx, [eax]
004F243C FF92C4000000 call dword ptr [edx+$00C4]
004F2442 84C0 test al, al
004F2444 7403 jz 004F2449
004F2446 80E3DF and bl, $DF
004F2449 8B8618030000 mov eax, [esi+$0318]
004F244F 8B10 mov edx, [eax]
004F2451 FF92C4000000 call dword ptr [edx+$00C4]
004F2457 84C0 test al, al
004F2459 7403 jz 004F245E
004F245B 80E3EF and bl, $EF
004F245E 8B861C030000 mov eax, [esi+$031C]
004F2464 8B10 mov edx, [eax]
004F2466 FF92C4000000 call dword ptr [edx+$00C4]
004F246C 84C0 test al, al
004F246E 7403 jz 004F2473
004F2470 80E3F7 and bl, $F7
004F2473 8B8620030000 mov eax, [esi+$0320]
004F2479 8B10 mov edx, [eax]
004F247B FF92C4000000 call dword ptr [edx+$00C4]
004F2481 84C0 test al, al
004F2483 7403 jz 004F2488
004F2485 80E3FB and bl, $FB
004F2488 8B8624030000 mov eax, [esi+$0324]
004F248E 8B10 mov edx, [eax]
004F2490 FF92C4000000 call dword ptr [edx+$00C4]
004F2496 84C0 test al, al
004F2498 7403 jz 004F249D
004F249A 80E3FD and bl, $FD
004F249D 8B8628030000 mov eax, [esi+$0328]
004F24A3 8B10 mov edx, [eax]
004F24A5 FF92C4000000 call dword ptr [edx+$00C4]
004F24AB 84C0 test al, al
004F24AD 7403 jz 004F24B2
004F24AF 80E3FE and bl, $FE
004F24B2 A180725000 mov eax, dword ptr [$00507280]
004F24B7 8B00 mov eax, [eax]
004F24B9 8B8090050000 mov eax, [eax+$0590]
004F24BF 8B10 mov edx, [eax]
004F24C1 FF5204 call dword ptr [edx+$04]
004F24C4 6A00 push $00
004F24C6 53 push ebx
004F24C7 A180725000 mov eax, dword ptr [$00507280]
004F24CC 8B00 mov eax, [eax]
004F24CE 8B8090050000 mov eax, [eax+$0590]
004F24D4 B1A0 mov cl, $A0
004F24D6 B2AC mov dl, $AC
004F24D8 8B18 mov ebx, [eax]
004F24DA FF5328 call dword ptr [ebx+$28]
004F24DD A180725000 mov eax, dword ptr [$00507280]
004F24E2 8B00 mov eax, [eax]
004F24E4 8B8090050000 mov eax, [eax+$0590]
004F24EA 8B10 mov edx, [eax]
004F24EC FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004F24EF B80C254F00 mov eax, $004F250C
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004F24F4 E8D3ECF4FF call 004411CC
004F24F9 8BC6 mov eax, esi
|
004F24FB E840000000 call 004F2540
004F2500 5E pop esi
004F2501 5B pop ebx
004F2502 C3 ret
*)
end;
procedure Ttiny12otherFrm.FormCreate(Sender : TObject);
begin
(*
004F2518 53 push ebx
004F2519 8BD8 mov ebx, eax
004F251B A180725000 mov eax, dword ptr [$00507280]
004F2520 8B00 mov eax, [eax]
004F2522 8B8090050000 mov eax, [eax+$0590]
|
004F2528 E8BF28FAFF call 00494DEC
004F252D 8BC3 mov eax, ebx
|
004F252F E80C000000 call 004F2540
004F2534 8BC3 mov eax, ebx
|
004F2536 E885010000 call 004F26C0
004F253B 5B pop ebx
004F253C C3 ret
*)
end;
procedure Ttiny12otherFrm.Button7Click(Sender : TObject);
begin
(*
004F278C 55 push ebp
004F278D 8BEC mov ebp, esp
004F278F 6A00 push $00
004F2791 6A00 push $00
004F2793 53 push ebx
004F2794 33C0 xor eax, eax
004F2796 55 push ebp
004F2797 6826284F00 push $004F2826
***** TRY
|
004F279C 64FF30 push dword ptr fs:[eax]
004F279F 648920 mov fs:[eax], esp
004F27A2 A180725000 mov eax, dword ptr [$00507280]
004F27A7 8B00 mov eax, [eax]
004F27A9 8B8090050000 mov eax, [eax+$0590]
004F27AF 8B10 mov edx, [eax]
004F27B1 FF5204 call dword ptr [edx+$04]
004F27B4 6A00 push $00
004F27B6 6A00 push $00
004F27B8 A180725000 mov eax, dword ptr [$00507280]
004F27BD 8B00 mov eax, [eax]
004F27BF 8B8090050000 mov eax, [eax+$0590]
004F27C5 33C9 xor ecx, ecx
004F27C7 B238 mov dl, $38
004F27C9 8B18 mov ebx, [eax]
004F27CB FF5328 call dword ptr [ebx+$28]
004F27CE 8BD8 mov ebx, eax
004F27D0 A180725000 mov eax, dword ptr [$00507280]
004F27D5 8B00 mov eax, [eax]
004F27D7 8B8090050000 mov eax, [eax+$0590]
004F27DD 8B10 mov edx, [eax]
004F27DF FF5208 call dword ptr [edx+$08]
004F27E2 8D4DF8 lea ecx, [ebp-$08]
004F27E5 33C0 xor eax, eax
004F27E7 8AC3 mov al, bl
004F27E9 BA02000000 mov edx, $00000002
* Reference to: SysUtils.IntToHex(Integer;Integer):AnsiString;overload;
|
004F27EE E8E56DF1FF call 004095D8
004F27F3 8B4DF8 mov ecx, [ebp-$08]
004F27F6 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: '校准字节(Calibration Byte)值为：: 0
| x'
|
004F27F9 BA3C284F00 mov edx, $004F283C
* Reference to: System.@LStrCat3;
|
004F27FE E81D25F1FF call 00404D20
004F2803 8B45FC mov eax, [ebp-$04]
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004F2806 E8C1E9F4FF call 004411CC
004F280B 33C0 xor eax, eax
004F280D 5A pop edx
004F280E 59 pop ecx
004F280F 59 pop ecx
004F2810 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[YY]⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -