yuanc.pas

这是一个非常好的教师和学生沟通用的电子教室!

unit YuanC;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, LMDCustomControl, LMDCustomPanel,
  LMDCustomBevelPanel, LMDBaseEdit, LMDCustomEdit, LMDCustomBrowseEdit,
  LMDFileOpenEdit, inifiles,TFlatHintUnit, LMDBrowseEdit, XPMenu,
  SkinEngine, TFlatPanelUnit, TFlatSpeedButtonUnit, XP_Button;

type
  TYuanCf = class(TForm)
    FlatHint1: TFlatHint;
    FlatPanel1: TFlatPanel;
    FlatPanel2: TFlatPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn1: TBitBtn;
    GroupBox2: TGroupBox;
    LMDFileOpenEdit1: TLMDFileOpenEdit;
    BitBtn2: TBitBtn;
    XPMenu1: TXPMenu;
    Label2: TLabel;
    FlatSpeedButton1: TFlatSpeedButton;
    BitBtn3: TBitBtn;
    XP_Button1: TXP_Button;
    XP_Button2: TXP_Button;
    XP_Button3: TXP_Button;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YuanCf: TYuanCf;

implementation
uses main;
{$R *.DFM}

procedure TYuanCf.BitBtn1Click(Sender: TObject);
var
  i: smallint;
begin
//发送命令
  for i := 0 to student_count - 1 do
    if (form1.ListView1.Items[i].imageindex <> 0)
      and (form1.listView1.Items[i].Selected = true) then
    begin
      wsh_socket[i].SendStr('/*csh*/:' + #13 + #10 + '远程命令' +
        trim(combobox1.text));
      sleep(1);
    end;
end;

procedure TYuanCf.BitBtn3Click(Sender: TObject);
var
  i: smallint;
begin
//发送命令
  for i := 0 to student_count - 1 do
    if (form1.ListView1.Items[i].imageindex <> 0)
      and (form1.listView1.Items[i].Selected = true) then
    begin
      wsh_socket[i].SendStr('/*csh*/:' + #13 + #10 + '远程命令' +
        trim(LMDFileOpenEdit1.text));
      sleep(1);
    end;
end;

procedure TYuanCf.BitBtn4Click(Sender: TObject);
var
  i: smallint;
begin
//发送命令
  for i := 0 to student_count - 1 do
    if (form1.ListView1.Items[i].imageindex <> 0)
      and (form1.listView1.Items[i].Selected = true) then
    begin
      wsh_socket[i].SendStr('/*csh*/:' + #13 + #10 + '远程命令' +
        trim('winword'));
      sleep(1);
    end;
end;

procedure TYuanCf.BitBtn5Click(Sender: TObject);
var
  i: smallint;
begin
//发送命令
  for i := 0 to student_count - 1 do
    if (form1.ListView1.Items[i].imageindex <> 0)
      and (form1.listView1.Items[i].Selected = true) then
    begin
      wsh_socket[i].SendStr('/*csh*/:' + #13 + #10 + '远程命令' +
        trim('excel'));
      sleep(1);
    end;
end;

procedure TYuanCf.BitBtn6Click(Sender: TObject);
var
  i: smallint;
begin
//发送命令
  for i := 0 to student_count - 1 do
    if (form1.ListView1.Items[i].imageindex <> 0)
      and (form1.listView1.Items[i].Selected = true) then
    begin
      wsh_socket[i].SendStr('/*csh*/:' + #13 + #10 + '远程命令' +
        trim('frontpg'));
      sleep(1);
    end;
end;

procedure TYuanCf.BitBtn7Click(Sender: TObject);
var
  i: smallint;
begin
//发送命令
  for i := 0 to student_count - 1 do
    if (form1.ListView1.Items[i].imageindex <> 0)
      and (form1.listView1.Items[i].Selected = true) then
    begin
      wsh_socket[i].SendStr('/*csh*/:' + #13 + #10 + '远程命令' +
        trim('msaccess'));
      sleep(1);
    end;
end;

procedure TYuanCf.BitBtn8Click(Sender: TObject);
var
  i: smallint;
begin
//发送命令
  for i := 0 to student_count - 1 do
    if (form1.ListView1.Items[i].imageindex <> 0)
      and (form1.listView1.Items[i].Selected = true) then
    begin
      wsh_socket[i].SendStr('/*csh*/:' + #13 + #10 + '远程命令' +
        trim('powerpnt'));
      sleep(1);
    end;
end;

procedure TYuanCf.BitBtn9Click(Sender: TObject);
var
  i: smallint;
begin
//发送命令
  for i := 0 to student_count - 1 do
    if (form1.ListView1.Items[i].imageindex <> 0)
      and (form1.listView1.Items[i].Selected = true) then
    begin
      wsh_socket[i].SendStr('/*csh*/:' + #13 + #10 + '远程命令' +
        trim('iexplore'));
      sleep(1);
    end;
end;

procedure TYuanCf.BitBtn10Click(Sender: TObject);
var
  i: smallint;
begin
//发送命令
  for i := 0 to student_count - 1 do
    if (form1.ListView1.Items[i].imageindex <> 0)
      and (form1.listView1.Items[i].Selected = true) then
    begin
      wsh_socket[i].SendStr('/*csh*/:' + #13 + #10 + '远程命令' +
        trim('calc'));
      sleep(1);
    end;
end;

procedure TYuanCf.BitBtn11Click(Sender: TObject);
var
  i: smallint;
begin
//发送命令
  for i := 0 to student_count - 1 do
    if (form1.ListView1.Items[i].imageindex <> 0)
      and (form1.listView1.Items[i].Selected = true) then
    begin
      wsh_socket[i].SendStr('/*csh*/:' + #13 + #10 + '远程命令' +
        trim('notepad'));
      sleep(1);
    end;
end;

end.