delphi�⒆执�传入到Windows目前窗口Cursor所在位置

本文整理自网络，侵删。

  网络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;


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

相关阅读 >>

Delphi 的运算符重载

Delphi 递归获取窗口所有子窗口所以句柄

Delphi xe2 - 实现无敌关机键

Delphi 使用并行库中的ttask

Delphi 获取所有磁盘分区

Delphi 关于 beep、messagebeep 和 windows.beep

Delphi idhttp下载带清理网络缓存

Delphi2010读取mysql数据库text类型乱码的解决方案

Delphi 显示选择文件夹对话框 (有新建按钮)

Delphi winapi: getnextwindow - 获取指定窗口z上或z下的窗口的句柄

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi�⒆执�传入到Windows目前窗口Cursor所在位置