dialogs.pas

来自「酷鱼下载线源程序」· PAS 代码 · 共 67 行

unit Dialogs;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TSaveDialog=class(TForm)
    procedure Execute(Sender : TObject);
    procedure _PROC_0043F7E0(Sender : TObject);
    procedure _PROC_0043F848(Sender : TObject);
    procedure _PROC_0043F890(Sender : TObject);
    procedure _PROC_0043F8C4(Sender : TObject);
    procedure _PROC_0043F8EC(Sender : TObject);
    procedure _PROC_0043F924(Sender : TObject);
    procedure _PROC_0043F970(Sender : TObject);
    procedure _PROC_0043F978(Sender : TObject);
    procedure _PROC_0043F990(Sender : TObject);
    procedure _PROC_0043F9A8(Sender : TObject);
    procedure _PROC_0043F9BC(Sender : TObject);
    procedure _PROC_0043FA90(Sender : TObject);
    procedure _PROC_0043FAA4(Sender : TObject);
    procedure _PROC_0043FAB8(Sender : TObject);
    procedure _PROC_0043FB3C(Sender : TObject);
    procedure _PROC_0043FBB0(Sender : TObject);
    procedure _PROC_0043FC39(Sender : TObject);
    procedure _PROC_0043FD35(Sender : TObject);
    procedure _PROC_0043FD3C(Sender : TObject);
    procedure _PROC_0043FD5C(Sender : TObject);
    procedure _PROC_0043FD7C(Sender : TObject);
    procedure _PROC_0043FD9C(Sender : TObject);
    procedure _PROC_0043FDD8(Sender : TObject);
    procedure _PROC_0043FE6D(Sender : TObject);
    procedure _PROC_0044012C(Sender : TObject);
    procedure _PROC_00440178(Sender : TObject);
    procedure _PROC_00440279(Sender : TObject);
    procedure _PROC_00440330(Sender : TObject);
    procedure _PROC_00440384(Sender : TObject);
    procedure _PROC_004403DC(Sender : TObject);
    procedure _PROC_004403EC(Sender : TObject);
    procedure _PROC_00440454(Sender : TObject);
    procedure _PROC_00440490(Sender : TObject);
    procedure _PROC_004404E4(Sender : TObject);
    procedure _PROC_00440130(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
(*
00440478   53                     push    ebx
00440479   8BD8                   mov     ebx, eax

* Possible String Reference to: '