请问如何提取另一个程序中一文本框内输入的内容？(50分)

我是小石头 · 2002-02-21

gxcooo · 2002-02-21

转贴： unit MainFrm; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, ExtCtrls; type   TMainForm = class(TForm)     HandleEdit: TEdit;     TextEdit: TEdit;     OnTopCheckBox: TCheckBox;     Timer: TTimer;     procedure FormCreate(Sender: TObject);     procedure TimerTimer(Sender: TObject);     procedure OnTopCheckBoxClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   MainForm: TMainForm; implementation {$R *.DFM} procedure SetStayOnTop(Form: TForm; Value: Boolean); begin   if Value Then     SetWindowPos(Form.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE )   else     SetWindowPos(Form.Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSI ZE); end; procedure TMainForm.FormCreate(Sender: TObject); begin   SetStayOnTop(Self, True); end; procedure TMainForm.TimerTimer(Sender: TObject); var   Pos: TPoint;   Handle: HWND;   Buf: array[0..1024] of Char; begin   GetCursorPos(Pos);   Handle := WindowFromPoint(Pos);   HandleEdit.Text := IntToStr(Handle);   SendMessage(Handle, WM_GETTEXT, 1024, Integer(@Buf));   TextEdit.Text := Buf; end; procedure TMainForm.OnTopCheckBoxClick(Sender: TObject); begin   SetStayOnTop(Self, OnTopCheckBox.Checked); end; end.

goddy · 2002-02-21

我是小石头 · 2002-02-21

没有问题吗？我是提取另一程序(我只知道窗口界面)的文本框内容， 如：    用户在程序中输入“1234556”，我的程序就能取得这一个字符串!

sun77wind · 2002-02-21

//就是它 var   Pos: TPoint;   Handle: HWND;   Buf: array[0..1024] of Char; begin   GetCursorPos(Pos);   Handle := WindowFromPoint(Pos);   HandleEdit.Text := IntToStr(Handle);   SendMessage(Handle, WM_GETTEXT, 1024, Integer(@Buf));   TextEdit.Text := Buf; end;

hfghfghfg · 2002-02-22

我以前也做过 { 写一个F10健的hook 获得焦点所在的窗口handle(当时是找next按钮) 将按钮的enabed激活 发送消息 我破解安装程序的方法 }

xxhsh · 2002-02-22

具体怎么作的，能说一下吗？？？？？

我是小石头 · 2002-02-25

我才开始学，能不能给我一个完整的示例？       ___我要根据窗口中另一个按纽来触发!

请问如何提取另一个程序中一文本框内输入的内容？(50分)

我是小石头

Unregistered / Unconfirmed

gxcooo

Unregistered / Unconfirmed

goddy

Unregistered / Unconfirmed

我是小石头

Unregistered / Unconfirmed

sun77wind

Unregistered / Unconfirmed

hfghfghfg

Unregistered / Unconfirmed

xxhsh

Unregistered / Unconfirmed

我是小石头

Unregistered / Unconfirmed

Similar threads