如何获得另一应用程序中的文本框中的文本内容
谢谢
谢谢
解决方案 »
- 求助,TMemoryStream是什么意思?
- 熟悉TcxGrid的高手请帮小弟一把,小弟在线等待!急!急……
- 请教数据库多表(3表)联合操作的问题:数据量大会引起程序假死!该如何解决!
- 【算法求助 200分】 如何调整字体大小来适应网格大小?详情见内,帮顶有分!
- 如何编程获取视频源?各位大哥有AVICAP32.PAS文件吗?
- report builder(delphi 7) 怎样直接打印,不弹出预览窗口和打印机窗口?急!
- 为啥那些招聘上写的都是要C,C++程序员?
- 关于For 循环倒序问题
- 请问如何从网站中保存一些IMAGE,FLASH 在本地硬盘上?我指的用CODE实视!
- 各位大虾,谁能给我提供,匿名发送邮件的程序代码啊。。。。
- 请教,超市用的钱箱怎么样用程序控制它的开闭,在线急待
- TList排序问题。
是richedit
文本框我试过了可以获得
但richedit怎么获得的是空呀
sos
Pos: TPoint;
Handle: HWND;
ScreenDC: HDC;
Buf: array[0..1024] of Char;
begin
GetCursorPos(Pos); // 得到当前光标位置
Handle := WindowFromPoint(Pos); // 返回当前位置的句柄
HandleText.Caption := IntToStr(Handle);
GetClassName(Handle, Buf, 1024); // 得到类名
ClassNameText.Caption := Buf;
SendMessage(Handle, WM_GETTEXT, 33, Integer(@Buf)); // 得到标题
TitleText.Caption := Buf;//你要得
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
Pos: TPoint;
Handle: HWND;
ScreenDC: HDC;
Buf: array[0..255] of char;
tmp:string;
len:integer;begin
GetCursorPos(Pos); // 得到当前光标位置
Handle := WindowFromPoint(Pos); // 返回当前位置的句柄
edit1.Text := IntToStr(Handle);
GetClassName(Handle, @Buf, 1024); // 得到类名
edit2.Text:= Buf;
len:=sendMessage(handle,WM_GETTEXTLENGTH,0,0);
SendMessage(Handle, WM_GETTEXT, len*2, Integer(@Buf)); // 得到标题
edit3.Text := Buf;//你要得
end;