📄 cfgparam.pas
字号:
unit CfgParam;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmCfgParam=class(TForm)
ScrollBox1: TScrollBox;
BitBtn1: TBitBtn;
Button1: TBitBtn;
Button2: TBitBtn;
RxGradientCaption1: TRxGradientCaption;
Memo1: TMemo;
OFFS_04C4: N.A.;
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure mEditChange(Sender : TObject);
procedure BitBtn1Click(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure _PROC_006C14DC(Sender : TObject);
procedure _PROC_006C1588(Sender : TObject);
procedure _PROC_006C16A0(Sender : TObject);
procedure _PROC_006C18F0(Sender : TObject);
procedure _PROC_006C1BE0(Sender : TObject);
procedure _PROC_006C1E7F(Sender : TObject);
procedure _PROC_006C223C(Sender : TObject);
procedure _PROC_006C226C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmCfgParam: TfrmCfgParam;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmCfgParam.FormCreate(Sender : TObject);
begin
(*
006C14C0 33D2 xor edx, edx
006C14C2 33C9 xor ecx, ecx
006C14C4 898C90E8020000 mov [eax+edx*4+$02E8], ecx
006C14CB 33C9 xor ecx, ecx
006C14CD 898C9008030000 mov [eax+edx*4+$0308], ecx
006C14D4 42 inc edx
006C14D5 83FA04 cmp edx, +$04
006C14D8 75E8 jnz 006C14C2
006C14DA C3 ret
*)
end;
procedure TfrmCfgParam.FormDestroy(Sender : TObject);
begin
(*
006C1B84 53 push ebx
006C1B85 56 push esi
006C1B86 57 push edi
006C1B87 8BF0 mov esi, eax
006C1B89 33DB xor ebx, ebx
006C1B8B 8B849EE8020000 mov eax, [esi+ebx*4+$02E8]
006C1B92 85C0 test eax, eax
006C1B94 7405 jz 006C1B9B
* Reference to: system.TObject.Free(TObject);
|
006C1B96 E83117D4FF call 004032CC
006C1B9B 8B849E08030000 mov eax, [esi+ebx*4+$0308]
006C1BA2 85C0 test eax, eax
006C1BA4 7405 jz 006C1BAB
* Reference to: system.TObject.Free(TObject);
|
006C1BA6 E82117D4FF call 004032CC
006C1BAB 43 inc ebx
006C1BAC 83FB04 cmp ebx, +$04
006C1BAF 75DA jnz 006C1B8B
* Reference to field TfrmCfgParam.OFFS_04BC
|
006C1BB1 8BBEBC040000 mov edi, [esi+$04BC]
006C1BB7 4F dec edi
006C1BB8 85FF test edi, edi
006C1BBA 7C13 jl 006C1BCF
006C1BBC 47 inc edi
006C1BBD 33DB xor ebx, ebx
006C1BBF 8B849E28030000 mov eax, [esi+ebx*4+$0328]
* Reference to: system.TObject.Free(TObject);
|
006C1BC6 E80117D4FF call 004032CC
006C1BCB 43 inc ebx
006C1BCC 4F dec edi
006C1BCD 75F0 jnz 006C1BBF
006C1BCF A1F0CF7700 mov eax, dword ptr [$0077CFF0]
006C1BD4 8B00 mov eax, [eax]
* Reference to: Unit_00707E58.Proc_00708DF4
|
006C1BD6 E819720400 call 00708DF4
006C1BDB 5F pop edi
006C1BDC 5E pop esi
006C1BDD 5B pop ebx
006C1BDE C3 ret
*)
end;
procedure TfrmCfgParam.mEditChange(Sender : TObject);
begin
(*
006C1EDC 55 push ebp
006C1EDD 8BEC mov ebp, esp
006C1EDF 33C9 xor ecx, ecx
006C1EE1 51 push ecx
006C1EE2 51 push ecx
006C1EE3 51 push ecx
006C1EE4 51 push ecx
006C1EE5 51 push ecx
006C1EE6 53 push ebx
006C1EE7 56 push esi
006C1EE8 57 push edi
006C1EE9 8955FC mov [ebp-$04], edx
006C1EEC 8BD8 mov ebx, eax
006C1EEE 33C0 xor eax, eax
006C1EF0 55 push ebp
006C1EF1 6827206C00 push $006C2027
***** TRY
|
006C1EF6 64FF30 push dword ptr fs:[eax]
006C1EF9 648920 mov fs:[eax], esp
* Reference to field TfrmCfgParam.OFFS_04C0
|
006C1EFC 8B83C0040000 mov eax, [ebx+$04C0]
006C1F02 0FB6B8CD060000 movzx edi, byte ptr [eax+$06CD]
006C1F09 4F dec edi
006C1F0A 85FF test edi, edi
006C1F0C 0F8CF2000000 jl 006C2004
006C1F12 47 inc edi
006C1F13 33F6 xor esi, esi
006C1F15 8B45FC mov eax, [ebp-$04]
* Reference to class TEdit
|
006C1F18 8B1588A04200 mov edx, [$0042A088]
* Reference to: system.@AsClass;
|
006C1F1E E83915D4FF call 0040345C
006C1F23 3B84B3E8020000 cmp eax, [ebx+esi*4+$02E8]
006C1F2A 0F85CC000000 jnz 006C1FFC
006C1F30 8B84B3E8020000 mov eax, [ebx+esi*4+$02E8]
006C1F37 8D55F0 lea edx, [ebp-$10]
* Reference to: controls.TControl.GetText(TControl):TCaption;
|
006C1F3A E8117BD7FF call 00439A50
006C1F3F 8B45F0 mov eax, [ebp-$10]
006C1F42 8D55F4 lea edx, [ebp-$0C]
* Reference to: Unit_00409434.Proc_0040A37C
|
006C1F45 E83284D4FF call 0040A37C
006C1F4A 837DF400 cmp dword ptr [ebp-$0C], +$00
006C1F4E 0F84B0000000 jz 006C2004
006C1F54 33D2 xor edx, edx
006C1F56 55 push ebp
006C1F57 68B71F6C00 push $006C1FB7
***** TRY
|
006C1F5C 64FF32 push dword ptr fs:[edx]
006C1F5F 648922 mov fs:[edx], esp
006C1F62 8B84B3E8020000 mov eax, [ebx+esi*4+$02E8]
006C1F69 8D55EC lea edx, [ebp-$14]
* Reference to: controls.TControl.GetText(TControl):TCaption;
|
006C1F6C E8DF7AD7FF call 00439A50
006C1F71 8B45EC mov eax, [ebp-$14]
* Reference to: Unit_00409434.Proc_0040A644
|
006C1F74 E8CB86D4FF call 0040A644
006C1F79 8945F8 mov [ebp-$08], eax
006C1F7C 8D0476 lea eax, [esi+esi*2]
* Reference to field TfrmCfgParam.OFFS_04C0
|
006C1F7F 8B93C0040000 mov edx, [ebx+$04C0]
006C1F85 8B948224070000 mov edx, [edx+eax*4+$0724]
006C1F8C 3B55F8 cmp edx, [ebp-$08]
006C1F8F 7C12 jl 006C1FA3
* Reference to field TfrmCfgParam.OFFS_04C0
|
006C1F91 8B93C0040000 mov edx, [ebx+$04C0]
006C1F97 8B848220070000 mov eax, [edx+eax*4+$0720]
006C1F9E 3B45F8 cmp eax, [ebp-$08]
006C1FA1 7E0A jle 006C1FAD
006C1FA3 33C0 xor eax, eax
006C1FA5 5A pop edx
006C1FA6 59 pop ecx
006C1FA7 59 pop ecx
006C1FA8 648910 mov fs:[eax], edx
006C1FAB EB57 jmp 006C2004
006C1FAD 33C0 xor eax, eax
006C1FAF 5A pop edx
006C1FB0 59 pop ecx
006C1FB1 59 pop ecx
006C1FB2 648910 mov fs:[eax], edx
006C1FB5 EB11 jmp 006C1FC8
* Reference to: system.@HandleAnyException;
|
006C1FB7 E9BC17D4FF jmp 00403778
* Reference to: system.@DoneExcept;
|
006C1FBC E8D31BD4FF call 00403B94
006C1FC1 EB41 jmp 006C2004
* Reference to: system.@DoneExcept;
|
006C1FC3 E8CC1BD4FF call 00403B94
****** END
|
006C1FC8 33C0 xor eax, eax
* Reference to field TfrmCfgParam.OFFS_04C4 : Byte
|
006C1FCA 8A83C4040000 mov al, byte ptr [ebx+$04C4]
006C1FD0 C1E002 shl eax, $02
* Reference to field TfrmCfgParam.OFFS_04C0
|
006C1FD3 8B93C0040000 mov edx, [ebx+$04C0]
006C1FD9 8D04C2 lea eax, [edx+eax*8]
006C1FDC 8B55F8 mov edx, [ebp-$08]
006C1FDF 8994B080070000 mov [eax+esi*4+$0780], edx
* Reference to field TfrmCfgParam.OFFS_04C0
|
006C1FE6 8B93C0040000 mov edx, [ebx+$04C0]
006C1FEC A1F0CF7700 mov eax, dword ptr [$0077CFF0]
006C1FF1 8B00 mov eax, [eax]
006C1FF3 B101 mov cl, $01
* Reference to: Unit_00707E58.Proc_00708BD8
|
006C1FF5 E8DE6B0400 call 00708BD8
006C1FFA EB08 jmp 006C2004
006C1FFC 46 inc esi
006C1FFD 4F dec edi
006C1FFE 0F8511FFFFFF jnz 006C1F15
****** END
|
006C2004 33C0 xor eax, eax
006C2006 5A pop edx
006C2007 59 pop ecx
006C2008 59 pop ecx
006C2009 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[嬪]脥@'
|
006C200C 682E206C00 push $006C202E
006C2011 8D45EC lea eax, [ebp-$14]
006C2014 BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
006C2019 E8FA20D4FF call 00404118
006C201E 8D45F4 lea eax, [ebp-$0C]
* Reference to: system.@LStrClr(String;String);
|
006C2021 E8CE20D4FF call 004040F4
006C2026 C3 ret
* Reference to: system.@HandleFinally;
|
006C2027 E9001AD4FF jmp 00403A2C
006C202C EBE3 jmp 006C2011
****** END
|
006C202E 5F pop edi
006C202F 5E pop esi
006C2030 5B pop ebx
006C2031 8BE5 mov esp, ebp
006C2033 5D pop ebp
006C2034 C3 ret
*)
end;
procedure TfrmCfgParam.BitBtn1Click(Sender : TObject);
begin
(*
006C2038 55 push ebp
006C2039 8BEC mov ebp, esp
006C203B 33C9 xor ecx, ecx
006C203D 51 push ecx
006C203E 51 push ecx
006C203F 51 push ecx
006C2040 51 push ecx
006C2041 51 push ecx
006C2042 51 push ecx
006C2043 53 push ebx
006C2044 56 push esi
006C2045 57 push edi
006C2046 8BF0 mov esi, eax
006C2048 33C0 xor eax, eax
006C204A 55 push ebp
006C204B 68A0216C00 push $006C21A0
***** TRY
|
006C2050 64FF30 push dword ptr fs:[eax]
006C2053 648920 mov fs:[eax], esp
* Reference to field TfrmCfgParam.OFFS_04C0
|
006C2056 8B86C0040000 mov eax, [esi+$04C0]
006C205C 0FB6B8CD060000 movzx edi, byte ptr [eax+$06CD]
006C2063 4F dec edi
006C2064 85FF test edi, edi
006C2066 0F8C9C000000 jl 006C2108
006C206C 47 inc edi
006C206D 33DB xor ebx, ebx
006C206F 8B849EE8020000 mov eax, [esi+ebx*4+$02E8]
006C2076 8D55F8 lea edx, [ebp-$08]
* Reference to: controls.TControl.GetText(TControl):TCaption;
|
006C2079 E8D279D7FF call 00439A50
006C207E 8B45F8 mov eax, [ebp-$08]
006C2081 8D55FC lea edx, [ebp-$04]
* Reference to: Unit_00409434.Proc_0040A37C
|
006C2084 E8F382D4FF call 0040A37C
006C2089 837DFC00 cmp dword ptr [ebp-$04], +$00
006C208D 7471 jz 006C2100
006C208F 33D2 xor edx, edx
006C2091 55 push ebp
006C2092 68EF206C00 push $006C20EF
***** TRY
|
006C2097 64FF32 push dword ptr fs:[edx]
006C209A 648922 mov fs:[edx], esp
006C209D 8B849EE8020000 mov eax, [esi+ebx*4+$02E8]
006C20A4 8D55F4 lea edx, [ebp-$0C]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -