你这样,用
var
p:Tpoint;
Buf: array[0..1024] of Char;
SetWindowPos(Form.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE);
GetCursorpos(p);
WindowFromPos(p);找到鼠标所指地方句炳。
GetClassName(Handle, Buf, 1024);
ClassEdit.Text := Buf;//看到了吧这就是这个文本框的classname
这样你就可以用
findwindow()和findwindowEX()来得到它的句炳。
然后用SendMessage(Handle, WM_GETTEXT, ,,);
得到文本框的内容,而不用管他是什么语言开发的。
历程你可以看这里。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1008932
相应的把static换成你所得到的那个文本框的classname。
//QQ
procedure TForm1.Button1Click(Sender: TObject);
var
handle:THandle;
buf:array[0..1024] of char;
begin
handle:=FindWindow(nil,'发送消息');
handle:=FindWindowEX(handle,0,'Edit',nil);
SendMessage(handle,WM_GetText,1024,Integer(@buf));
memo1.Text:=buf;
end;
ok了?散分吧。