將字串传入到Windows目前窗口Cursor所在位置

彩色眼镜逗一群

彩色眼镜逗一群

2016-02-19 12:50

下面,图老师小编带您去了解一下將字串传入到Windows目前窗口Cursor所在位置,生活就是不断的发现新事物,get新技能~

  网络ID:wnhoo or sos_admin
  网名:e梦缘
  Mail:
wnhoo@163.com
  风花雪月 e梦情缘

  如下:

  function GetSysFocus : integer;
  Var
  hOtherWin,OtherThreadID,hFocusWin : integer;
  Begin
  hOtherWin := GetForegroundWindow;
  OtherThreadID := GetWindowThreadProcessID( hOtherWin, nil);
  If AttachThreadInput( GetCurrentThreadID, OtherThreadID, true ) Then
  Begin
  hFocusWin := GetFocus;
  result := GetFocus;
  AttachThreadInput( GetCurrentThreadID, OtherThreadID, False );
  End
  else
  result := getFocus;
  End;

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  
  procedure TForm1.Timer1Timer(Sender: TObject);
  var
  s:string;
  begin
  s:='test';
  SendMessage(GetSysFocus, WM_SETTEXT,0,longint(PCHAR(S)));
  end;

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)
展开更多 50%)
分享

猜你喜欢

將字串传入到Windows目前窗口Cursor所在位置

编程语言 网络编程
將字串传入到Windows目前窗口Cursor所在位置

用js取得鼠标所在位置的对象

Web开发
用js取得鼠标所在位置的对象

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

《黑暗之魂2》全商人所在位置详解

黑暗之魂
《黑暗之魂2》全商人所在位置详解

如何实现在TextBox中如何得知Caret所在位置

编程语言 网络编程
如何实现在TextBox中如何得知Caret所在位置

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

JTable中怎样获取鼠标所在位置的行数

编程语言 网络编程
JTable中怎样获取鼠标所在位置的行数

win7电脑如何修改当前所在位置?

电脑网络
win7电脑如何修改当前所在位置?

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Delphi与C++之间通过实现函数与对象共享

Delphi与C++之间通过实现函数与对象共享

利用MSXML解析XML文本

利用MSXML解析XML文本
下拉加载更多内容 ↓