远程控制编程

开发平台：
Delphi

ShowImgUnit.pas：源码内容
							unit ShowImgUnit;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, ExtCtrls;
type
  TShowImg=class(TForm)
    myShape: TShape;
    Image1: TImage;
    CloseButton: TFlatSpeedButton;
    SaveButton: TFlatSpeedButton;
    SaveDialog1: TSaveDialog;
    procedure CloseButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure SaveButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;
var
  ShowImg: TShowImg;
{This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
implementation
{$R *.DFM}
procedure TShowImg.CloseButtonClick(Sender: TObject);
begin
{
004DD5A4   E8D324F7FF             call    0044FA7C
004DD5A9   C3                     ret
}
 end ; 
procedure TShowImg.FormCreate(Sender: TObject);
begin
{
004DD59C   E8AFFEFFFF             call    004DD450
004DD5A1   C3                     ret
}
 end ; 
procedure TShowImg.FormHide(Sender: TObject);
begin
{
004DDA34   53                     push    ebx
004DDA35   8BD8                   mov     ebx, eax
004DDA37   33D2                   xor     edx, edx
004DDA39   8BC3                   mov     eax, ebx
004DDA3B   E8BCF8F6FF             call    0044D2FC
004DDA40   B201                   mov     dl, $01
004DDA42   8B83CC020000           mov     eax, [ebx+$02CC]
004DDA48   E8938BF5FF             call    004365E0
004DDA4D   B201                   mov     dl, $01
004DDA4F   8B83C8020000           mov     eax, [ebx+$02C8]
004DDA55   E8868BF5FF             call    004365E0
004DDA5A   33D2                   xor     edx, edx
004DDA5C   8B83F0010000           mov     eax, [ebx+$01F0]
004DDA62   E851D7F6FF             call    0044B1B8
004DDA67   33D2                   xor     edx, edx
004DDA69   8B83EC010000           mov     eax, [ebx+$01EC]
004DDA6F   E844D7F6FF             call    0044B1B8
004DDA74   5B                     pop     ebx
004DDA75   C3                     ret
}
 end ; 
procedure TShowImg.Image1DblClick(Sender: TObject);
begin
{
004DDA2C   E84B20F7FF             call    0044FA7C
004DDA31   C3                     ret
}
 end ; 
procedure TShowImg.SaveButtonClick(Sender: TObject);
begin
{
004DD5AC   55                     push    ebp
004DD5AD   8BEC                   mov     ebp, esp
004DD5AF   6A00                   push    $00
004DD5B1   6A00                   push    $00
004DD5B3   53                     push    ebx
004DD5B4   56                     push    esi
004DD5B5   8BF0                   mov     esi, eax
004DD5B7   33C0                   xor     eax, eax
004DD5B9   55                     push    ebp
004DD5BA   6856D64D00             push    $004DD656
***** TRY
|
004DD5BF   64FF30                 push    dword ptr fs:[eax]
004DD5C2   648920                 mov     fs:[eax], esp
004DD5C5   8B86D0020000           mov     eax, [esi+$02D0]
004DD5CB   8B10                   mov     edx, [eax]
004DD5CD   FF523C                 call    dword ptr [edx+$3C]
004DD5D0   84C0                   test    al, al
004DD5D2   7464                   jz      004DD638
004DD5D4   B201                   mov     dl, $01
004DD5D6   A174484800             mov     eax, dword ptr [$484874]
004DD5DB   E84475FAFF             call    00484B24
004DD5E0   8BD8                   mov     ebx, eax
004DD5E2   8D55FC                 lea     edx, [ebp-$04]
004DD5E5   A1DC495400             mov     eax, dword ptr [$5449DC]
004DD5EA   8B00                   mov     eax, [eax]
004DD5EC   E82BFC0300             call    0051D21C
004DD5F1   8D45FC                 lea     eax, [ebp-$04]
* Possible String Reference to: "desktop.jpg"
|
004DD5F4   BA6CD64D00             mov     edx, $004DD66C
004DD5F9   E8E268F2FF             call    00403EE0
004DD5FE   8B55FC                 mov     edx, [ebp-$04]
004DD601   8BC3                   mov     eax, ebx
004DD603   8B08                   mov     ecx, [eax]
004DD605   FF5148                 call    dword ptr [ecx+$48]
004DD608   8D55F8                 lea     edx, [ebp-$08]
004DD60B   8B86D0020000           mov     eax, [esi+$02D0]
004DD611   E85AA9F7FF             call    00457F70
004DD616   8B55F8                 mov     edx, [ebp-$08]
004DD619   8BC3                   mov     eax, ebx
004DD61B   8B08                   mov     ecx, [eax]
004DD61D   FF514C                 call    dword ptr [ecx+$4C]
004DD620   A1DC495400             mov     eax, dword ptr [$5449DC]
004DD625   8B00                   mov     eax, [eax]
* Possible String Reference to: "image saved."
|
004DD627   BA80D64D00             mov     edx, $004DD680
004DD62C   E813F20300             call    0051C844
004DD631   8BC3                   mov     eax, ebx
004DD633   E87C59F2FF             call    00402FB4
004DD638   33C0                   xor     eax, eax
004DD63A   5A                     pop     edx
004DD63B   59                     pop     ecx
004DD63C   59                     pop     ecx
004DD63D   648910                 mov     fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: "^[YY]

						