怎样用findwindow找到application.message弹出的对话框的句柄？(50分)

formality · 2006-04-26

呵呵，messagebox就是起提示做用的，你都不要人工干涉了还用messagebox做什么？ 用个boolean变量判断一下不是更有效么？ 》》.........................................

MrMengyi · 2006-04-26

为什么不用名称查找呢？

一个过客 · 2006-04-26

ZYDFY真是小人之心啊，不想理你这种货色。 我之所以有这个需求，是因为我有一个程序，有一些自动的功能。客户要求支持完全自动，无人职守。但是又要求有人的时候照常弹出对话框，以供用户甄别是否需要手工处理。 因此我的解决方案就是弹出对话框，显示10秒之后自动消失，这样既兼顾了无人职守，也照顾到手工干预的情况。 formality说详细一点,怎么判断？ MrMengyi，就是找不到呀

babibean · 2006-04-26

好象就是application.handle,你看看这个函数的代码。

一个过客 · 2006-04-26

楼上我试过了，把wm_close消息postmessage给dialog让他关闭。如果用application.handle的话，整个程序就关闭了

luzhouman · 2006-04-26

不好意思我记错了,十分对不起,可以用HOOK吗: unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls; type  TForm1 = class(TForm)    btnAppMsgBox: TButton;    Memo1: TMemo;    OpenDialog: TOpenDialog;    btnMsgBox: TButton;    procedure btnAppMsgBoxClick(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure FormDestroy(Sender: TObject);    procedure btnMsgBoxClick(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;  function HookMessageBox(code: integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; var  Form1: TForm1;  HookMsgBox: DWORD = 0; implementation {$R *.dfm} function GetWindowClassName(H:Thandle):string; var  buf: array[0..255] of char; begin  GetClassName(H, buf, SizeOf(buf));  result:=buf; end; function HookMessageBox(code: integer; wParam: WPARAM; lParam: LPARAM): LRESULT; var  H: Thandle;  PCW: ^CBT_CREATEWND; begin  if (code>=0) and (code=HCBT_CREATEWND) then  begin    H := Thandle(wParam);    PCW:=Pointer(lparam);    if (GetWindowClassName(H)='#32770')       and ((GetWindowLong(H, GWL_STYLE) and WS_SIZEBOX) = 0)  //边框不可以缩放       and (PCW^.lpcs^.hwndParent=Application.Handle) //检查是不是 Application.MessageBox    then Form1.Memo1.Lines.Add(GetWindowClassName(H));  end;  Result:=CallNextHookEx(HookMsgBox, Code, wParam, lParam); end; procedure TForm1.btnAppMsgBoxClick(Sender: TObject); begin  Application.MessageBox('test', 'test'); end; procedure TForm1.FormCreate(Sender: TObject); begin  HookMsgBox:=SetWindowsHookEx(WH_CBT,HookMessageBox,0, GetCurrentThreadID); end; procedure TForm1.FormDestroy(Sender: TObject); begin  if HookMsgBox<>0 then UnhookWindowsHookEx(HookMsgBox); end; procedure TForm1.btnMsgBoxClick(Sender: TObject); begin  MessageBox(Handle, 'test', 'test', 0); end; end.

一个过客 · 2006-04-26

晕哦~~~~这么麻烦？我现在窗口类名，窗口标题都知道，直接findwindow为什么不行？我很奇怪

kinneng · 2006-04-26

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls; type  TForm1 = class(TForm)    Button1: TButton;    Timer1: TTimer;    procedure Button1Click(Sender: TObject);    procedure Timer1Timer(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin  Timer1.Enabled:=True;  application.MessageBox('对话框', '对话框             ', 0); end; procedure TForm1.Timer1Timer(Sender: TObject); var  H,H1:THandle;  ClassName: array[0..255] of Char; begin  ClassName:='#32770';  H:=FindWindow(ClassName,nil);  H1:=GetParent(H);  GetClassName(H1,ClassName,255);  if (ClassName=#84+#65+#112+#112+#108+#105+#99+#97+#116+#105+#111+#110)      and(H1=Application.Handle) then  begin    ClassName:=#199+#235+#194+#165+#214+#247+#190+#161+#191+#236+#189+#225+#204               +#249+#183+#197+#183+#214;    SetWindowText(H,ClassName);    Timer1.Enabled:=False;  end; end; end.

老大，救我！ · 2006-04-26

ZYDFY 废话真多自己解决不了就算了还要挖苦别人一下~~鄙视！！绝对的鄙视！   有没有用那是别人的事，自己懂的提供解决方法就OK了~~ 不知道用 GetWindow 可以不可以 这个可以查子窗体的~~findwindow好象不可以的吧

一个过客 · 2006-04-26

楼上的这个办法的确找到了那个dialog，不错。 但是有一点小问题，你的原理是先找一个#32770的窗口，然后看他的父亲是不是application，如果是，就关闭。那么如果不是呢？怎样找下一个匹配的？

一个过客 · 2006-04-26

补充，我刚才说的楼上指的是kinneng朋友 老大，救我！你的意思是说，用getwindow来查application的子窗口吗？

一个过客 · 2006-04-26

我刚才试验了一下，getwindow(application.handle,GW_CHILD) 查不到

luzhouman · 2006-04-26

试试TOpenDialog, 也是这个类名的.还有其它windows标准对话框都是 to 一个过客 我还以为不知道标题呢

一个过客 · 2006-04-26

[h3][red]windows标准对话框的类名是 #32770 [/red][/h3]

MrMengyi · 2006-04-26

EnumWindows ？？？

baiduan · 2006-04-26

哦，这样简单： ========================== unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; type Tmyclose=class(Tthread) public procedure Execute;override; end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var uname

char; len:dword; myclose:Tmyclose; begin myclose:=Tmyclose.Create(false); application.MessageBox(pchar('hoho'),pchar('heihei'),mb_ok); end; { Tmyclose } procedure Tmyclose.Execute; var hd:Thandle; begin   sleep(1000);   hd:=findwindow(nil,'heihei');//你知道窗口标题了吧我这里标题是heihei   sendmessage(hd,wm_close,0,0);//建议还是不要用类名，万一找错了怎么办。   self.Terminate; end; procedure TForm1.Button2Click(Sender: TObject);//这个没用 var myclose:Tmyclose; begin myclose:=Tmyclose.Create(false); end; end. ============================== form上一个按钮，然后copy, xp 下 ok 看看行不行

MrMengyi · 2006-04-26

此外，配合类名称和Caption，findwindow应该能定位了吧 我用findwindow('#32770',nil)是能找到的~~

qinli198 · 2006-04-26

自己定义一个提示窗口.最简单!

kinneng · 2006-04-27

to 一个过客 那就历遍所有窗口，也没有什么难度 只要符合类名= #32770,父窗口的句柄=本程序Application的句柄，那就是要找的对话框， 这来项缺一不可。

luzhouman · 2006-04-27

to kinneng 但是OpenDialog等标准的Windows对话框父窗口的句柄也是application.handle 所以还应该检查窗口样式,参见我上面的HOOK,当然还可以再检查其它的样式.

怎样用findwindow找到application.message弹出的对话框的句柄？(50分)

formality

Unregistered / Unconfirmed

MrMengyi

Unregistered / Unconfirmed

一个过客

Unregistered / Unconfirmed

babibean

Unregistered / Unconfirmed

一个过客

Unregistered / Unconfirmed

luzhouman

Unregistered / Unconfirmed

一个过客

Unregistered / Unconfirmed

kinneng

Unregistered / Unconfirmed

老大，救我！

Unregistered / Unconfirmed

一个过客

Unregistered / Unconfirmed

一个过客

Unregistered / Unconfirmed

一个过客

Unregistered / Unconfirmed

luzhouman

Unregistered / Unconfirmed

一个过客

Unregistered / Unconfirmed

MrMengyi

Unregistered / Unconfirmed

baiduan

Unregistered / Unconfirmed

MrMengyi

Unregistered / Unconfirmed

qinli198

Unregistered / Unconfirmed

kinneng

Unregistered / Unconfirmed

luzhouman

Unregistered / Unconfirmed

Similar threads