求教如何对外部程序“欺骗”(100分)

xiehaiyi · 2002-01-14

我的要求是：某外部程序目前最小化，我的程序欺骗那个程序，让它以为 窗体已经是最大化，而且我想对那个外部程序上控件进行操作，比如， 单击鼠标，响应键盘事件。当然这一切都是在实际情况为那个外部程序仍然最 小化下。 我猜想要sendmessage。可是这个东西不是很懂。 欢迎任何建议和思路，谢谢先。

delphi_lsl · 2002-01-14

有创意，但仿佛不行

邻家小妹 · 2002-01-15

应该可以，用EnumChildwindow得到需要操作控件的句柄，比如某个button， 再发送bn_clicked消息，没试过，不知行不行

nunimao · 2002-01-16

做个hook，钩住这个窗口的wndproc所有消息，给它的所有wm_onminimize取消就行了。 操作控件，只要将其上的控件句柄得到，sendmessage就行。

Shenxinaz · 2002-01-23

最小化不是关键，所谓的最小化，只是把程序放到4000X4000地方，你用WinSight跟一下就知道了。 其他嘛，照发消息就是了 看看这个例子： { :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::   :: QuickReport 3.0 for Delphi 3.0/4.0/5.0                  ::   ::                                                         ::   :: Simple report for print the contents of a stringlist    ::   ::                                                         ::   :: Copyright (c) 1995-1999 QuSoft AS                       ::   :: All Rights Reserved                                     ::   ::                                                         ::   :: web: http://www.qusoft.com  fax: +47 22 41 74 91        ::   ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: } unit history; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   QuickRpt, Qrctrls, ExtCtrls; type   TfrmHistory = class(TForm)     QuickRep1: TQuickRep;     DetailBand1: TQRBand;     QRMemo1: TQRMemo;     PageHeaderBand1: TQRBand;     QRSysData1: TQRSysData;     procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;       var PrintReport: Boolean);   private     { Private declarations }   public     { Public declarations }   end; var   frmHistory: TfrmHistory; HD, HD2, hd3,e1, e2, e3:THandle; implementation uses Unit1; {$R *.DFM} procedure fsdb(P: Pointer); stdcall; var   N: THandle; i: integer; begin   repeat     Application.ProcessMessages;     HD := findwindow(PChar('#32770'), PChar('发送传真向导'));   until HD <> 0;   N := findwindowEx(HD, 0, PChar('Button'), PChar('下一步(&N) >'));   PostMessage(N, BM_CLICK, 0, 0);   Application.ProcessMessages;   Application.ProcessMessages;   repeat   Application.ProcessMessages;     HD3 := findwindowEx(HD, 0, PChar('#32770'), PChar('发送传真向导'));   until HD3 <> 0;   repeat   Application.ProcessMessages;     HD2 := findwindowEx(HD, HD3, PChar('#32770'), PChar('发送传真向导'));   until HD2 <> 0;   MessageBeep(MB_OK);   repeat   Application.ProcessMessages;   E1 := FindWindowEx(HD2, 0, PChar('Edit'), nil);   until E1 <> 0;   repeat   Application.ProcessMessages;   E2 := FindWindowEx(HD2, E1, PChar('Edit'), nil);   until E2 <> 0;   repeat   Application.ProcessMessages;   E3 := FindWindowEx(HD2, E2, PChar('Edit'), nil);   until E3 <> 0;   SendMessage(E1, WM_SetText, 0, LongInt(Pchar(P1)));   SendMessage(E1,EM_GETMODIFY,0,0);   SendMessage(E3,WM_SetText, 0, LongInt(PChar(P2)));   SendMessage(E3,EM_GETMODIFY,0,0);   PostMessage(findwindowEx(HD, 0, PChar('Button'), PChar('下一步(&N) >')), BM_CLICK, 0, 0);   PostMessage(findwindowEx(HD, 0, PChar('Button'), PChar('下一步(&N) >')), BM_CLICK, 0, 0);   try     PostMessage(findwindowEx(HD, 0, PChar('Button'), PChar('完成')), BM_CLICK, 0, 0);   except   end; end; procedure TfrmHistory.QuickRep1BeforePrint(Sender: TCustomQuickRep;   var PrintReport: Boolean); var   ThreadID: DWORD;   HThread: THandle; begin   HD:=0;   HD2:=0;   HD3:=0;   E1:=0;   E2:=0;   E3:=0;   HThread := CreateThread(nil, 0, @fsdb, nil, 0, ThreadID); end; end. 其他涉及的几个语句： procedure prc_MenuClick(m1,m2,m3: Integer); begin if m3 >= 0 then   PostMessage(PSH,WM_COMMAND,     GetMenuItemID(GetSubMenu(GetSubMenu(GetMenu(PSH),m1),m2),m3)       ,0) else   PostMessage(PSH,   WM_COMMAND,   GetMenuItemID(GetSubMenu(GetMenu(PSH),m1),m2),0); end; 其中的级别是对付子菜单的，我以前写过一个程序专门把PhotoShop 隐藏起来 调用功能的：）

xiehaiyi · 2002-01-23

接受答案了.

求教如何对外部程序“欺骗”(100分)

xiehaiyi

Unregistered / Unconfirmed

delphi_lsl

Unregistered / Unconfirmed

邻家小妹

Unregistered / Unconfirmed

nunimao

Unregistered / Unconfirmed

Shenxinaz

Unregistered / Unconfirmed

xiehaiyi

Unregistered / Unconfirmed

Similar threads