dialogs.pas

大名鼎鼎的BLUE M2源码,非了好大的劲搞来的,修改日期是080514,需要的朋友可以拿去研究,呵呵,M2界的领头老大.

unit Dialogs;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TSaveDialog=class(TForm)
    procedure Execute(Sender : TObject);
    procedure _PROC_00435FE8(Sender : TObject);
    procedure _PROC_00436050(Sender : TObject);
    procedure _PROC_00436098(Sender : TObject);
    procedure _PROC_004360CC(Sender : TObject);
    procedure _PROC_004360F4(Sender : TObject);
    procedure _PROC_0043612C(Sender : TObject);
    procedure _PROC_00436178(Sender : TObject);
    procedure _PROC_00436180(Sender : TObject);
    procedure _PROC_00436198(Sender : TObject);
    procedure _PROC_004361B0(Sender : TObject);
    procedure _PROC_004361C4(Sender : TObject);
    procedure _PROC_00436298(Sender : TObject);
    procedure _PROC_004362AC(Sender : TObject);
    procedure _PROC_004362C0(Sender : TObject);
    procedure _PROC_00436344(Sender : TObject);
    procedure _PROC_004363B8(Sender : TObject);
    procedure _PROC_00436441(Sender : TObject);
    procedure _PROC_0043653D(Sender : TObject);
    procedure _PROC_00436544(Sender : TObject);
    procedure _PROC_00436564(Sender : TObject);
    procedure _PROC_00436584(Sender : TObject);
    procedure _PROC_004365A4(Sender : TObject);
    procedure _PROC_004365E0(Sender : TObject);
    procedure _PROC_00436675(Sender : TObject);
    procedure _PROC_00436934(Sender : TObject);
    procedure _PROC_00436980(Sender : TObject);
    procedure _PROC_00436A81(Sender : TObject);
    procedure _PROC_00436B38(Sender : TObject);
    procedure _PROC_00436B8C(Sender : TObject);
    procedure _PROC_00436BE4(Sender : TObject);
    procedure _PROC_00436BF4(Sender : TObject);
    procedure _PROC_00436C5C(Sender : TObject);
    procedure _PROC_00436C98(Sender : TObject);
    procedure _PROC_00436CEC(Sender : TObject);
    procedure _PROC_00436D72(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  SaveDialog: TSaveDialog;

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

implementation

{$R *.DFM}

procedure TSaveDialog.Execute(Sender : TObject);
begin
(*
00436C80   53                     push    ebx
00436C81   8BD8                   mov     ebx, eax

* Possible String Reference to: '