WEB开发网
开发学院软件开发Delphi 將字串传入到Windows目前窗口Cursor所在位置 阅读

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

 2006-02-04 13:50:03 来源:WEB开发网   
核心提示:网络ID:wnhoo or sos_admin网名:e梦缘Mail:wnhoo@163.com风花雪月 e梦情缘如下:function GetSysFocus : integer;VarhOtherWin,OtherThreadID,hFocusWin : integer;BeginhOtherWin := GetFo

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

Tags:传入 Windows 目前

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接