qrprgres.pas

音像租赁管理系统 进行音像店的日常工作管理!

unit QRPrgres;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TQRProgressForm=class(TForm)
    Info: TLabel;
    CancelButton: TButton;
    Gauge: TProgressBar;
    procedure CancelButtonClick(Sender : TObject);
    procedure _PROC_004F0CD9(Sender : TObject);
    procedure _PROC_004F0D08(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  QRProgressForm: TQRProgressForm;

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

implementation

{$R *.DFM}

procedure TQRProgressForm.CancelButtonClick(Sender : TObject);
begin
(*

* Reference to field TQRProgressForm.OFFS_02FC
|
004F0CCC   8B80FC020000           mov     eax, [eax+$02FC]

* Reference to: QRPrntr.Proc_0050D930
|
004F0CD2   E859CC0100             call    0050D930
004F0CD7   C3                     ret

*)
end;

procedure TQRProgressForm._PROC_004F0CD9(Sender : TObject);
begin
(*
004F0CD9   8BEC                   mov     ebp, esp
004F0CDB   33C0                   xor     eax, eax
004F0CDD   55                     push    ebp

* Possible String Reference to: '锽4