请问如何获取另外一个程序中编辑框内的文本？(100分)

B

borlandor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #1

请问在应用程序中如何获取另外一个程序中编辑框内的文本，比如记事本里的内容，多谢！

 

B

borlandor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #2

How to do it?

 

F

free_knight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #3

procedure TMainForm.TimerTimer(Sender: TObject);
var
Pos: TPoint;
Handle: HWND;
Buf: array[0..1024] of Char;
begin
GetCursorPos(Pos);
Handle := WindowFromPoint(Pos);
SendMessage(Handle, WM_GETTEXT, 1024, Integer(@Buf));
TextEdit.Text := Buf;
end;

 

B

borlandor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #4

谢谢！也可以这么作：
function GetTextFromOtherWindow(Hwnd:Integer;UInt:Integer):Boolean;stdcall;
var TextBuf:array[0..255] of char;
begin
SendMessage(Hwnd,WM_GETTEXT,255,Integer(@TextBuf));
Form1.Memo1.Text := TextBuf;
end;

procedure TForm1.Button1Click(Sender: TObject);
var LParam: Integer;
begin
LParam := 0;
EnumChildWindows(GetDeskTopwindow,@GetTextFromOtherWindow,LParam);
end;

 

W

wbcp2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #5

作为你的软件设计时，应考虑到接口的设计，可以考虑象进程间通讯，或用COM来设计
，这样以后调用就简单了，只调用提供的接口函数。

 

淡

淡淡的笑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-25

• #6

nice

 

A

aizb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-31

• #7

这是一简单的Hook应用，我做了一个简单的Demo，可以取得密码输入框的密码，就是基于这个
原理，有原码，如果想要的话，请给我Email，aizb@163.net或http://aizb.6to23.com。