controls.pas

传奇3delphi代码 请自己看吧 包括地图

unit Controls;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TImageList=class(TForm)
    procedure _PROC_0042923E(Sender : TObject);
    procedure _PROC_00429262(Sender : TObject);
    procedure _PROC_0042926F(Sender : TObject);
    procedure _PROC_0042927C(Sender : TObject);
    procedure _PROC_00429289(Sender : TObject);
    procedure _PROC_00429296(Sender : TObject);
    procedure _PROC_004292A3(Sender : TObject);
    procedure _PROC_004292B0(Sender : TObject);
    procedure Controls.Initialization(Sender : TObject);
    procedure Controls.Finalization(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  ImageList: TImageList;

{This file is generated by DeDe Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TImageList._PROC_0042923E(Sender : TObject);
begin
(*
0042923E   C08CE9C7B2000083       ror     byte ptr [ecx+ebp*8+$B2C7], $83
00429246   C08CE9C3B2000083       ror     byte ptr [ecx+ebp*8+$B2C3], $83
0042924E   C08CE9A7B3000083       ror     byte ptr [ecx+ebp*8+$B3A7], $83
00429256   C08C508B008B4008       ror     byte ptr [eax+edx*2+$408B008B], $08
0042925E   870424                 xchg    [esp], eax
00429261   C3                     ret

*)
end;

procedure TImageList._PROC_00429262(Sender : TObject);
begin
(*
00429262   83C08C                 add     eax, -$74
00429265   50                     push    eax
00429266   8B00                   mov     eax, [eax]
00429268   8B400C                 mov     eax, [eax+$0C]
0042926B   870424                 xchg    [esp], eax
0042926E   C3                     ret

*)
end;

procedure TImageList._PROC_0042926F(Sender : TObject);
begin
(*
0042926F   83C08C                 add     eax, -$74
00429272   50                     push    eax
00429273   8B00                   mov     eax, [eax]
00429275   8B4028                 mov     eax, [eax+$28]
00429278   870424                 xchg    [esp], eax
0042927B   C3                     ret

*)
end;

procedure TImageList._PROC_0042927C(Sender : TObject);
begin
(*
0042927C   83C08C                 add     eax, -$74
0042927F   50                     push    eax
00429280   8B00                   mov     eax, [eax]
00429282   8B4014                 mov     eax, [eax+$14]
00429285   870424                 xchg    [esp], eax
00429288   C3                     ret

*)
end;

procedure TImageList._PROC_00429289(Sender : TObject);
begin
(*
00429289   83C08C                 add     eax, -$74
0042928C   50                     push    eax
0042928D   8B00                   mov     eax, [eax]
0042928F   8B4018                 mov     eax, [eax+$18]
00429292   870424                 xchg    [esp], eax
00429295   C3                     ret

*)
end;

procedure TImageList._PROC_00429296(Sender : TObject);
begin
(*
00429296   83C08C                 add     eax, -$74
00429299   50                     push    eax
0042929A   8B00                   mov     eax, [eax]
0042929C   8B4020                 mov     eax, [eax+$20]
0042929F   870424                 xchg    [esp], eax
004292A2   C3                     ret

*)
end;

procedure TImageList._PROC_004292A3(Sender : TObject);
begin
(*
004292A3   83C08C                 add     eax, -$74
004292A6   50                     push    eax
004292A7   8B00                   mov     eax, [eax]
004292A9   8B401C                 mov     eax, [eax+$1C]
004292AC   870424                 xchg    [esp], eax
004292AF   C3                     ret

*)
end;

procedure TImageList._PROC_004292B0(Sender : TObject);
begin
(*
004292B0   83C08C                 add     eax, -$74
004292B3   E92CC90000             jmp     00435BE4
004292B8   834424048C             add     dword ptr [esp+$04], -$74

* Reference to: System.Proc_00406C40
|
004292BD   E97ED9FDFF             jmp     00406C40
004292C2   834424048C             add     dword ptr [esp+$04], -$74

* Reference to: System.Proc_00406C68
|
004292C7   E99CD9FDFF             jmp     00406C68
004292CC   834424048C             add     dword ptr [esp+$04], -$74

* Reference to: System.Proc_00406C7C
|
004292D1   E9A6D9FDFF             jmp     00406C7C
004292D6   CC                     int     3
004292D7   B8924200C2             mov     eax, $C2004292
004292DC   92                     xchg    eax, edx
004292DD   42                     inc     edx
004292DE   00CC                   add     ah, cl
004292E0   92                     xchg    eax, edx
004292E1   42                     inc     edx
004292E2   003D92420045           add     [$45004292], bh
004292E8   92                     xchg    eax, edx
004292E9   42                     inc     edx
004292EA   004D92                 add     [ebp-$6E], cl
004292ED   42                     inc     edx
004292EE   005592                 add     [ebp-$6E], dl
004292F1   42                     inc     edx
004292F2   006292                 add     [edx-$6E], ah
004292F5   42                     inc     edx
004292F6   006F92                 add     [edi-$6E], ch
004292F9   42                     inc     edx
004292FA   007C9242               add     [edx+edx*4+$42], bh
004292FE   008992420096           add     [ecx+$96004292], cl
00429304   92                     xchg    eax, edx
00429305   42                     inc     edx
00429306   00A3924200B0           add     [ebx+$B0004292], ah
0042930C   92                     xchg    eax, edx
0042930D   42                     inc     edx
0042930E   0001                   add     [ecx], al
00429310   0000                   add     [eax], al

*)
end;

procedure TImageList.Controls.Initialization(Sender : TObject);
begin
(*
00436B48   832D5037500001         sub     dword ptr [$00503750], +$01
00436B4F   731A                   jnb     00436B6B

* Reference to: kernel32.GetVersion()
|
00436B51   E8BA0FFDFF             call    00407B10
00436B56   25FF000000             and     eax, $000000FF
00436B5B   6683F804               cmp     ax, +$04
00436B5F   0F93054C375000         setnb   byte ptr [$0050374C]

* Reference to: Controls.Proc_004369E8
|
00436B66   E87DFEFFFF             call    004369E8
00436B6B   C3                     ret

*)
end;

procedure TImageList.Controls.Finalization(Sender : TObject);
begin
(*
00436AF4   55                     push    ebp
00436AF5   8BEC                   mov     ebp, esp
00436AF7   33C0                   xor     eax, eax
00436AF9   55                     push    ebp

* Possible String Reference to: '镠它