远程控制编程

开发平台：

Delphi

ShowPictureUnit.pas：源码内容

							unit ShowPictureUnit;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, ExtCtrls;
type
  TfrmPicture=class(TForm)
    pnPic: TPanel;
    imgPic: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure imgPicDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;
var
  frmPicture: TfrmPicture;
{This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
implementation
{$R *.DFM}
procedure TfrmPicture.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{
004B4378   33D2                   xor     edx, edx
004B437A   A1B4D74D00             mov     eax, dword ptr [$4DD7B4]
004B437F   E89C0CF9FF             call    00445020
004B4384   C3                     ret
}
 end ; 
procedure TfrmPicture.FormCreate(Sender: TObject);
begin
{
004B438C   55                     push    ebp
004B438D   8BEC                   mov     ebp, esp
004B438F   6A00                   push    $00
004B4391   53                     push    ebx
004B4392   56                     push    esi
004B4393   8BD8                   mov     ebx, eax
004B4395   33C0                   xor     eax, eax
004B4397   55                     push    ebp
* Possible String Reference to: "間篝

						