warnquit.pas

来自「一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.」· PAS 代码 · 共 52 行

unit WarnQuit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ExtCtrls
type
  TfrmQuit=class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    procedure Timer1Timer(Sender : TObject);
    procedure _PROC_0069FF24(Sender : TObject);
    procedure _PROC_0069FF54(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmQuit: TfrmQuit;

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

implementation

{$R *.DFM}

procedure TfrmQuit.Timer1Timer(Sender : TObject);
begin
(*

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0069FF1C   E89B61DBFF             call    004560BC
0069FF21   C3                     ret

*)
end;

procedure TfrmQuit._PROC_0069FF24(Sender : TObject);
begin
(*
0069FF24   55                     push    ebp
0069FF25   8BEC                   mov     ebp, esp
0069FF27   33C0                   xor     eax, eax
0069FF29   55                     push    ebp

* Possible String Reference to: '檗: