📄 frmmain.pas
字号:
procedure TMain.MopenFlashFileClick(Sender : TObject);
begin
(*
004FF530 55 push ebp
004FF531 8BEC mov ebp, esp
004FF533 33C9 xor ecx, ecx
004FF535 51 push ecx
004FF536 51 push ecx
004FF537 51 push ecx
004FF538 51 push ecx
004FF539 53 push ebx
004FF53A 8BD8 mov ebx, eax
004FF53C 33C0 xor eax, eax
004FF53E 55 push ebp
004FF53F 6838F64F00 push $004FF638
***** TRY
|
004FF544 64FF30 push dword ptr fs:[eax]
004FF547 648920 mov fs:[eax], esp
004FF54A C6835404000000 mov byte ptr [ebx+$0454], $00
004FF551 8B83C0030000 mov eax, [ebx+$03C0]
004FF557 8B10 mov edx, [eax]
004FF559 FF92C0000000 call dword ptr [edx+$00C0]
004FF55F 8B8354030000 mov eax, [ebx+$0354]
004FF565 8B10 mov edx, [eax]
004FF567 FF523C call dword ptr [edx+$3C]
004FF56A 84C0 test al, al
004FF56C 0F849B000000 jz 004FF60D
004FF572 8D55FC lea edx, [ebp-$04]
004FF575 8B8354030000 mov eax, [ebx+$0354]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
004FF57B E8040EF4FF call 00440384
004FF580 8B45FC mov eax, [ebp-$04]
|
004FF583 E80C9EFFFF call 004F9394
004FF588 84C0 test al, al
004FF58A 7467 jz 004FF5F3
004FF58C 8D55F8 lea edx, [ebp-$08]
004FF58F 8B8354030000 mov eax, [ebx+$0354]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
004FF595 E8EA0DF4FF call 00440384
004FF59A 8B55F8 mov edx, [ebp-$08]
004FF59D 8D8384050000 lea eax, [ebx+$0584]
* Reference to: System.@LStrAsg(void;void;void;void);
|
004FF5A3 E8C854F0FF call 00404A70
004FF5A8 8B833C030000 mov eax, [ebx+$033C]
* Reference to: Controls.TControl.Show(TControl);
|
004FF5AE E84D8FF4FF call 00448500
004FF5B3 8D55F0 lea edx, [ebp-$10]
004FF5B6 8B8354030000 mov eax, [ebx+$0354]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
004FF5BC E8C30DF4FF call 00440384
004FF5C1 8B4DF0 mov ecx, [ebp-$10]
004FF5C4 8D45F4 lea eax, [ebp-$0C]
* Possible String Reference to: 'Flash File:'
|
004FF5C7 BA4CF64F00 mov edx, $004FF64C
* Reference to: System.@LStrCat3;
|
004FF5CC E84F57F0FF call 00404D20
004FF5D1 8B45F4 mov eax, [ebp-$0C]
004FF5D4 50 push eax
004FF5D5 8B8348030000 mov eax, [ebx+$0348]
004FF5DB 8B8008020000 mov eax, [eax+$0208]
004FF5E1 BA01000000 mov edx, $00000001
* Reference to: ActnCtrls.TCustomButtonControl.GetLabelText(TCustomButtonControl):AnsiString;
| or: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
|
004FF5E6 E8495FF7FF call 00475534
004FF5EB 5A pop edx
* Reference to: ComCtrls.TStatusPanel.SetText(TStatusPanel;AnsiString);
| or: ComCtrls.THeaderSection.SetText(THeaderSection;AnsiString);
|
004FF5EC E89F5EF7FF call 00475490
004FF5F1 EB1A jmp 004FF60D
004FF5F3 8B83C4030000 mov eax, [ebx+$03C4]
004FF5F9 80783800 cmp byte ptr [eax+$38], $00
004FF5FD 740E jz 004FF60D
004FF5FF 6A00 push $00
004FF601 6A00 push $00
* Possible String Reference to: 'wav\err.wav'
|
004FF603 6858F64F00 push $004FF658
* Reference to: winmm.PlaySoundA()
|
004FF608 E8E70BFCFF call 004C01F4
004FF60D 33C0 xor eax, eax
004FF60F 5A pop edx
004FF610 59 pop ecx
004FF611 59 pop ecx
004FF612 648910 mov fs:[eax], edx
****** FINALLY
|
004FF615 683FF64F00 push $004FF63F
004FF61A 8D45F0 lea eax, [ebp-$10]
* Reference to: System.@LStrClr(void;void);
|
004FF61D E8FA53F0FF call 00404A1C
004FF622 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
004FF625 E8F253F0FF call 00404A1C
004FF62A 8D45F8 lea eax, [ebp-$08]
004FF62D BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
004FF632 E80954F0FF call 00404A40
004FF637 C3 ret
* Reference to: System.@HandleFinally;
|
004FF638 E9A34CF0FF jmp 004042E0
004FF63D EBDB jmp 004FF61A
****** END
|
004FF63F 5B pop ebx
004FF640 8BE5 mov esp, ebp
004FF642 5D pop ebp
004FF643 C3 ret
*)
end;
procedure TMain.MopenEEPROMfileClick(Sender : TObject);
begin
(*
004FF664 55 push ebp
004FF665 8BEC mov ebp, esp
004FF667 33C9 xor ecx, ecx
004FF669 51 push ecx
004FF66A 51 push ecx
004FF66B 51 push ecx
004FF66C 51 push ecx
004FF66D 53 push ebx
004FF66E 8BD8 mov ebx, eax
004FF670 33C0 xor eax, eax
004FF672 55 push ebp
004FF673 686CF74F00 push $004FF76C
***** TRY
|
004FF678 64FF30 push dword ptr fs:[eax]
004FF67B 648920 mov fs:[eax], esp
004FF67E C6835404000000 mov byte ptr [ebx+$0454], $00
004FF685 8B83C0030000 mov eax, [ebx+$03C0]
004FF68B 8B10 mov edx, [eax]
004FF68D FF92C0000000 call dword ptr [edx+$00C0]
004FF693 8B8358030000 mov eax, [ebx+$0358]
004FF699 8B10 mov edx, [eax]
004FF69B FF523C call dword ptr [edx+$3C]
004FF69E 84C0 test al, al
004FF6A0 0F849B000000 jz 004FF741
004FF6A6 8D55FC lea edx, [ebp-$04]
004FF6A9 8B8358030000 mov eax, [ebx+$0358]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
004FF6AF E8D00CF4FF call 00440384
004FF6B4 8B45FC mov eax, [ebp-$04]
|
004FF6B7 E85851FEFF call 004E4814
004FF6BC 84C0 test al, al
004FF6BE 7467 jz 004FF727
004FF6C0 8D55F8 lea edx, [ebp-$08]
004FF6C3 8B8358030000 mov eax, [ebx+$0358]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
004FF6C9 E8B60CF4FF call 00440384
004FF6CE 8B55F8 mov edx, [ebp-$08]
004FF6D1 8D8388050000 lea eax, [ebx+$0588]
* Reference to: System.@LStrAsg(void;void;void;void);
|
004FF6D7 E89453F0FF call 00404A70
004FF6DC 8B8340030000 mov eax, [ebx+$0340]
* Reference to: Controls.TControl.Show(TControl);
|
004FF6E2 E8198EF4FF call 00448500
004FF6E7 8D55F0 lea edx, [ebp-$10]
004FF6EA 8B8358030000 mov eax, [ebx+$0358]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
004FF6F0 E88F0CF4FF call 00440384
004FF6F5 8B4DF0 mov ecx, [ebp-$10]
004FF6F8 8D45F4 lea eax, [ebp-$0C]
* Possible String Reference to: 'EEProm File:'
|
004FF6FB BA80F74F00 mov edx, $004FF780
* Reference to: System.@LStrCat3;
|
004FF700 E81B56F0FF call 00404D20
004FF705 8B45F4 mov eax, [ebp-$0C]
004FF708 50 push eax
004FF709 8B8348030000 mov eax, [ebx+$0348]
004FF70F 8B8008020000 mov eax, [eax+$0208]
004FF715 BA02000000 mov edx, $00000002
* Reference to: ActnCtrls.TCustomButtonControl.GetLabelText(TCustomButtonControl):AnsiString;
| or: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
|
004FF71A E8155EF7FF call 00475534
004FF71F 5A pop edx
* Reference to: ComCtrls.TStatusPanel.SetText(TStatusPanel;AnsiString);
| or: ComCtrls.THeaderSection.SetText(THeaderSection;AnsiString);
|
004FF720 E86B5DF7FF call 00475490
004FF725 EB1A jmp 004FF741
004FF727 8B83C4030000 mov eax, [ebx+$03C4]
004FF72D 80783800 cmp byte ptr [eax+$38], $00
004FF731 740E jz 004FF741
004FF733 6A00 push $00
004FF735 6A00 push $00
* Possible String Reference to: 'wav\err.wav'
|
004FF737 6890F74F00 push $004FF790
* Reference to: winmm.PlaySoundA()
|
004FF73C E8B30AFCFF call 004C01F4
004FF741 33C0 xor eax, eax
004FF743 5A pop edx
004FF744 59 pop ecx
004FF745 59 pop ecx
004FF746 648910 mov fs:[eax], edx
****** FINALLY
|
004FF749 6873F74F00 push $004FF773
004FF74E 8D45F0 lea eax, [ebp-$10]
* Reference to: System.@LStrClr(void;void);
|
004FF751 E8C652F0FF call 00404A1C
004FF756 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
004FF759 E8BE52F0FF call 00404A1C
004FF75E 8D45F8 lea eax, [ebp-$08]
004FF761 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
004FF766 E8D552F0FF call 00404A40
004FF76B C3 ret
* Reference to: System.@HandleFinally;
|
004FF76C E96F4BF0FF jmp 004042E0
004FF771 EBDB jmp 004FF74E
****** END
|
004FF773 5B pop ebx
004FF774 8BE5 mov esp, ebp
004FF776 5D pop ebp
004FF777 C3 ret
*)
end;
procedure TMain.MearseClick(Sender : TObject);
begin
(*
|
004FF79C E88BD3FFFF call 004FCB2C
004FF7A1 C3 ret
*)
end;
procedure TMain.MautoProgramClick(Sender : TObject);
begin
(*
004FF7A4 53 push ebx
004FF7A5 8BD8 mov ebx, eax
004FF7A7 C6835404000000 mov byte ptr [ebx+$0454], $00
004FF7AE 8B83C0030000 mov eax, [ebx+$03C0]
004FF7B4 8B10 mov edx, [eax]
004FF7B6 FF92C0000000 call dword ptr [edx+$00C0]
004FF7BC 80BB8C05000001 cmp byte ptr [ebx+$058C], $01
004FF7C3 754F jnz 004FF814
004FF7C5 8B83C0030000 mov eax, [ebx+$03C0]
004FF7CB 8B8048020000 mov eax, [eax+$0248]
004FF7D1 33D2 xor edx, edx
004FF7D3 8B08 mov ecx, [eax]
004FF7D5 FF5138 call dword ptr [ecx+$38]
004FF7D8 8B83CC030000 mov eax, [ebx+$03CC]
004FF7DE 80783800 cmp byte ptr [eax+$38], $00
004FF7E2 7418 jz 004FF7FC
004FF7E4 8B83C0030000 mov eax, [ebx+$03C0]
004FF7EA 8B8048020000 mov eax, [eax+$0248]
* Possible String Reference to: '>>请等待正在执行的操作完成后再进行⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -