unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Label3: TLabel;
    Label4: TLabel;
    LabelPosition: TLabel;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    procedure Timer1Timer(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Memo1DblClick(Sender: TObject);
  private
    { Private declarations }
    procedure SetIcon1;
    procedure SetIcon2;
    procedure SetMyCursor;
    procedure RestoreCursor;
    procedure SetLabelTimerProEnable;
    procedure SetLabelTimerProDisable;
    procedure DrawRectangle;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R SpyRES.RES}
(*
  ｛使用资源中的图标｝
  Image1.Picture.Icon.LoadFromResourceName(HInstance,'DragIcon');
  Image1.Picture.Icon.LoadFromResourceName(HInstance,'DefaultIcon');

  {使用资源中的光标}
  var  h: HCURSOR;
  begin
  h:= LoadCursor(HInstance,'DragCursor');
  SetSystemCursor(h,ocr_normal);
  end;

  {恢复默认光标}
  SystemParametersinfo(SPI_SETCURSORS,0,nil,SPIF_SENDCHANGE);

*)

// ------------------------------------------------------------------------------
procedure TForm1.SetIcon1;
begin
  Form1.Image1.Picture.Icon.LoadFromResourceName(HInstance, 'DefaultIcon');
end;

procedure TForm1.SetIcon2;
begin
  Form1.Image1.Picture.Icon.LoadFromResourceName(HInstance, 'DragIcon');
end;

procedure TForm1.SetMyCursor;
var
  h: HCURSOR;
begin
  h := LoadCursor(HInstance, 'DragCursor');
  SetSystemCursor(h, ocr_normal);
end;

procedure TForm1.RestoreCursor;
begin
  SystemParametersinfo(SPI_SETCURSORS, 0, nil, SPIF_SENDCHANGE);
end;

procedure TForm1.SetLabelTimerProEnable;
begin
  LabelPosition.Caption := '';
  LabelPosition.Visible := True;
  Timer1.Enabled := True;
end;

procedure TForm1.SetLabelTimerProDisable;
begin
  LabelPosition.Visible := False;
  Timer1.Enabled := False;
end;

procedure TForm1.DrawRectangle;
var
  C: TCanvas;
  h: HWND;
  Rec: TRect;
  p: TPoint;
begin
  GetCursorPos(p);
  h := WindowFromPoint(p);
  GetWindowRect(h, Rec);
  C := TCanvas.Create;
  C.Handle := Windows.GetWindowDC(h);
  with C do
  begin
    Pen.Color := clBlack;
    Brush.Style := bsClear;
    Pen.Width := 5;
    FillRect(Rec);
    // -------------OBJ WIDTH               OBJ HEIGHT
    Rectangle(0, 0, Rec.Right - Rec.Left, Rec.Bottom - Rec.Top);
    Free;
  end;
end;

// ------------------------------------------------------------------------------
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  SetIcon2;
  SetMyCursor;
  SetLabelTimerProEnable;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  SetIcon1;
  RestoreCursor;
  SetLabelTimerProDisable;
end;

procedure TForm1.Memo1DblClick(Sender: TObject);
begin
  Memo1.SelectAll;
end;

// -------------------------------------------------------------------------------

procedure TForm1.Timer1Timer(Sender: TObject);
var
  h: HWND;
  p: TPoint;
  Rec: TRect;
  sClassName, sWindowText: array [0 .. 254] of Char;
begin
  GetCursorPos(p);
  LabelPosition.Caption := Format('%d,%d', [p.X, p.Y]);

  h := WindowFromPoint(p);
  Edit1.Text := Format('%.8x', [h]);

  GetClassName(h, sClassName, SizeOf(sClassName));
  GetWindowText(h, sWindowText, SizeOf(sClassName));

  Memo1.Text := sWindowText;
  Edit3.Text := sClassName;

  GetWindowRect(h, Rec);
  Edit4.Text := Format('(%d %d %d %d) %d x %d', [Rec.Left, Rec.Top, Rec.Right,
    Rec.Bottom, Rec.Right - Rec.Left, Rec.Bottom - Rec.Top]);
  DrawRectangle();
end;

end.