actnlist.pas

来自「传奇3delphi代码 请自己看吧 包括地图」· PAS 代码 · 共 59 行

unit ActnList;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TCustomAction=class(TForm)
    procedure ActnList.Initialization(Sender : TObject);
    procedure ActnList.Finalization(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  CustomAction: TCustomAction;

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

implementation

{$R *.DFM}

procedure TCustomAction.ActnList.Initialization(Sender : TObject);
begin
(*
0043798C   832DB837500001         sub     dword ptr [$005037B8], +$01
00437993   C3                     ret

*)
end;

procedure TCustomAction.ActnList.Finalization(Sender : TObject);
begin
(*
0043795C   55                     push    ebp
0043795D   8BEC                   mov     ebp, esp
0043795F   33C0                   xor     eax, eax
00437961   55                     push    ebp
00437962   6881794300             push    $00437981

***** TRY
|
00437967   64FF30                 push    dword ptr fs:[eax]
0043796A   648920                 mov     fs:[eax], esp
0043796D   FF05B8375000           inc     dword ptr [$005037B8]
00437973   33C0                   xor     eax, eax
00437975   5A                     pop     edx
00437976   59                     pop     ecx
00437977   59                     pop     ecx
00437978   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: ']脣纼-