📄 frmmega323other.pas
字号:
unit FrmMega323other;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
Tmega323otherFrm=class(TForm)
Panel1: N.A.;
GroupBox1: N.A.;
fh7: N.A.;
fh6: 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.;
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 Button1Click(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure Button3Click(Sender : TObject);
procedure Button4Click(Sender : TObject);
procedure Button5Click(Sender : TObject);
procedure Button6Click(Sender : TObject);
procedure Button7Click(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure _PROC_004EF1A3(Sender : TObject);
procedure _PROC_004EF919(Sender : TObject);
procedure _PROC_004EF948(Sender : TObject);
procedure _PROC_004EF950(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
mega323otherFrm: Tmega323otherFrm;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure Tmega323otherFrm.Button1Click(Sender : TObject);
begin
(*
|
004EF0A8 E82F040000 call 004EF4DC
004EF0AD C3 ret
*)
end;
procedure Tmega323otherFrm.Button2Click(Sender : TObject);
begin
(*
004EF0B0 53 push ebx
004EF0B1 56 push esi
004EF0B2 8BF0 mov esi, eax
004EF0B4 6A00 push $00
004EF0B6 668B0DA4F14E00 mov cx, word ptr [$004EF1A4]
004EF0BD B203 mov dl, $03
* Possible String Reference to: 'LB2,LB1锁定位一旦设置，不能恢复，是
| 否继续？'
|
004EF0BF B8B0F14E00 mov eax, $004EF1B0
|
004EF0C4 E80B20F5FF call 004410D4
004EF0C9 83F806 cmp eax, +$06
004EF0CC 0F85CE000000 jnz 004EF1A0
004EF0D2 B3FF mov bl, $FF
004EF0D4 8B8634030000 mov eax, [esi+$0334]
004EF0DA 8B10 mov edx, [eax]
004EF0DC FF92C4000000 call dword ptr [edx+$00C4]
004EF0E2 84C0 test al, al
004EF0E4 7403 jz 004EF0E9
004EF0E6 80E3DF and bl, $DF
004EF0E9 8B8638030000 mov eax, [esi+$0338]
004EF0EF 8B10 mov edx, [eax]
004EF0F1 FF92C4000000 call dword ptr [edx+$00C4]
004EF0F7 84C0 test al, al
004EF0F9 7403 jz 004EF0FE
004EF0FB 80E3EF and bl, $EF
004EF0FE 8B862C030000 mov eax, [esi+$032C]
004EF104 8B10 mov edx, [eax]
004EF106 FF92C4000000 call dword ptr [edx+$00C4]
004EF10C 84C0 test al, al
004EF10E 7403 jz 004EF113
004EF110 80E3F7 and bl, $F7
004EF113 8B8630030000 mov eax, [esi+$0330]
004EF119 8B10 mov edx, [eax]
004EF11B FF92C4000000 call dword ptr [edx+$00C4]
004EF121 84C0 test al, al
004EF123 7403 jz 004EF128
004EF125 80E3FB and bl, $FB
004EF128 8B8624030000 mov eax, [esi+$0324]
004EF12E 8B10 mov edx, [eax]
004EF130 FF92C4000000 call dword ptr [edx+$00C4]
004EF136 84C0 test al, al
004EF138 7403 jz 004EF13D
004EF13A 80E3FD and bl, $FD
004EF13D 8B8628030000 mov eax, [esi+$0328]
004EF143 8B10 mov edx, [eax]
004EF145 FF92C4000000 call dword ptr [edx+$00C4]
004EF14B 84C0 test al, al
004EF14D 7403 jz 004EF152
004EF14F 80E3FE and bl, $FE
004EF152 A180725000 mov eax, dword ptr [$00507280]
004EF157 8B00 mov eax, [eax]
004EF159 8B8090050000 mov eax, [eax+$0590]
004EF15F 8B10 mov edx, [eax]
004EF161 FF5204 call dword ptr [edx+$04]
004EF164 6A00 push $00
004EF166 53 push ebx
004EF167 A180725000 mov eax, dword ptr [$00507280]
004EF16C 8B00 mov eax, [eax]
004EF16E 8B8090050000 mov eax, [eax+$0590]
004EF174 B1FF mov cl, $FF
004EF176 B2AC mov dl, $AC
004EF178 8B18 mov ebx, [eax]
004EF17A FF5328 call dword ptr [ebx+$28]
004EF17D A180725000 mov eax, dword ptr [$00507280]
004EF182 8B00 mov eax, [eax]
004EF184 8B8090050000 mov eax, [eax+$0590]
004EF18A 8B10 mov edx, [eax]
004EF18C FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004EF18F B8E4F14E00 mov eax, $004EF1E4
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004EF194 E83320F5FF call 004411CC
004EF199 8BC6 mov eax, esi
|
004EF19B E83C030000 call 004EF4DC
004EF1A0 5E pop esi
004EF1A1 5B pop ebx
004EF1A2 C3 ret
*)
end;
procedure Tmega323otherFrm.Button3Click(Sender : TObject);
begin
(*
|
004EF1F0 E8B7040000 call 004EF6AC
004EF1F5 C3 ret
*)
end;
procedure Tmega323otherFrm.Button4Click(Sender : TObject);
begin
(*
004EF1F8 53 push ebx
004EF1F9 56 push esi
004EF1FA 8BF0 mov esi, eax
004EF1FC B3FF mov bl, $FF
004EF1FE 8B86F8020000 mov eax, [esi+$02F8]
004EF204 8B10 mov edx, [eax]
004EF206 FF92C4000000 call dword ptr [edx+$00C4]
004EF20C 84C0 test al, al
004EF20E 7403 jz 004EF213
004EF210 80E37F and bl, $7F
004EF213 8B86FC020000 mov eax, [esi+$02FC]
004EF219 8B10 mov edx, [eax]
004EF21B FF92C4000000 call dword ptr [edx+$00C4]
004EF221 84C0 test al, al
004EF223 7403 jz 004EF228
004EF225 80E3BF and bl, $BF
004EF228 8B8600030000 mov eax, [esi+$0300]
004EF22E 8B10 mov edx, [eax]
004EF230 FF92C4000000 call dword ptr [edx+$00C4]
004EF236 84C0 test al, al
004EF238 7403 jz 004EF23D
004EF23A 80E3F7 and bl, $F7
004EF23D 8B8604030000 mov eax, [esi+$0304]
004EF243 8B10 mov edx, [eax]
004EF245 FF92C4000000 call dword ptr [edx+$00C4]
004EF24B 84C0 test al, al
004EF24D 7403 jz 004EF252
004EF24F 80E3FB and bl, $FB
004EF252 8B8608030000 mov eax, [esi+$0308]
004EF258 8B10 mov edx, [eax]
004EF25A FF92C4000000 call dword ptr [edx+$00C4]
004EF260 84C0 test al, al
004EF262 7403 jz 004EF267
004EF264 80E3FD and bl, $FD
004EF267 8B860C030000 mov eax, [esi+$030C]
004EF26D 8B10 mov edx, [eax]
004EF26F FF92C4000000 call dword ptr [edx+$00C4]
004EF275 84C0 test al, al
004EF277 7403 jz 004EF27C
004EF279 80E3FE and bl, $FE
004EF27C A180725000 mov eax, dword ptr [$00507280]
004EF281 8B00 mov eax, [eax]
004EF283 8B8090050000 mov eax, [eax+$0590]
004EF289 8B10 mov edx, [eax]
004EF28B FF5204 call dword ptr [edx+$04]
004EF28E 6A00 push $00
004EF290 53 push ebx
004EF291 A180725000 mov eax, dword ptr [$00507280]
004EF296 8B00 mov eax, [eax]
004EF298 8B8090050000 mov eax, [eax+$0590]
004EF29E B1A8 mov cl, $A8
004EF2A0 B2AC mov dl, $AC
004EF2A2 8B18 mov ebx, [eax]
004EF2A4 FF5328 call dword ptr [ebx+$28]
004EF2A7 A180725000 mov eax, dword ptr [$00507280]
004EF2AC 8B00 mov eax, [eax]
004EF2AE 8B8090050000 mov eax, [eax+$0590]
004EF2B4 8B10 mov edx, [eax]
004EF2B6 FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004EF2B9 B8D8F24E00 mov eax, $004EF2D8
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004EF2BE E8091FF5FF call 004411CC
004EF2C3 8BC6 mov eax, esi
|
004EF2C5 E8E2030000 call 004EF6AC
004EF2CA 5E pop esi
004EF2CB 5B pop ebx
004EF2CC C3 ret
*)
end;
procedure Tmega323otherFrm.Button5Click(Sender : TObject);
begin
(*
|
004EF2E4 E8F7040000 call 004EF7E0
004EF2E9 C3 ret
*)
end;
procedure Tmega323otherFrm.Button6Click(Sender : TObject);
begin
(*
004EF2EC 53 push ebx
004EF2ED 56 push esi
004EF2EE 8BF0 mov esi, eax
004EF2F0 B3FF mov bl, $FF
004EF2F2 8B8640030000 mov eax, [esi+$0340]
004EF2F8 8B10 mov edx, [eax]
004EF2FA FF92C4000000 call dword ptr [edx+$00C4]
004EF300 84C0 test al, al
004EF302 7403 jz 004EF307
004EF304 80E37F and bl, $7F
004EF307 8B8644030000 mov eax, [esi+$0344]
004EF30D 8B10 mov edx, [eax]
004EF30F FF92C4000000 call dword ptr [edx+$00C4]
004EF315 84C0 test al, al
004EF317 7403 jz 004EF31C
004EF319 80E3BF and bl, $BF
004EF31C 8B8648030000 mov eax, [esi+$0348]
004EF322 8B10 mov edx, [eax]
004EF324 FF92C4000000 call dword ptr [edx+$00C4]
004EF32A 84C0 test al, al
004EF32C 7403 jz 004EF331
004EF32E 80E3F7 and bl, $F7
004EF331 8B864C030000 mov eax, [esi+$034C]
004EF337 8B10 mov edx, [eax]
004EF339 FF92C4000000 call dword ptr [edx+$00C4]
004EF33F 84C0 test al, al
004EF341 7403 jz 004EF346
004EF343 80E3FB and bl, $FB
004EF346 8B8650030000 mov eax, [esi+$0350]
004EF34C 8B10 mov edx, [eax]
004EF34E FF92C4000000 call dword ptr [edx+$00C4]
004EF354 84C0 test al, al
004EF356 7403 jz 004EF35B
004EF358 80E3FD and bl, $FD
004EF35B 8B8654030000 mov eax, [esi+$0354]
004EF361 8B10 mov edx, [eax]
004EF363 FF92C4000000 call dword ptr [edx+$00C4]
004EF369 84C0 test al, al
004EF36B 7403 jz 004EF370
004EF36D 80E3FE and bl, $FE
004EF370 A180725000 mov eax, dword ptr [$00507280]
004EF375 8B00 mov eax, [eax]
004EF377 8B8090050000 mov eax, [eax+$0590]
004EF37D 8B10 mov edx, [eax]
004EF37F FF5204 call dword ptr [edx+$04]
004EF382 6A00 push $00
004EF384 53 push ebx
004EF385 A180725000 mov eax, dword ptr [$00507280]
004EF38A 8B00 mov eax, [eax]
004EF38C 8B8090050000 mov eax, [eax+$0590]
004EF392 B1A0 mov cl, $A0
004EF394 B2AC mov dl, $AC
004EF396 8B18 mov ebx, [eax]
004EF398 FF5328 call dword ptr [ebx+$28]
004EF39B A180725000 mov eax, dword ptr [$00507280]
004EF3A0 8B00 mov eax, [eax]
004EF3A2 8B8090050000 mov eax, [eax+$0590]
004EF3A8 8B10 mov edx, [eax]
004EF3AA FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004EF3AD B8CCF34E00 mov eax, $004EF3CC
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004EF3B2 E8151EF5FF call 004411CC
004EF3B7 8BC6 mov eax, esi
|
004EF3B9 E822040000 call 004EF7E0
004EF3BE 5E pop esi
004EF3BF 5B pop ebx
004EF3C0 C3 ret
*)
end;
procedure Tmega323otherFrm.Button7Click(Sender : TObject);
begin
(*
004EF3D8 55 push ebp
004EF3D9 8BEC mov ebp, esp
004EF3DB 6A00 push $00
004EF3DD 6A00 push $00
004EF3DF 53 push ebx
004EF3E0 33C0 xor eax, eax
004EF3E2 55 push ebp
* Possible String Reference to: '閕N⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -