📄 aboutunit.pas
字号:
unit AboutUnit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TAboutForm=class(TForm)
DSF: N.A.;
Button1: TButton;
Bevel1: N.A.;
Image1: N.A.;
Label4: TLabel;
Label3: TLabel;
Label2: N.A.;
Label1: TLabel;
procedure Button1Click(Sender : TObject);
procedure Label2Click(Sender : TObject);
procedure Label3Click(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure _PROC_00572AC8(Sender : TObject);
procedure _PROC_00572BBB(Sender : TObject);
procedure _PROC_00572BF9(Sender : TObject);
procedure _PROC_00572C34(Sender : TObject);
procedure _PROC_00572C3C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
AboutForm: TAboutForm;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TAboutForm.Button1Click(Sender : TObject);
begin
(*
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00572AA8 E83B15F1FF call 00483FE8
00572AAD C3 ret
*)
end;
procedure TAboutForm.Label2Click(Sender : TObject);
begin
(*
00572AB0 6A03 push $03
00572AB2 6A00 push $00
00572AB4 6A00 push $00
* Possible String Reference to: 'http://www.huigezi.net/'
|
00572AB6 68C82A5700 push $00572AC8
* Possible String Reference to: 'open'
|
00572ABB 68E02A5700 push $00572AE0
00572AC0 6A00 push $00
* Reference to: shell32.ShellExecuteA()
|
00572AC2 E82112ECFF call 00433CE8
00572AC7 C3 ret
*)
end;
procedure TAboutForm.Label3Click(Sender : TObject);
begin
(*
00572AE8 6A05 push $05
00572AEA 6A00 push $00
00572AEC 6A00 push $00
* Possible String Reference to: 'mailto:huigezi@vip.163.com'
|
00572AEE 68002B5700 push $00572B00
* Possible String Reference to: 'open'
|
00572AF3 681C2B5700 push $00572B1C
00572AF8 6A00 push $00
* Reference to: shell32.ShellExecuteA()
|
00572AFA E8E911ECFF call 00433CE8
00572AFF C3 ret
*)
end;
procedure TAboutForm.FormKeyDown(Sender : TObject);
begin
(*
00572B24 55 push ebp
00572B25 8BEC mov ebp, esp
00572B27 6A00 push $00
00572B29 53 push ebx
00572B2A 56 push esi
00572B2B 8BD9 mov ebx, ecx
00572B2D 8BF0 mov esi, eax
00572B2F 33C0 xor eax, eax
00572B31 55 push ebp
00572B32 68AD2B5700 push $00572BAD
***** TRY
|
00572B37 64FF30 push dword ptr fs:[eax]
00572B3A 648920 mov fs:[eax], esp
* Reference to class EIdInvalidFTPListingFormat
|
00572B3D A0BC2B5700 mov al, byte ptr [$00572BBC]
00572B42 3A4508 cmp al, byte ptr [ebp+$08]
00572B45 7550 jnz 00572B97
00572B47 66833B41 cmp word ptr [ebx], +$41
00572B4B 724A jb 00572B97
00572B4D 66833B5A cmp word ptr [ebx], +$5A
00572B51 7744 jnbe 00572B97
00572B53 8D45FC lea eax, [ebp-$04]
00572B56 668B13 mov dx, word ptr [ebx]
* Reference to: System.@LStrFromChar(String;String;Char);
| or: System.@LStrFromWChar(String;String;WideChar);
| or: System.@WStrFromChar(WideString;WideString;Char);
| or: System.@WStrFromWChar(WideString;WideString;WideChar);
|
00572B59 E8B620E9FF call 00404C14
00572B5E 8B55FC mov edx, [ebp-$04]
00572B61 B804FD5D00 mov eax, $005DFD04
* Reference to: System.@LStrCat;
|
00572B66 E88921E9FF call 00404CF4
00572B6B A104FD5D00 mov eax, dword ptr [$005DFD04]
* Possible String Reference to: 'LOVE'
|
00572B70 BAC82B5700 mov edx, $00572BC8
* Reference to: System.@LStrCmp;
|
00572B75 E8BE22E9FF call 00404E38
00572B7A 751B jnz 00572B97
* Possible String Reference to: '慧到永远! 葛军'
|
00572B7C B8D82B5700 mov eax, $00572BD8
* Reference to: Dialogs.ShowMessage(AnsiString);
|
00572B81 E84636ECFF call 004361CC
00572B86 B804FD5D00 mov eax, $005DFD04
* Reference to: System.@LStrClr(void;void);
|
00572B8B E89C1EE9FF call 00404A2C
00572B90 8BC6 mov eax, esi
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00572B92 E85114F1FF call 00483FE8
00572B97 33C0 xor eax, eax
00572B99 5A pop edx
00572B9A 59 pop ecx
00572B9B 59 pop ecx
00572B9C 648910 mov fs:[eax], edx
****** FINALLY
|
00572B9F 68B42B5700 push $00572BB4
00572BA4 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00572BA7 E8801EE9FF call 00404A2C
00572BAC C3 ret
* Reference to: System.@HandleFinally;
|
00572BAD E9DE17E9FF jmp 00404390
00572BB2 EBF0 jmp 00572BA4
****** END
|
00572BB4 5E pop esi
00572BB5 5B pop ebx
00572BB6 59 pop ecx
00572BB7 5D pop ebp
00572BB8 C20400 ret $0004
*)
end;
procedure TAboutForm._PROC_00572AC8(Sender : TObject);
begin
(*
00572AC8 687474703A push $3A707474
00572ACD 2F das
00572ACE 2F das
00572ACF 7777 jnbe 00572B48
00572AD1 772E jnbe 00572B01
00572AD3 6875696765 push $65676975
00572AD8 7A69 jp 00572B43
00572ADA 2E6E outsb
00572ADC 65742F jz 00572B0E
00572ADF 006F70 add [edi+$70], ch
00572AE2 656E outsb
00572AE4 0000 add [eax], al
00572AE6 0000 add [eax], al
00572AE8 6A05 push $05
00572AEA 6A00 push $00
00572AEC 6A00 push $00
* Possible String Reference to: 'mailto:huigezi@vip.163.com'
|
00572AEE 68002B5700 push $00572B00
* Possible String Reference to: 'open'
|
00572AF3 681C2B5700 push $00572B1C
00572AF8 6A00 push $00
* Reference to: shell32.ShellExecuteA()
|
00572AFA E8E911ECFF call 00433CE8
00572AFF C3 ret
00572B00 6D insd
00572B01 61 popa
00572B02 696C746F3A687569 imul ebp, [esp+esi*2+$6F], $6975683A
00572B0A 67657A69 jp 00572B77
00572B0E 40 inc eax
00572B0F 7669 jbe 00572B7A
00572B11 702E jo 00572B41
00572B13 3136 xor [esi], esi
00572B15 332E xor ebp, [esi]
00572B17 636F6D arpl [edi+$6D], bp
00572B1A 0000 add [eax], al
00572B1C 6F outsd
00572B1D 7065 jo 00572B84
00572B1F 6E outsb
00572B20 0000 add [eax], al
00572B22 0000 add [eax], al
00572B24 55 push ebp
00572B25 8BEC mov ebp, esp
00572B27 6A00 push $00
00572B29 53 push ebx
00572B2A 56 push esi
00572B2B 8BD9 mov ebx, ecx
00572B2D 8BF0 mov esi, eax
00572B2F 33C0 xor eax, eax
00572B31 55 push ebp
00572B32 68AD2B5700 push $00572BAD
***** TRY
|
00572B37 64FF30 push dword ptr fs:[eax]
00572B3A 648920 mov fs:[eax], esp
* Reference to class EIdInvalidFTPListingFormat
|
00572B3D A0BC2B5700 mov al, byte ptr [$00572BBC]
00572B42 3A4508 cmp al, byte ptr [ebp+$08]
00572B45 7550 jnz 00572B97
00572B47 66833B41 cmp word ptr [ebx], +$41
00572B4B 724A jb 00572B97
00572B4D 66833B5A cmp word ptr [ebx], +$5A
00572B51 7744 jnbe 00572B97
00572B53 8D45FC lea eax, [ebp-$04]
00572B56 668B13 mov dx, word ptr [ebx]
* Reference to: System.@LStrFromChar(String;String;Char);
| or: System.@LStrFromWChar(String;String;WideChar);
| or: System.@WStrFromChar(WideString;WideString;Char);
| or: System.@WStrFromWChar(WideString;WideString;WideChar);
|
00572B59 E8B620E9FF call 00404C14
00572B5E 8B55FC mov edx, [ebp-$04]
00572B61 B804FD5D00 mov eax, $005DFD04
* Reference to: System.@LStrCat;
|
00572B66 E88921E9FF call 00404CF4
00572B6B A104FD5D00 mov eax, dword ptr [$005DFD04]
* Possible String Reference to: 'LOVE'
|
00572B70 BAC82B5700 mov edx, $00572BC8
* Reference to: System.@LStrCmp;
|
00572B75 E8BE22E9FF call 00404E38
00572B7A 751B jnz 00572B97
* Possible String Reference to: '慧到永远! 葛军'
|
00572B7C B8D82B5700 mov eax, $00572BD8
* Reference to: Dialogs.ShowMessage(AnsiString);
|
00572B81 E84636ECFF call 004361CC
00572B86 B804FD5D00 mov eax, $005DFD04
* Reference to: System.@LStrClr(void;void);
|
00572B8B E89C1EE9FF call 00404A2C
00572B90 8BC6 mov eax, esi
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00572B92 E85114F1FF call 00483FE8
00572B97 33C0 xor eax, eax
00572B99 5A pop edx
00572B9A 59 pop ecx
00572B9B 59 pop ecx
00572B9C 648910 mov fs:[eax], edx
****** FINALLY
|
00572B9F 68B42B5700 push $00572BB4
00572BA4 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00572BA7 E8801EE9FF call 00404A2C
00572BAC C3 ret
*)
end;
procedure TAboutForm._PROC_00572BBB(Sender : TObject);
begin
(*
00572BBB 0002 add [edx], al
00572BBD 0000 add [eax], al
*)
end;
procedure TAboutForm._PROC_00572BF9(Sender : TObject);
begin
(*
00572BF9 8BEC mov ebp, esp
00572BFB 33C0 xor eax, eax
00572BFD 55 push ebp
00572BFE 68292C5700 push $00572C29
***** TRY
|
00572C03 64FF30 push dword ptr fs:[eax]
00572C06 648920 mov fs:[eax], esp
00572C09 FF0508FD5D00 inc dword ptr [$005DFD08]
00572C0F 750A jnz 00572C1B
00572C11 B804FD5D00 mov eax, $005DFD04
* Reference to: System.@LStrClr(void;void);
|
00572C16 E8111EE9FF call 00404A2C
00572C1B 33C0 xor eax, eax
00572C1D 5A pop edx
00572C1E 59 pop ecx
00572C1F 59 pop ecx
00572C20 648910 mov fs:[eax], edx
****** FINALLY
|
00572C23 68302C5700 push $00572C30
00572C28 C3 ret
* Reference to: System.@HandleFinally;
|
00572C29 E96217E9FF jmp 00404390
00572C2E EBF8 jmp 00572C28
****** END
|
00572C30 5D pop ebp
00572C31 C3 ret
*)
end;
procedure TAboutForm._PROC_00572C34(Sender : TObject);
begin
(*
00572C34 832D08FD5D0001 sub dword ptr [$005DFD08], +$01
00572C3B C3 ret
*)
end;
procedure TAboutForm._PROC_00572C3C(Sender : TObject);
begin
(*
00572C3C 882C57 mov [edi+edx*2], ch
00572C3F 0000 add [eax], al
*)
end;
end.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -