stdactns.pas

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

unit StdActns;

interface

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

var
  HintAction: THintAction;

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

implementation

{$R *.DFM}

procedure THintAction.StdActns.Initialization(Sender : TObject);
begin
(*
004273C0   832D3C37500001         sub     dword ptr [$0050373C], +$01
004273C7   7327                   jnb     004273F0

* Possible String Reference to: 'Delphi Picture'
|
004273C9   68F4734200             push    $004273F4

* Reference to: user32.RegisterClipboardFormatA()
|
004273CE   E8550EFEFF             call    00408228
004273D3   66A338375000           mov     word ptr [$00503738], ax

* Possible String Reference to: 'Delphi Component'
|
004273D9   6804744200             push    $00427404

* Reference to: user32.RegisterClipboardFormatA()
|
004273DE   E8450EFEFF             call    00408228
004273E3   66A33A375000           mov     word ptr [$0050373A], ax
004273E9   33C0                   xor     eax, eax

* Reference to GlobalVar_00503740
|
004273EB   A340375000             mov     dword ptr [$00503740], eax
004273F0   C3                     ret

*)
end;

procedure THintAction.StdActns.Finalization(Sender : TObject);
begin
(*
00427384   55                     push    ebp
00427385   8BEC                   mov     ebp, esp
00427387   33C0                   xor     eax, eax
00427389   55                     push    ebp

* Possible String Reference to: '橐慢