message.pas

一个远程监控程序

unit Message;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, XPMenu;

type
  TfrmMessage = class(TForm)
    sbSend: TSpeedButton;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    SpeedButton1: TSpeedButton;
    XPMenu1: TXPMenu;
    procedure SpeedButton1Click(Sender: TObject);
    procedure sbSendClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMessage: TfrmMessage;

implementation

uses Umain;

{$R *.dfm}

procedure TfrmMessage.SpeedButton1Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmMessage.sbSendClick(Sender: TObject);
Var
  temptext:string;
  ldt_time:String;
  Year,Mon,Day,Hour, Min, Sec, MSec: Word;
  Present:TDateTime;
begin
  if memo1.Text<>'' then begin
    Present:= Now;
    DecodeTime(Present, Hour,min,sec,MSec);  ///格式化时间///
    Present:= Date;
    DecodeDate(Present,Year,Mon,Day);//格式化日期
    ldt_time:='发送时间:'+inttostr(Year)+'年'+inttostr(Mon)+'月'+inttostr(Day)+'号  '+inttostr(Hour)+'点'+inttostr(Min)+'分'+inttostr(Sec)+'秒';
    temptext:='m'+Memo1.Text+Char(13)+ldt_time;
    frmClient.ClntSocket.Socket.SendText(temptext);
    memo1.Text:='';
  end;
end;

end.