RSS订阅 | 匿名投稿
您的位置:网站首页 > 鼠标 > 正文

delphi 获取当前鼠标指针位置文本

作者:admin 来源: 日期:2018/1/2 14:26:08 人气: 标签:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    XPManifest1: TXPManifest;
    Button1: TButton;
    Memo1: TMemo;
    Timer1: TTimer;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
h:hwnd;

procedure TForm1.Button1Click(Sender: TObject);
begin
    if timer1.Enabled=false then
    begin
    timer1.Enabled:=true;
    form1.Caption:='开始捕获';
    button1.Caption:='停止';
    end
    else
    begin
    timer1.Enabled:=false;
    form1.Caption:='停止捕获';
    button1.Caption:='开始';
    end;
    //memo1.Clear;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  p: array[0..254] of Char;
  point:TPoint;
  hWd :hwnd;
begin
   GetCursorPos(point);  //取当前鼠标指针位置
   hWd := WindowFromPoint(point);   //取当前鼠标指针位置句柄
   //GetWindowText(hWd, lpCaption, 255);  //获取当前鼠标指针位置文本
 {
  if h <> GetForegroundWindow then
  begin
    h := GetForegroundWindow;
    GetWindowText(h, p, 255);
    }
  if h <> hWd then
  begin
    h := hWd;
    GetWindowText(h, p, 255);

    if p <> '' then
    begin
       Memo1.Lines.Add(p);
       Edit1.Text:=p;
    end;

    //Memo1.Lines.Add(p);
  end;
end;

end.


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料