📄 frm2343other.pas
字号:
unit Frm2343other;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
Tat90s2343otherFrm=class(TForm)
GroupBox1: N.A.;
Mode1: N.A.;
Mode2: N.A.;
BitBtn2: N.A.;
GroupBox2: N.A.;
Lb1: N.A.;
LB2: N.A.;
rcen: N.A.;
BitBtn1: N.A.;
spien: N.A.;
procedure FormCreate(Sender : TObject);
procedure rcenClick(Sender : TObject);
procedure BitBtn1Click(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure _PROC_004EBD1D(Sender : TObject);
procedure _PROC_004EBD4C(Sender : TObject);
procedure _PROC_004EBD54(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
at90s2343otherFrm: Tat90s2343otherFrm;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure Tat90s2343otherFrm.FormCreate(Sender : TObject);
begin
(*
004EBAC8 53 push ebx
004EBAC9 8BD8 mov ebx, eax
004EBACB A180725000 mov eax, dword ptr [$00507280]
004EBAD0 8B00 mov eax, [eax]
004EBAD2 8B8090050000 mov eax, [eax+$0590]
|
004EBAD8 E80F93FAFF call 00494DEC
004EBADD 8BC3 mov eax, ebx
|
004EBADF E854010000 call 004EBC38
004EBAE4 5B pop ebx
004EBAE5 C3 ret
*)
end;
procedure Tat90s2343otherFrm.rcenClick(Sender : TObject);
begin
(*
004EBAE8 53 push ebx
004EBAE9 56 push esi
004EBAEA 8BD8 mov ebx, eax
004EBAEC 8B830C030000 mov eax, [ebx+$030C]
004EBAF2 8B10 mov edx, [eax]
004EBAF4 FF92C4000000 call dword ptr [edx+$00C4]
004EBAFA 84C0 test al, al
004EBAFC 7440 jz 004EBB3E
004EBAFE A180725000 mov eax, dword ptr [$00507280]
004EBB03 8B00 mov eax, [eax]
004EBB05 8B8090050000 mov eax, [eax+$0590]
004EBB0B 8B10 mov edx, [eax]
004EBB0D FF5204 call dword ptr [edx+$04]
004EBB10 6A00 push $00
004EBB12 6A00 push $00
004EBB14 A180725000 mov eax, dword ptr [$00507280]
004EBB19 8B00 mov eax, [eax]
004EBB1B 8B8090050000 mov eax, [eax+$0590]
004EBB21 B1BE mov cl, $BE
004EBB23 B2AC mov dl, $AC
004EBB25 8B30 mov esi, [eax]
004EBB27 FF5628 call dword ptr [esi+$28]
004EBB2A A180725000 mov eax, dword ptr [$00507280]
004EBB2F 8B00 mov eax, [eax]
004EBB31 8B8090050000 mov eax, [eax+$0590]
004EBB37 8B10 mov edx, [eax]
004EBB39 FF5208 call dword ptr [edx+$08]
004EBB3C EB3E jmp 004EBB7C
004EBB3E A180725000 mov eax, dword ptr [$00507280]
004EBB43 8B00 mov eax, [eax]
004EBB45 8B8090050000 mov eax, [eax+$0590]
004EBB4B 8B10 mov edx, [eax]
004EBB4D FF5204 call dword ptr [edx+$04]
004EBB50 6A00 push $00
004EBB52 6A00 push $00
004EBB54 A180725000 mov eax, dword ptr [$00507280]
004EBB59 8B00 mov eax, [eax]
004EBB5B 8B8090050000 mov eax, [eax+$0590]
004EBB61 B1BF mov cl, $BF
004EBB63 B2AC mov dl, $AC
004EBB65 8B30 mov esi, [eax]
004EBB67 FF5628 call dword ptr [esi+$28]
004EBB6A A180725000 mov eax, dword ptr [$00507280]
004EBB6F 8B00 mov eax, [eax]
004EBB71 8B8090050000 mov eax, [eax+$0590]
004EBB77 8B10 mov edx, [eax]
004EBB79 FF5208 call dword ptr [edx+$08]
004EBB7C 8BC3 mov eax, ebx
|
004EBB7E E8B5000000 call 004EBC38
004EBB83 5E pop esi
004EBB84 5B pop ebx
004EBB85 C3 ret
*)
end;
procedure Tat90s2343otherFrm.BitBtn1Click(Sender : TObject);
begin
(*
004EBB88 53 push ebx
004EBB89 56 push esi
004EBB8A 8BD8 mov ebx, eax
004EBB8C A180725000 mov eax, dword ptr [$00507280]
004EBB91 8B00 mov eax, [eax]
004EBB93 8B8090050000 mov eax, [eax+$0590]
004EBB99 8B10 mov edx, [eax]
004EBB9B FF5204 call dword ptr [edx+$04]
004EBB9E 8B83F4020000 mov eax, [ebx+$02F4]
004EBBA4 8B10 mov edx, [eax]
004EBBA6 FF92C4000000 call dword ptr [edx+$00C4]
004EBBAC 84C0 test al, al
004EBBAE 741A jz 004EBBCA
004EBBB0 6A00 push $00
004EBBB2 6A00 push $00
004EBBB4 A180725000 mov eax, dword ptr [$00507280]
004EBBB9 8B00 mov eax, [eax]
004EBBBB 8B8090050000 mov eax, [eax+$0590]
004EBBC1 B1FD mov cl, $FD
004EBBC3 B2AC mov dl, $AC
004EBBC5 8B30 mov esi, [eax]
004EBBC7 FF5628 call dword ptr [esi+$28]
004EBBCA 8B83F8020000 mov eax, [ebx+$02F8]
004EBBD0 8B10 mov edx, [eax]
004EBBD2 FF92C4000000 call dword ptr [edx+$00C4]
004EBBD8 84C0 test al, al
004EBBDA 741A jz 004EBBF6
004EBBDC 6A00 push $00
004EBBDE 6A00 push $00
004EBBE0 A180725000 mov eax, dword ptr [$00507280]
004EBBE5 8B00 mov eax, [eax]
004EBBE7 8B8090050000 mov eax, [eax+$0590]
004EBBED B1F9 mov cl, $F9
004EBBEF B2AC mov dl, $AC
004EBBF1 8B30 mov esi, [eax]
004EBBF3 FF5628 call dword ptr [esi+$28]
004EBBF6 A180725000 mov eax, dword ptr [$00507280]
004EBBFB 8B00 mov eax, [eax]
004EBBFD 8B8090050000 mov eax, [eax+$0590]
004EBC03 8B10 mov edx, [eax]
004EBC05 FF5208 call dword ptr [edx+$08]
004EBC08 8BC3 mov eax, ebx
|
004EBC0A E829000000 call 004EBC38
* Possible String Reference to: '命令已完成!'
|
004EBC0F B824BC4E00 mov eax, $004EBC24
* Reference to: Dialogs.ShowMessage(AnsiString);
|
004EBC14 E8B355F5FF call 004411CC
004EBC19 5E pop esi
004EBC1A 5B pop ebx
004EBC1B C3 ret
*)
end;
procedure Tat90s2343otherFrm.FormClose(Sender : TObject);
begin
(*
004EBC34 C60102 mov byte ptr [ecx], $02
004EBC37 C3 ret
*)
end;
procedure Tat90s2343otherFrm._PROC_004EBD1D(Sender : TObject);
begin
(*
004EBD1D 8BEC mov ebp, esp
004EBD1F 33C0 xor eax, eax
004EBD21 55 push ebp
* Possible String Reference to: '闅咇
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -