📄 wizard.pas
字号:
unit Wizard;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmWizard=class(TForm)
ListBox1: TListBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Label1: TLabel;
procedure FormClose(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormActivate(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure FormKeyPress(Sender : TObject);
procedure ListBox1DrawItem(Sender : TObject);
procedure ListBox1DblClick(Sender : TObject);
procedure _PROC_0065C9A8(Sender : TObject);
procedure _PROC_0065CA94(Sender : TObject);
procedure _PROC_0065CAC0(Sender : TObject);
procedure _PROC_0065CB9C(Sender : TObject);
procedure _PROC_0065CBD0(Sender : TObject);
procedure _PROC_0065D2AE(Sender : TObject);
procedure _PROC_0065D590(Sender : TObject);
procedure _PROC_0065D5C0(Sender : TObject);
procedure Proc_0065D293(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmWizard: TfrmWizard;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmWizard.FormClose(Sender : TObject);
begin
(*
0065CADC C60101 mov byte ptr [ecx], $01
0065CADF C3 ret
*)
end;
procedure TfrmWizard.FormDestroy(Sender : TObject);
begin
(*
0065C92C 53 push ebx
0065C92D 8BD8 mov ebx, eax
* Reference to field TfrmWizard.OFFS_02EC
|
0065C92F 8B83EC020000 mov eax, [ebx+$02EC]
0065C935 85C0 test eax, eax
0065C937 7405 jz 0065C93E
* Reference to: system.@FreeMem;
|
0065C939 E8425FDAFF call 00402880
* Reference to control TfrmWizard.RadioButton1 : TRadioButton
|
0065C93E 8B83D8020000 mov eax, [ebx+$02D8]
0065C944 8B10 mov edx, [eax]
* Reference to method TRadioButton.GetChecked()
|
0065C946 FF92B4000000 call dword ptr [edx+$00B4]
0065C94C 84C0 test al, al
0065C94E 741A jz 0065C96A
0065C950 6A01 push $01
* Reference to pointer to GlobalVar_0078CF04
|
0065C952 A1F8CF7700 mov eax, dword ptr [$0077CFF8]
0065C957 8B00 mov eax, [eax]
* Possible String Reference to: 'Wizard'
|
0065C959 B98CC96500 mov ecx, $0065C98C
* Possible String Reference to: 'Setting'
|
0065C95E BA9CC96500 mov edx, $0065C99C
0065C963 8B18 mov ebx, [eax]
* Possible reference to virtual method TGlobalVar_0078CF04.OFFS_0C
|
0065C965 FF530C call dword ptr [ebx+$0C]
0065C968 5B pop ebx
0065C969 C3 ret
0065C96A 6A00 push $00
* Reference to pointer to GlobalVar_0078CF04
|
0065C96C A1F8CF7700 mov eax, dword ptr [$0077CFF8]
0065C971 8B00 mov eax, [eax]
* Possible String Reference to: 'Wizard'
|
0065C973 B98CC96500 mov ecx, $0065C98C
* Possible String Reference to: 'Setting'
|
0065C978 BA9CC96500 mov edx, $0065C99C
0065C97D 8B18 mov ebx, [eax]
* Possible reference to virtual method TGlobalVar_0078CF04.OFFS_0C
|
0065C97F FF530C call dword ptr [ebx+$0C]
0065C982 5B pop ebx
0065C983 C3 ret
*)
end;
procedure TfrmWizard.FormCreate(Sender : TObject);
begin
(*
0065C884 53 push ebx
0065C885 56 push esi
0065C886 8BD8 mov ebx, eax
0065C888 BE01000000 mov esi, $00000001
* Reference to field TfrmWizard.OFFS_02E8
|
0065C88D 89B3E8020000 mov [ebx+$02E8], esi
0065C893 6BC632 imul eax, esi, $32
0065C896 C1E003 shl eax, $03
0065C899 8D0440 lea eax, [eax+eax*2]
* Reference to: Unit_00409434.Proc_00409FF8
|
0065C89C E857D7DAFF call 00409FF8
* Reference to field TfrmWizard.OFFS_02EC
|
0065C8A1 8983EC020000 mov [ebx+$02EC], eax
0065C8A7 33C0 xor eax, eax
* Reference to field TfrmWizard.OFFS_02F0
|
0065C8A9 8983F0020000 mov [ebx+$02F0], eax
* Reference to field TfrmWizard.OFFS_02F4
|
0065C8AF C783F4020000FFFFFFFF mov dword ptr [ebx+$02F4], $FFFFFFFF
0065C8B9 6A01 push $01
* Reference to pointer to GlobalVar_0078CF04
|
0065C8BB A1F8CF7700 mov eax, dword ptr [$0077CFF8]
0065C8C0 8B00 mov eax, [eax]
* Possible String Reference to: 'Wizard'
|
0065C8C2 B914C96500 mov ecx, $0065C914
* Possible String Reference to: 'Setting'
|
0065C8C7 BA24C96500 mov edx, $0065C924
0065C8CC 8B30 mov esi, [eax]
* Possible reference to virtual method TGlobalVar_0078CF04.OFFS_08
|
0065C8CE FF5608 call dword ptr [esi+$08]
0065C8D1 85C0 test eax, eax
0065C8D3 7512 jnz 0065C8E7
0065C8D5 B201 mov dl, $01
* Reference to control TfrmWizard.RadioButton2 : TRadioButton
|
0065C8D7 8B83DC020000 mov eax, [ebx+$02DC]
0065C8DD 8B08 mov ecx, [eax]
* Reference to method TRadioButton.SetChecked(Boolean)
|
0065C8DF FF91B8000000 call dword ptr [ecx+$00B8]
0065C8E5 EB10 jmp 0065C8F7
0065C8E7 B201 mov dl, $01
* Reference to control TfrmWizard.RadioButton1 : TRadioButton
|
0065C8E9 8B83D8020000 mov eax, [ebx+$02D8]
0065C8EF 8B08 mov ecx, [eax]
* Reference to method TRadioButton.SetChecked(Boolean)
|
0065C8F1 FF91B8000000 call dword ptr [ecx+$00B8]
0065C8F7 8BC3 mov eax, ebx
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
0065C8F9 E88A34DEFF call 0043FD88
0065C8FE BA0A000000 mov edx, $0000000A
* Reference to: Unit_00651A88.Proc_00654BA8
|
0065C903 E8A082FFFF call 00654BA8
0065C908 5E pop esi
0065C909 5B pop ebx
0065C90A C3 ret
*)
end;
procedure TfrmWizard.FormActivate(Sender : TObject);
begin
(*
0065CAE0 C3 ret
*)
end;
procedure TfrmWizard.FormKeyDown(Sender : TObject);
begin
(*
0065CAE4 55 push ebp
0065CAE5 8BEC mov ebp, esp
0065CAE7 53 push ebx
0065CAE8 56 push esi
0065CAE9 8BF1 mov esi, ecx
0065CAEB 8BD8 mov ebx, eax
* Reference to THJ32Main instance
|
0065CAED A158D37700 mov eax, dword ptr [$0077D358]
0065CAF2 8B00 mov eax, [eax]
* Reference to: forms.TCustomForm.GetActiveMDIChild(TCustomForm):TForm;
|
0065CAF4 E83F6EDFFF call 00453938
0065CAF9 85C0 test eax, eax
0065CAFB 7424 jz 0065CB21
0065CAFD 8A4508 mov al, byte ptr [ebp+$08]
0065CB00 50 push eax
* Reference to THJ32Main instance
|
0065CB01 A158D37700 mov eax, dword ptr [$0077D358]
0065CB06 8B00 mov eax, [eax]
* Reference to: forms.TCustomForm.GetActiveMDIChild(TCustomForm):TForm;
|
0065CB08 E82B6EDFFF call 00453938
* Reference to class THJForm
|
0065CB0D 8B1544027500 mov edx, [$00750244]
* Reference to: system.@AsClass;
|
0065CB13 E84469DAFF call 0040345C
0065CB18 8BCE mov ecx, esi
0065CB1A 8BD3 mov edx, ebx
* Reference to : THJForm._PROC_00750B80()
|
0065CB1C E85F400F00 call 00750B80
0065CB21 5E pop esi
0065CB22 5B pop ebx
0065CB23 5D pop ebp
0065CB24 C20400 ret $0004
*)
end;
procedure TfrmWizard.FormKeyPress(Sender : TObject);
begin
(*
0065CB28 53 push ebx
0065CB29 56 push esi
0065CB2A 8BF1 mov esi, ecx
0065CB2C 8BD8 mov ebx, eax
* Reference to THJ32Main instance
|
0065CB2E A158D37700 mov eax, dword ptr [$0077D358]
0065CB33 8B00 mov eax, [eax]
* Reference to: forms.TCustomForm.GetActiveMDIChild(TCustomForm):TForm;
|
0065CB35 E8FE6DDFFF call 00453938
0065CB3A 85C0 test eax, eax
0065CB3C 7420 jz 0065CB5E
* Reference to THJ32Main instance
|
0065CB3E A158D37700 mov eax, dword ptr [$0077D358]
0065CB43 8B00 mov eax, [eax]
* Reference to: forms.TCustomForm.GetActiveMDIChild(TCustomForm):TForm;
|
0065CB45 E8EE6DDFFF call 00453938
* Reference to class THJForm
|
0065CB4A 8B1544027500 mov edx, [$00750244]
* Reference to: system.@AsClass;
|
0065CB50 E80769DAFF call 0040345C
0065CB55 8BCE mov ecx, esi
0065CB57 8BD3 mov edx, ebx
* Reference to : THJForm._PROC_00750928()
|
0065CB59 E8CA3D0F00 call 00750928
0065CB5E 5E pop esi
0065CB5F 5B pop ebx
0065CB60 C3 ret
*)
end;
procedure TfrmWizard.ListBox1DrawItem(Sender : TObject);
begin
(*
0065CB64 55 push ebp
0065CB65 8BEC mov ebp, esp
0065CB67 83C4F0 add esp, -$10
0065CB6A 56 push esi
0065CB6B 57 push edi
0065CB6C 8B750C mov esi, [ebp+$0C]
0065CB6F 8D7DF0 lea edi, [ebp-$10]
0065CB72 51 push ecx
0065CB73 B904000000 mov ecx, $00000004
0065CB78 F3 rep
0065CB79 A5 movsd
0065CB7A 59 pop ecx
0065CB7B 51 push ecx
0065CB7C 6A01 push $01
0065CB7E 6A01 push $01
* Reference to control TfrmWizard.ListBox1 : TListBox
|
0065CB80 8B90D0020000 mov edx, [eax+$02D0]
* Reference to field TListBox.Canvas : TCanvas
|
0065CB86 8B92F8010000 mov edx, [edx+$01F8]
0065CB8C 8D4DF0 lea ecx, [ebp-$10]
* Reference to : TfrmWizard._PROC_0065CBD0()
|
0065CB8F E83C000000 call 0065CBD0
0065CB94 5F pop edi
0065CB95 5E pop esi
0065CB96 8BE5 mov esp, ebp
0065CB98 5D pop ebp
0065CB99 C20800 ret $0008
*)
end;
procedure TfrmWizard.ListBox1DblClick(Sender : TObject);
begin
(*
0065D4A0 55 push ebp
0065D4A1 8BEC mov ebp, esp
0065D4A3 83C4F8 add esp, -$08
0065D4A6 53 push ebx
0065D4A7 56 push esi
0065D4A8 33C9 xor ecx, ecx
0065D4AA 894DF8 mov [ebp-$08], ecx
0065D4AD 8BD8 mov ebx, eax
0065D4AF 33C0 xor eax, eax
0065D4B1 55 push ebp
* Possible String Reference to: '棣d⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -