📄 frmmega48other.pas
字号:
unit FrmMega48other;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
Tmega48otherFrm=class(TForm)
Panel1: N.A.;
GroupBox1: N.A.;
fh7: N.A.;
fh6: N.A.;
fh5: 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.;
groupbox4: N.A.;
Button8: N.A.;
Button9: N.A.;
LEF0: 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 Button8Click(Sender : TObject);
procedure Button9Click(Sender : TObject);
procedure Button7Click(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure _PROC_004F1823(Sender : TObject);
procedure _PROC_004F1C88(Sender : TObject);
procedure _PROC_004F1D54(Sender : TObject);
procedure _PROC_004F1ED4(Sender : TObject);
procedure _PROC_004F2054(Sender : TObject);
procedure _PROC_004F20C4(Sender : TObject);
procedure _PROC_004F20F4(Sender : TObject);
procedure _PROC_004F20FC(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
mega48otherFrm: Tmega48otherFrm;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure Tmega48otherFrm.Button1Click(Sender : TObject);
begin
(*
* Reference to : Tmega48otherFrm._PROC_004F1C88()
|
004F1780 E803050000 call 004F1C88
004F1785 C3 ret
*)
end;
procedure Tmega48otherFrm.Button2Click(Sender : TObject);
begin
(*
004F1788 53 push ebx
004F1789 56 push esi
004F178A 8BF0 mov esi, eax
004F178C 6A00 push $00
004F178E 668B0D24184F00 mov cx, word ptr [$004F1824]
004F1795 B203 mov dl, $03
* Possible String Reference to: 'LB2,LB1锁定位一旦设置，不能恢复，是
| 否继续？'
|
004F1797 B830184F00 mov eax, $004F1830
|
004F179C E833F9F4FF call 004410D4
004F17A1 83F806 cmp eax, +$06
004F17A4 757A jnz 004F1820
004F17A6 B3FF mov bl, $FF
004F17A8 8B862C030000 mov eax, [esi+$032C]
004F17AE 8B10 mov edx, [eax]
004F17B0 FF92C4000000 call dword ptr [edx+$00C4]
004F17B6 84C0 test al, al
004F17B8 7403 jz 004F17BD
004F17BA 80E3FD and bl, $FD
004F17BD 8B8630030000 mov eax, [esi+$0330]
004F17C3 8B10 mov edx, [eax]
004F17C5 FF92C4000000 call dword ptr [edx+$00C4]
004F17CB 84C0 test al, al
004F17CD 7403 jz 004F17D2
004F17CF 80E3FE and bl, $FE
004F17D2 A180725000 mov eax, dword ptr [$00507280]
004F17D7 8B00 mov eax, [eax]
004F17D9 8B8090050000 mov eax, [eax+$0590]
004F17DF 8B10 mov edx, [eax]
004F17E1 FF5204 call dword ptr [edx+$04]
004F17E4 6A00 push $00
004F17E6 53 push ebx
004F17E7 A180725000 mov eax, dword ptr [$00507280]
004F17EC 8B00 mov eax, [eax]
004F17EE 8B8090050000 mov eax, [eax+$0590]
004F17F4 B1FF mov cl, $FF
004F17F6 B2AC mov dl, $AC
004F17F8 8B18 mov ebx, [eax]
004F17FA FF5328 call dword ptr [ebx+$28]
004F17FD A180725000 mov eax, dword ptr [$00507280]
004F1802 8B00 mov eax, [eax]
004F1804 8B8090050000 mov eax, [eax+$0590]
004F180A 8B10 mov edx, [eax]
004F180C FF5208 call dword ptr [edx+$08]
* Possible String Reference to: '命令完成！'
|
004F180F B864184F00 mov eax, $004F1864
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004F1814 E8B3F9F4FF call 004411CC
004F1819 8BC6 mov eax, esi
* Reference to : Tmega48otherFrm._PROC_004F1C88()
|
004F181B E868040000 call 004F1C88
004F1820 5E pop esi
004F1821 5B pop ebx
004F1822 C3 ret
*)
end;
procedure Tmega48otherFrm.Button3Click(Sender : TObject);
begin
(*
* Reference to : Tmega48otherFrm._PROC_004F1D54()
|
004F1870 E8DF040000 call 004F1D54
004F1875 C3 ret
*)
end;
procedure Tmega48otherFrm.Button4Click(Sender : TObject);
begin
(*
004F1878 53 push ebx
004F1879 56 push esi
004F187A 8BF0 mov esi, eax
004F187C B3FF mov bl, $FF
004F187E 8B86F8020000 mov eax, [esi+$02F8]
004F1884 8B10 mov edx, [eax]
004F1886 FF92C4000000 call dword ptr [edx+$00C4]
004F188C 84C0 test al, al
004F188E 7403 jz 004F1893
004F1890 80E37F and bl, $7F
004F1893 8B86FC020000 mov eax, [esi+$02FC]
004F1899 8B10 mov edx, [eax]
004F189B FF92C4000000 call dword ptr [edx+$00C4]
004F18A1 84C0 test al, al
004F18A3 7403 jz 004F18A8
004F18A5 80E3BF and bl, $BF
004F18A8 8B8600030000 mov eax, [esi+$0300]
004F18AE 8B10 mov edx, [eax]
004F18B0 FF92C4000000 call dword ptr [edx+$00C4]
004F18B6 84C0 test al, al
004F18B8 7403 jz 004F18BD
004F18BA 80E3DF and bl, $DF
004F18BD 8B8604030000 mov eax, [esi+$0304]
004F18C3 8B10 mov edx, [eax]
004F18C5 FF92C4000000 call dword ptr [edx+$00C4]
004F18CB 84C0 test al, al
004F18CD 7403 jz 004F18D2
004F18CF 80E3EF and bl, $EF
004F18D2 8B8608030000 mov eax, [esi+$0308]
004F18D8 8B10 mov edx, [eax]
004F18DA FF92C4000000 call dword ptr [edx+$00C4]
004F18E0 84C0 test al, al
004F18E2 7403 jz 004F18E7
004F18E4 80E3F7 and bl, $F7
004F18E7 8B860C030000 mov eax, [esi+$030C]
004F18ED 8B10 mov edx, [eax]
004F18EF FF92C4000000 call dword ptr [edx+$00C4]
004F18F5 84C0 test al, al
004F18F7 7403 jz 004F18FC
004F18F9 80E3FB and bl, $FB
004F18FC 8B8610030000 mov eax, [esi+$0310]
004F1902 8B10 mov edx, [eax]
004F1904 FF92C4000000 call dword ptr [edx+$00C4]
004F190A 84C0 test al, al
004F190C 7403 jz 004F1911
004F190E 80E3FD and bl, $FD
004F1911 8B8614030000 mov eax, [esi+$0314]
004F1917 8B10 mov edx, [eax]
004F1919 FF92C4000000 call dword ptr [edx+$00C4]
004F191F 84C0 test al, al
004F1921 7403 jz 004F1926
004F1923 80E3FE and bl, $FE
004F1926 A180725000 mov eax, dword ptr [$00507280]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -