远程控制编程

开发平台：
Delphi

GetPathUnit.pas：源码内容
							unit GetPathUnit;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls;
type
  TGetNewPath=class(TForm)
    CaptionLabel: TLabel;
    CloseButton: TFlatSpeedButton;
    OutlookBtn1: TOutlookBtn;
    OutlookBtn2: TOutlookBtn;
    ListDrives: TListBox;
    procedure CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
    procedure CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
    procedure CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
    procedure CloseButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure OutlookBtn1Click(Sender: TObject);
    procedure OutlookBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;
var
  GetNewPath: TGetNewPath;
{This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
implementation
{$R *.DFM}
procedure TGetNewPath.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
begin
{
004D0448   55                     push    ebp
004D0449   8BEC                   mov     ebp, esp
004D044B   53                     push    ebx
004D044C   8BD8                   mov     ebx, eax
004D044E   8B83C4020000           mov     eax, [ebx+$02C4]
004D0454   8B4024                 mov     eax, [eax+$24]
004D0457   E880C0F6FF             call    0043C4DC
004D045C   50                     push    eax
* Reference to: SHBrowseForFolderA.SetCapture
|
004D045D   E81674F3FF             call    00407878
004D0462   C783E0020000FFFFFFFF   mov     dword ptr [ebx+$02E0], $FFFFFFFF
004D046C   8B450C                 mov     eax, [ebp+$0C]
004D046F   8983D8020000           mov     [ebx+$02D8], eax
004D0475   8B4508                 mov     eax, [ebp+$08]
004D0478   8983DC020000           mov     [ebx+$02DC], eax
004D047E   5B                     pop     ebx
004D047F   5D                     pop     ebp
004D0480   C20C                   ret     $0C
}
 end ; 
procedure TGetNewPath.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
begin
{
004D0484   55                     push    ebp
004D0485   8BEC                   mov     ebp, esp
004D0487   53                     push    ebx
004D0488   56                     push    esi
004D0489   8BD8                   mov     ebx, eax
004D048B   83BBE002000000         cmp     dword ptr [ebx+$02E0], +$00
004D0492   7433                   jz      004D04C7
004D0494   8B83C4020000           mov     eax, [ebx+$02C4]
004D049A   8B7024                 mov     esi, [eax+$24]
004D049D   8B83D8020000           mov     eax, [ebx+$02D8]
004D04A3   2B450C                 sub     eax, dword ptr [ebp+$0C]
004D04A6   8B5630                 mov     edx, [esi+$30]
004D04A9   2BD0                   sub     edx, eax
004D04AB   8BC6                   mov     eax, esi
004D04AD   E8FA59F6FF             call    00435EAC
004D04B2   8B83DC020000           mov     eax, [ebx+$02DC]
004D04B8   2B4508                 sub     eax, dword ptr [ebp+$08]
004D04BB   8B5634                 mov     edx, [esi+$34]
004D04BE   2BD0                   sub     edx, eax
004D04C0   8BC6                   mov     eax, esi
004D04C2   E8095AF6FF             call    00435ED0
004D04C7   5E                     pop     esi
004D04C8   5B                     pop     ebx
004D04C9   5D                     pop     ebp
004D04CA   C208                   ret     $08
}
 end ; 
procedure TGetNewPath.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
begin
{
004D04D0   55                     push    ebp
004D04D1   8BEC                   mov     ebp, esp
004D04D3   53                     push    ebx
004D04D4   56                     push    esi
004D04D5   8BD8                   mov     ebx, eax
004D04D7   83BBE002000000         cmp     dword ptr [ebx+$02E0], +$00
004D04DE   7440                   jz      004D0520
004D04E0   8B83C4020000           mov     eax, [ebx+$02C4]
004D04E6   8B7024                 mov     esi, [eax+$24]
* Reference to: SHBrowseForFolderA.ReleaseCapture
|
004D04E9   E83A73F3FF             call    00407828
004D04EE   33C0                   xor     eax, eax
004D04F0   8983E0020000           mov     [ebx+$02E0], eax
004D04F6   8B83D8020000           mov     eax, [ebx+$02D8]
004D04FC   2B450C                 sub     eax, dword ptr [ebp+$0C]
004D04FF   8B5630                 mov     edx, [esi+$30]
004D0502   2BD0                   sub     edx, eax
004D0504   8BC6                   mov     eax, esi
004D0506   E8A159F6FF             call    00435EAC
004D050B   8B83DC020000           mov     eax, [ebx+$02DC]
004D0511   2B4508                 sub     eax, dword ptr [ebp+$08]
004D0514   8B5634                 mov     edx, [esi+$34]
004D0517   2BD0                   sub     edx, eax
004D0519   8BC6                   mov     eax, esi
004D051B   E8B059F6FF             call    00435ED0
004D0520   5E                     pop     esi
004D0521   5B                     pop     ebx
004D0522   5D                     pop     ebp
004D0523   C20C                   ret     $0C
}
 end ; 
procedure TGetNewPath.CloseButtonClick(Sender: TObject);
begin
{
004D0440   E837F6F7FF             call    0044FA7C
004D0445   C3                     ret
}
 end ; 
procedure TGetNewPath.FormCreate(Sender: TObject);
begin
{
004D01F8   55                     push    ebp
004D01F9   8BEC                   mov     ebp, esp
004D01FB   6A00                   push    $00
004D01FD   6A00                   push    $00
004D01FF   53                     push    ebx
004D0200   56                     push    esi
004D0201   8BD8                   mov     ebx, eax
004D0203   8B35DC495400           mov     esi, [$5449DC]
004D0209   33C0                   xor     eax, eax
004D020B   55                     push    ebp
* Possible String Reference to: "閅2

						