远程控制编程

开发平台：

Delphi

Unit5.pas：源码内容

							unit Unit5;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls;
type
  TMyChat=class(TForm)
    Bevel1: TBevel;
    Edit1: TEdit;
    Button1: TButton;
    MyMemo: TRichEdit;
    Timer: TTimer;
    Timer2: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure MyMemoChange(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;
var
  MyChat: TMyChat;
{This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
implementation
{$R *.DFM}
procedure TMyChat.Button1Click(Sender: TObject);
begin
{
004B3E2C   55                     push    ebp
004B3E2D   8BEC                   mov     ebp, esp
004B3E2F   83C4EC                 add     esp, -$14
004B3E32   53                     push    ebx
004B3E33   56                     push    esi
004B3E34   57                     push    edi
004B3E35   33C9                   xor     ecx, ecx
004B3E37   894DEC                 mov     [ebp-$14], ecx
004B3E3A   894DF0                 mov     [ebp-$10], ecx
004B3E3D   8945FC                 mov     [ebp-$04], eax
004B3E40   33C0                   xor     eax, eax
004B3E42   55                     push    ebp
* Possible String Reference to: "

						