远程控制编程

开发平台：

Delphi

MatrixUnit.pas：源码内容

							unit MatrixUnit;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, ExtCtrls, StdCtrls;
type
  TMatrix=class(TForm)
    Buffer: TImage;
    Image: TImage;
    KeepKey: TMemo;
    Edit1: TEdit;
    cursor: TTimer;
    procedure cursorTimer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;
var
  Matrix: TMatrix;
{This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
implementation
{$R *.DFM}
procedure TMatrix.cursorTimer(Sender: TObject);
begin
{
004B4678   55                     push    ebp
004B4679   8BEC                   mov     ebp, esp
004B467B   6A00                   push    $00
004B467D   6A00                   push    $00
004B467F   53                     push    ebx
004B4680   56                     push    esi
004B4681   57                     push    edi
004B4682   8BF0                   mov     esi, eax
004B4684   33C0                   xor     eax, eax
004B4686   55                     push    ebp
* Possible String Reference to: "閃雉

						