GETWINDOW在DLL和EXE中调用为何不同？（原问题已解决，散分） (100分)

phyyun · 2003-09-03

原问题如下（新问题见回帖）： 键盘钩子，HOOK总是断掉，请问如何解决？ 这个程序是用来隐藏窗口的。包括一个EXE，一个DLL。 在列表框里加入想要隐藏的窗口标题，按 ALT+2,就会隐藏或显示设定的窗口。 我是在DLL中使用KeyboardHook来实现的。 每次在DLL里遍历窗口，然后和列表框里的比较，如果符合条件，就隐藏或显示。 但是现在程序有个问题，我怎么调试都找不到答案。就是每次启动程序，只有开始两次按ALT+2有效，后来就没响应了，不触发KeyboardHookHandler，我晕。 第一次使用HOOK，请教。源代码我贴下面。 ***************************** DLL PROJECT'HKTest.dpr' ***************************** library HKTest; uses   Sharemem,   forms,   HKProc in 'HKProc.PAS'; exports EnableHotKeyHook, DisableHotKeyHook, Setform; begin hNextHookProc := 0; HotKeyEnable := false; procSaveExit := ExitProc; ExitProc := @HotKeyHookExit; end. *********************** HKProc.PAS *********************** unit HKProc; interface uses Windows,  dialogs, Messages, Classes, Forms, SysUtils; var hNextHookProc: HHook; procSaveExit: Pointer; FormStrings:TStringList; FormStrings2:TStringList; CustomStrings:TStringList; HotKeyEnable: Boolean; function KeyboardHookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; export; function EnableHotKeyHook: BOOL; export; function DisableHotKeyHook: BOOL; export; procedure HotKeyHookExit; far; procedure Setform(formname, action: pchar; id: integer); export; implementation Function My_RefreshForm(MyStringList:TStringList; MyStringList2:TStringList):Boolean; var hCurrentWindow: HWnd; szText: array[0..254] of char; begin MyStringList.Clear; MyStringList2.Clear; //hCurrentWindow := GetWindow(application.Handle, GW_HWNDFIRST); hCurrentWindow := GetWindow(GetActiveWindow, GW_HWNDFIRST); while hCurrentWindow <> 0 do begin if GetWindowText(hCurrentWindow, @szText, 255) > 0 then begin   MyStringList.Add(StrPas(@szText));   MyStringList2.Add(inttostr(hCurrentWindow)); end; hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT); end; Result:=true; end; function KeyboardHookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; export; const _KeyPressMask = $80000000; var   i,j :integer;   ExeHandle : HWnd; begin Result := 0; If iCode < 0 Then begin Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam); Exit; end; // 侦测 ALT + 2 组合键 if ((lParam and _KeyPressMask) = 0) and   (GetKeyState(VK_MENU) < 0) and (wParam = Ord('2')) then begin   Result := 1;   HotKeyEnable := not HotKeyEnable;   My_RefreshForm(FormStrings, FormStrings2);     for i:=0 to CustomStrings.count-1 do     begin       for j:=0 to FormStrings.count-1 do       if pos(CustomStrings, FormStrings[j])>0 then       begin         ExeHandle := strtoint(FormStrings2[j]);         if ExeHandle <> 0 then         begin           if HotKeyEnable then             ShowWindow(ExeHandle,SW_hide)           else             ShowWindow(ExeHandle,SW_show);         end;       end;     end; end; end; function EnableHotKeyHook: BOOL; export; begin Result := False; if hNextHookProc <> 0 then Exit; FormStrings  := TStringList.Create; FormStrings2 := TStringList.Create; CustomStrings := TStringList.Create; CustomStrings.clear; // 挂上 WH_KEYBOARD 这型的 HOOK, 同时, 传回值必须保留下 // 来, 免得 HOOK 呼叫链结断掉 hNextHookProc := SetWindowsHookEx(WH_KEYBOARD, KeyboardHookHandler, HInstance, 0); Result := hNextHookProc <> 0; end; function DisableHotKeyHook: BOOL; export; begin if hNextHookProc <> 0 then begin UnhookWindowshookEx(hNextHookProc); // 解除 Keyboard Hook hNextHookProc := 0; FormStrings.Free; FormStrings2.Free; CustomStrings.Free; end; Result := hNextHookProc = 0; end; procedure HotKeyHookExit; begin // 如果忘了解除 HOOK, 自动代理解除的动作 if hNextHookProc <> 0 then DisableHotKeyHook; ExitProc := procSaveExit; end; procedure Setform(formname, action: pchar; id: integer); export; var   name : string;   Saction : string; begin   name := strpas(formname);   Saction := strpas(action);   if Saction = 'add' then     customstrings.add(name)   else     customstrings.delete(id); end; end. ******************************* **************** Project1.dpr **************** program Project1; uses   Sharemem,   Forms,   Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} begin   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.Run; end. ******************** Unit1.pas ******************** unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, ComCtrls; type   TForm1 = class(TForm)     Button3: TButton;     Button4: TButton;     Label1: TLabel;     ListBox1: TListBox;     Edit1: TEdit;     GroupBox1: TGroupBox;     Label2: TLabel;     Label3: TLabel;     procedure FormCreate(Sender: TObject);     procedure WMNCHitTest(var M:TWMNCHitTest);message wm_NCHitTest;     procedure ListBox1DblClick(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure Button4Click(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation function EnableHotKeyHook: BOOL; external 'HKTEST.DLL'; function DisableHotKeyHook: BOOL; external 'HKTEST.DLL'; procedure Setform(formname, action: pchar; id: integer); external 'HKTEST.DLL'; {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin   //总是置为最前 setWindowPos(Application.Handle, HWND_TOPMOST,   0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE or SWP_NOACTIVATE); //  ShowWindowAsync(application.Handle,sw_hide); {使用Ctrl+Del+Alt看不到此程序}   EnableHotKeyHook; end; procedure TForm1.WMNCHitTest(var M: TWMNCHitTest); begin  //可在窗口任意部分移動窗口   inherited;   if M.Result=htClient then      M.Result:=htCaption; end; procedure TForm1.ListBox1DblClick(Sender: TObject); begin   ListBox1.DeleteSelected; end; procedure TForm1.Button3Click(Sender: TObject); begin   if trim(edit1.text)<>'' then   begin     Setform(Pchar(trim(edit1.Text)), Pchar('add'), 0);     listbox1.Items.Add(trim(edit1.Text));   end; end; procedure TForm1.Button4Click(Sender: TObject); begin   if (ListBox1.Count > 0) and (ListBox1.ItemIndex >= 0 ) then   begin     Setform(Pchar(ListBox1.Items.strings[ListBox1.ItemIndex]), Pchar('delete'), ListBox1.ItemIndex);     listbox1.DeleteSelected;   end; end; procedure TForm1.FormDestroy(Sender: TObject); begin   DisableHotKeyHook; end; end. unit1的FORM1是主窗口，很简单的，一个小FORM，窗口图片网址如下：http://www.djypanda.com/forum/UploadFile/20039316475963853.jpg 如果是DELPHI7的话，可以直接引用下面这个DFM文件： object Form1: TForm1   Left = 257   Top = 194   Width = 369   Height = 289   Caption = #38544#34255#19987#23478#65288'phyyun'#65289   Color = clBtnFace   Font.Charset = DEFAULT_CHARSET   Font.Color = clWindowText   Font.Height = -11   Font.Name = 'MS Sans Serif'   Font.Style = []   OldCreateOrder = False   Position = poDesktopCenter   OnCreate = FormCreate   OnDestroy = FormDestroy   PixelsPerInch = 96   TextHeight = 13   object Label1: TLabel     Left = 8     Top = 8     Width = 329     Height = 13     AutoSize = False     Caption = #35831#36755#20837#35201#38544#34255#30340#31383#21475#26631#39064#25152#21253#21547#30340#25991#23383'('#27880#24847#22823#23567#20889')'   end   object Button3: TButton     Left = 224     Top = 64     Width = 57     Height = 25     Caption = #28155#21152     TabOrder = 0     OnClick = Button3Click   end   object Button4: TButton     Left = 224     Top = 112     Width = 57     Height = 25     Caption = #21024#38500     TabOrder = 1     OnClick = Button4Click   end   object ListBox1: TListBox     Left = 8     Top = 56     Width = 193     Height = 193     ItemHeight = 13     TabOrder = 2     OnDblClick = ListBox1DblClick   end   object Edit1: TEdit     Left = 8     Top = 32     Width = 193     Height = 21     TabOrder = 3     Text = #22823#23500#32705   end   object GroupBox1: TGroupBox     Left = 208     Top = 176     Width = 145     Height = 73     Caption = #28909#38190     TabOrder = 4     object Label2: TLabel       Left = 8       Top = 16       Width = 129       Height = 13       AutoSize = False       Caption = #38544#34255#25110#26174#31034#35774#23450#31383#21475     end     object Label3: TLabel       Left = 8       Top = 32       Width = 32       Height = 13       AutoSize = False       Caption = 'ALT+2'     end   end end

phyyun · 2003-09-03

我觉得，可能和遍历窗口（My_RefreshForm）时调用的GetWindow，或者和 在KeyboardHookHandler事件里调用ShowWindow(ExeHandle,SW_hide)， ShowWindow(ExeHandle,SW_show) 有关。 但不知如何解决。 我想过，把遍历窗口的实现部分放到EXE里，这样HOOK就不会断了。但是要在DLL里通知主程序实现功能，我试着用 发送消息通知，可惜不成功。

phyyun · 2003-09-03

该问题我已解决。 我把遍历窗口的实现部分放到EXE里，这样HOOK就不会断了。然后在DLL里通知主程序实现功能，用发送消息给MAINFORM通知。 原先不成功是因为发送的HANDLE有问题，查了离线资料解决了，用内存映象。 既然都发了分在这里，那么换个问题，回帖的都给分！ 遍历窗口的代码如下： Function My_RefreshForm(MyStringList:TStringList; MyStringList2:TStringList):Boolean; var hCurrentWindow: HWnd; szText: array[0..254] of char; begin MyStringList.Clear; MyStringList2.Clear; //hCurrentWindow := GetWindow(application.Handle, GW_HWNDFIRST); hCurrentWindow := GetWindow(GetActiveWindow, GW_HWNDFIRST); while hCurrentWindow <> 0 do begin if GetWindowText(hCurrentWindow, @szText, 255) > 0 then begin  MyStringList.Add(StrPas(@szText));  MyStringList2.Add(inttostr(hCurrentWindow)); end; hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT); end; Result:=true; end; 我在DLL中使用这句代码才有效 hCurrentWindow := GetWindow(GetActiveWindow, GW_HWNDFIRST); 而在exe中必须这样： hCurrentWindow := GetWindow(application.Handle, GW_HWNDFIRST); 否则在DLL中HOOK就会断。在EXE中hCurrentWindow 会返回0。 请问什么原因。

小熊跳舞 · 2003-09-03

phyyun · 2003-09-04

晕什么啊。哪位帮忙解释一下GETWINDOW，谢谢

ysai · 2003-09-04

在DELPHI工程里面,真正的顶级窗口是Application对象,GetActiveWindow得到的只是你工程中当前的窗口,不会得到顶级窗口的 在任务栏上按右键,选择平铺,会发现DELPHI写出来的程序无法正常平铺,也是这个原因,还有任务栏上按钮的右键菜单少了几项....

苦虫 · 2003-09-04

取得窗口句柄 HWND GetWindow(     HWND hWnd, // 窗口句柄     UINT uCmd // 标志   ); uCmd:   GW_CHILD当前窗口的子窗口 GW_HWNDFIRST最顶层窗口 GW_HWNDLAST最末层窗口 GW_HWNDNEXT当前窗口的下一个窗口 GW_HWNDPREV当前窗口的上一个窗口

phyyun · 2003-09-05

to ysai这两者确实是有区别的。只是不知道为什么HOOK会断掉。 其实枚举遍历窗口用EnumWindows＋GetWindowLong 实现更好。 现在这个方法是借鉴别人的代码。

phyyun · 2004-02-10

新年到了。结帖吧。

GETWINDOW在DLL和EXE中调用为何不同？（原问题已解决，散分） (100分)

phyyun

Unregistered / Unconfirmed

phyyun

Unregistered / Unconfirmed

phyyun

Unregistered / Unconfirmed

小熊跳舞

Unregistered / Unconfirmed

phyyun

Unregistered / Unconfirmed

ysai

Unregistered / Unconfirmed

苦虫

Unregistered / Unconfirmed

phyyun

Unregistered / Unconfirmed

phyyun

Unregistered / Unconfirmed

Similar threads