远程控制编程

开发平台：
Delphi

PopUpUnit.pas：源码内容
							unit PopUpUnit;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, ExtCtrls;
type
  TPopUp=class(TForm)
    myShape: TShape;
    bname1: TOutlookBtn;
    bname2: TOutlookBtn;
    bname3: TOutlookBtn;
    bname4: TOutlookBtn;
    bname5: TOutlookBtn;
    bname6: TOutlookBtn;
    bname7: TOutlookBtn;
    bname8: TOutlookBtn;
    bname9: TOutlookBtn;
    bname10: TOutlookBtn;
    bname11: TOutlookBtn;
    bname12: TOutlookBtn;
    procedure bname10Click(Sender: TObject);
    procedure bname11Click(Sender: TObject);
    procedure bname12Click(Sender: TObject);
    procedure bname1Click(Sender: TObject);
    procedure bname2Click(Sender: TObject);
    procedure bname3Click(Sender: TObject);
    procedure bname4Click(Sender: TObject);
    procedure bname5Click(Sender: TObject);
    procedure bname6Click(Sender: TObject);
    procedure bname7Click(Sender: TObject);
    procedure bname8Click(Sender: TObject);
    procedure bname9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;
var
  PopUp: TPopUp;
{This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
implementation
{$R *.DFM}
procedure TPopUp.bname10Click(Sender: TObject);
begin
{
004E5BCC   8B90EC020000           mov     edx, [eax+$02EC]
004E5BD2   8B9234010000           mov     edx, [edx+$0134]
004E5BD8   E88FF5FFFF             call    004E516C
004E5BDD   C3                     ret
}
 end ; 
procedure TPopUp.bname11Click(Sender: TObject);
begin
{
004E5BE0   8B90F0020000           mov     edx, [eax+$02F0]
004E5BE6   8B9234010000           mov     edx, [edx+$0134]
004E5BEC   E87BF5FFFF             call    004E516C
004E5BF1   C3                     ret
}
 end ; 
procedure TPopUp.bname12Click(Sender: TObject);
begin
{
004E5BF4   8B90F4020000           mov     edx, [eax+$02F4]
004E5BFA   8B9234010000           mov     edx, [edx+$0134]
004E5C00   E867F5FFFF             call    004E516C
004E5C05   C3                     ret
}
 end ; 
procedure TPopUp.bname1Click(Sender: TObject);
begin
{
004E5B18   8B90C8020000           mov     edx, [eax+$02C8]
004E5B1E   8B9234010000           mov     edx, [edx+$0134]
004E5B24   E843F6FFFF             call    004E516C
004E5B29   C3                     ret
}
 end ; 
procedure TPopUp.bname2Click(Sender: TObject);
begin
{
004E5B2C   8B90CC020000           mov     edx, [eax+$02CC]
004E5B32   8B9234010000           mov     edx, [edx+$0134]
004E5B38   E82FF6FFFF             call    004E516C
004E5B3D   C3                     ret
}
 end ; 
procedure TPopUp.bname3Click(Sender: TObject);
begin
{
004E5B40   8B90D0020000           mov     edx, [eax+$02D0]
004E5B46   8B9234010000           mov     edx, [edx+$0134]
004E5B4C   E81BF6FFFF             call    004E516C
004E5B51   C3                     ret
}
 end ; 
procedure TPopUp.bname4Click(Sender: TObject);
begin
{
004E5B54   8B90D4020000           mov     edx, [eax+$02D4]
004E5B5A   8B9234010000           mov     edx, [edx+$0134]
004E5B60   E807F6FFFF             call    004E516C
004E5B65   C3                     ret
}
 end ; 
procedure TPopUp.bname5Click(Sender: TObject);
begin
{
004E5B68   8B90D8020000           mov     edx, [eax+$02D8]
004E5B6E   8B9234010000           mov     edx, [edx+$0134]
004E5B74   E8F3F5FFFF             call    004E516C
004E5B79   C3                     ret
}
 end ; 
procedure TPopUp.bname6Click(Sender: TObject);
begin
{
004E5B7C   8B90DC020000           mov     edx, [eax+$02DC]
004E5B82   8B9234010000           mov     edx, [edx+$0134]
004E5B88   E8DFF5FFFF             call    004E516C
004E5B8D   C3                     ret
}
 end ; 
procedure TPopUp.bname7Click(Sender: TObject);
begin
{
004E5B90   8B90E0020000           mov     edx, [eax+$02E0]
004E5B96   8B9234010000           mov     edx, [edx+$0134]
004E5B9C   E8CBF5FFFF             call    004E516C
004E5BA1   C3                     ret
}
 end ; 
procedure TPopUp.bname8Click(Sender: TObject);
begin
{
004E5BA4   8B90E4020000           mov     edx, [eax+$02E4]
004E5BAA   8B9234010000           mov     edx, [edx+$0134]
004E5BB0   E8B7F5FFFF             call    004E516C
004E5BB5   C3                     ret
}
 end ; 
procedure TPopUp.bname9Click(Sender: TObject);
begin
{
004E5BB8   8B90E8020000           mov     edx, [eax+$02E8]
004E5BBE   8B9234010000           mov     edx, [edx+$0134]
004E5BC4   E8A3F5FFFF             call    004E516C
004E5BC9   C3                     ret
}
 end ; 
procedure TPopUp.FormCreate(Sender: TObject);
begin
{
004E5158   E8BBFFFFFF             call    004E5118
004E515D   C3                     ret
}
 end ; 
procedure TPopUp.FormDeactivate(Sender: TObject);
begin
{
004E5160   A1F4735400             mov     eax, dword ptr [$5473F4]
004E5165   E812A9F6FF             call    0044FA7C
004E516A   C3                     ret
}
 end ; 
end.

						