如何获得另一应用程序中的文本框中的文本内容
谢谢
谢谢
解决方案 »
- Delphi7 DAO3.6 建表有问题!
- 一个简单的问题,D7中,打印机的打印尺寸怎样和屏幕尺寸(像素)换算?
- 这里的Cursor到底指什么意思呢????????????????????????
- 谁能帮我介绍几个用于EMAIL程序制作的第三方控件?
- ★★★[ 问了好多地方……无解……快绝望了……请大家一定帮忙看看 ]★★★
- 抓屏如何把鼠标图象一起抓进去?
- 求版主别删除!www.new7wonders.com/ 距离世界七大奇迹选举结束日子不多了,至今为止参加投票的中国人只占总投票人数的5.9%,排名第5,这
- 怎样计算字符的多少(包括中英文字符)?
- Delphi 开发问题
- 关于Wingate的问题,有谁知道?
- 请教,超市用的钱箱怎么样用程序控制它的开闭,在线急待
- 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;