strform.pas

广外女生的源程序.远程控制程序.具有一定的研究价值.适合阅读

unit StrForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls;

type
  TStringForm=class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  StringForm: TStringForm;


{This file is generated by DeDe v1.06 (c) 1999 by DaFixer}

implementation

{$R *.DFM}


procedure TStringForm.FormShow(Sender: TObject);
begin
{
0048A078   53                     push    ebx
0048A079   8BD8                   mov     ebx, eax
0048A07B   8B83D0020000           mov     eax, [ebx+$02D0]
0048A081   8B10                   mov     edx, [eax]
0048A083   FF524C                 call    dword ptr [edx+$4C]
0048A086   84C0                   test    al, al
0048A088   741B                   jz      0048A0A5
0048A08A   8B83D0020000           mov     eax, [ebx+$02D0]
0048A090   8B10                   mov     edx, [eax]
0048A092   FF92B0000000           call    dword ptr [edx+$00B0]
0048A098   8B83D0020000           mov     eax, [ebx+$02D0]
0048A09E   E8C1C5F9FF             call    00426664
0048A0A3   5B                     pop     ebx
0048A0A4   C3                     ret


}
 end ; 

end.