花落谁家，你作主！	盛大widget设计大赛英雄榜

请教高手能否实现

楼主liuchf（liuchf）2001-12-18 14:36:22 在 Delphi / VCL组件开发及应用提问

请问我能否在一个程序中对另外一个程序进行输入(不知道源代码)，比如一个程序提示输入信息，我能否做一个程序，自动从一个文件中读入信息自动填加到要输入的输入框内问题点数：50、回复次数：19Top

1 楼zzzsssccc（今天正为明天后悔）回复于 2001-12-18 14:51:54 得分 0

1111Top

2 楼zzzsssccc（今天正为明天后悔）回复于 2001-12-18 14:54:20 得分 0

1111Top

3 楼Liusp（夜深千帐灯）回复于 2001-12-18 14:57:36 得分 0

U~~~ PTop

4 楼Typhone（Typhone）回复于 2001-12-18 14:58:47 得分 0

当然可以Top

5 楼ameng007（阿门）回复于 2001-12-18 15:03:05 得分 10

这是可以的，比如可以使用findwindow,finddigitem,SetWindowText等API函数组合实现。Top

6 楼ameng007（阿门）回复于 2001-12-18 15:04:25 得分 0

对不起，以上finddigitem应是GetDlgItem.Top

7 楼shinesi（DaBaiCai）回复于 2001-12-18 15:12:32 得分 0

帮你upTop

8 楼Linux2001（闭关开发中）回复于 2001-12-18 15:21:35 得分 0

比较简单啊Top

9 楼poleax（）回复于 2001-12-18 15:23:15 得分 0

发送消息、利用剪切板都可以实现。Top

10 楼nhdj（柳柳荷叶清清水）回复于 2001-12-18 15:26:51 得分 0

up up upTop

11 楼zzllabc（抱朴子--清心释累，绝率忘情）回复于 2001-12-18 15:28:08 得分 0

帮你up Top

12 楼efad（雪山）回复于 2001-12-18 15:38:16 得分 5

可以，用Api的GetWindow()得到Handle,
然后SendMessage();
Top

13 楼liuchf（liuchf）回复于 2001-12-18 15:46:44 得分 0

哪位大哥有现成的例子,可能会有多个输入框。试验成功后一定结账。Top

14 楼liuchf（liuchf）回复于 2001-12-18 16:21:28 得分 0

up upTop

15 楼robinson（鲁宾逊）回复于 2001-12-18 16:27:55 得分 0

帮你upTop

16 楼Greenberet（百萬石）回复于 2001-12-18 19:17:50 得分 30

参考一下，稍作修改即可实现你要的功能(很简单，应该看得懂吧:)

procedure TForm1.Button1Click(Sender: TObject);
var
TheHwnd : Hwnd;
YourText : string;
begin
YourText := '你想发送什么字符串给新打开的记事本呢？:)';
TheHwnd := FindWindowEx(FindWindow(nil, PChar('无标题 - 记事本')), 0, 'Edit', nil);
SendMessage(TheHwnd, WM_SETTEXT , 255, longint(pchar(YourText)));
end;

* 只要把句柄指向你要发送的那个程序(输入框）即可：）

Top

17 楼liuchf（liuchf）回复于 2001-12-19 12:22:53 得分 0

还有么？快结账了Top

18 楼xxmmmx（踢踏）回复于 2001-12-19 12:34:23 得分 0

来学一招Top

19 楼Typhone（Typhone）回复于 2001-12-19 14:06:57 得分 5

var hw: Hwnd

hw:=WindowFromPoint(Mouse.CursorPos);
//获取当前窗口句柄
SendMessage(hw, WM_SETTEXT, 255, LongInt(PChar('你好')));
//修改内容
UpdateWindow(hw)Top