classes.pas

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

unit Classes;

interface

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

var
  BasicAction: TBasicAction;

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

implementation

{$R *.DFM}

procedure TBasicAction.Classes.Initialization(Sender : TObject);
begin
(*
004181E0   832D2036500001         sub     dword ptr [$00503620], +$01
004181E7   7369                   jnb     00418252
004181E9   6834365000             push    $00503634

* Reference to: kernel32.InitializeCriticalSection()
|
004181EE   E86DF9FEFF             call    00407B60

* Possible String Reference to: '鑛