unit7.pas

来自「利用delphi编写的密码生成器！与大家分享交流 ！」· PAS 代码 · 共 76 行

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TForm7=class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormShow(Sender : TObject);
    procedure _PROC_004942E8(Sender : TObject);
    procedure _PROC_00494318(Sender : TObject);
    procedure _PROC_00494320(Sender : TObject);
    procedure _PROC_00494386(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Form7: TForm7;

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

implementation

{$R *.DFM}

procedure TForm7.FormShow(Sender : TObject);
begin
(*
004942BC   53                     push    ebx
004942BD   8BD8                   mov     ebx, eax

* Reference to control TForm7.Image1 : TImage
|
004942BF   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference to field TImage.Height : Integer
|
004942C5   8B504C                 mov     edx, [eax+$4C]
004942C8   83C21F                 add     edx, +$1F
004942CB   8BC3                   mov     eax, ebx

* Reference to: Controls.TControl.SetHeight(TControl;Integer);
|
004942CD   E86E0CFBFF             call    00444F40
004942D2   8BC3                   mov     eax, ebx

|
004942D4   E86BFDFFFF             call    00494044
004942D9   8BC3                   mov     eax, ebx
004942DB   8B10                   mov     edx, [eax]

* Reference to method TForm7.Repaint()
|
004942DD   FF9280000000           call    dword ptr [edx+$0080]
004942E3   5B                     pop     ebx
004942E4   C3                     ret

*)
end;

procedure TForm7._PROC_004942E8(Sender : TObject);
begin
(*
004942E8   55                     push    ebp
004942E9   8BEC                   mov     ebp, esp
004942EB   33C0                   xor     eax, eax
004942ED   55                     push    ebp

* Possible String Reference to: '轭鲻