远程控制编程

开发平台：

Delphi

BookMarkUnit.pas：源码内容

							unit BookMarkUnit;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls;
type
  TBookmarks=class(TForm)
    CaptionLabel: TLabel;
    CloseButton: TFlatSpeedButton;
    AddButton: TFlatSpeedButton;
    DeleteButton: TFlatSpeedButton;
    BookmarkList: TListBox;
    procedure AddButtonClick(Sender: TObject);
    procedure BookmarkListDblClick(Sender: TObject);
    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 DeleteButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;
var
  Bookmarks: TBookmarks;
{This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
implementation
{$R *.DFM}
procedure TBookmarks.AddButtonClick(Sender: TObject);
begin
{
004D149C   55                     push    ebp
004D149D   8BEC                   mov     ebp, esp
004D149F   6A00                   push    $00
004D14A1   53                     push    ebx
004D14A2   8BD8                   mov     ebx, eax
004D14A4   33C0                   xor     eax, eax
004D14A6   55                     push    ebp
* Possible String Reference to: "閇!

						