请教关于 GetWindowWord() 的问题 ( 积分: 300 )

刘麻子 · 2005-02-23

第一步：打开SPY++，从菜单中选出 Find Window 对话框，  然后，用其他窗口查看工具得到 Find Window 对话框上面 'OK' 按钮的句柄。 第二步：新建一个工程，将工程代码改成下面这样。。 program Project1; uses  Forms, Windows,  Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} begin  GetWindowWord(按钮句柄, 0);  // 这个地方

Application.Initialize;  Application.CreateForm(TForm1, Form1);  Application.Run; end. 第三步：运行程序，报错如下 --------------------------- Application Error --------------------------- Exception EAccessViolation in module user32.dll at 0003DA03. Access violation at address 77D4DA03 in module 'user32.dll'. Read of address 0014DC4C. --------------------------- 确定   --------------------------- 不过，我试了一下，如果在普通事件代码中调用又没有报错，比如： procedure TForm1.Button1Click(Sender: TObject); begin  GetWindowWord($001C07DE, 0); end; 总而言之，用 GetWindowWord(x, 0) 取 spy++ 的 findwindow 对话框上的一个按钮的时候出错

刘麻子 · 2005-02-23

第一步：打开SPY++，从菜单中选出 Find Window 对话框，  然后，用其他窗口查看工具得到 Find Window 对话框上面 'OK' 按钮的句柄。 第二步：新建一个工程，将工程代码改成下面这样。。 program Project1; uses  Forms, Windows,  Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} begin  GetWindowWord(按钮句柄, 0);  // 这个地方

Application.Initialize;  Application.CreateForm(TForm1, Form1);  Application.Run; end. 第三步：运行程序，报错如下 --------------------------- Application Error --------------------------- Exception EAccessViolation in module user32.dll at 0003DA03. Access violation at address 77D4DA03 in module 'user32.dll'. Read of address 0014DC4C. --------------------------- 确定   --------------------------- 不过，我试了一下，如果在普通事件代码中调用又没有报错，比如： procedure TForm1.Button1Click(Sender: TObject); begin  GetWindowWord($001C07DE, 0); end; 总而言之，用 GetWindowWord(x, 0) 取 spy++ 的 findwindow 对话框上的一个按钮的时候出错

WoDing · 2005-02-23

爽，这么多人看了都不回! 不回，不回，打死也不回!

jianguobu · 2005-02-23

这样会有区别吗？ begin  Application.Initialize;  GetWindowWord(按钮句柄, 0);  // 这个地方

Application.CreateForm(TForm1, Form1);  Application.Run; end.

刘麻子 · 2005-02-23

加在Initialize后面也不行，刚才大富翁进不来，在CSDN发了帖子，现在拷贝几处补充说明过来： SPY++ 下载地址     http://www.axdisk.cn/vip/liumazi/Temp/Spy++.rar Voyeur例程下载地址     http://www.axdisk.cn/vip/liumazi/Temp/Voyeur.rar 主要是Voyeur里面的这部分代码出错：  // 向szBuf尾部添加字符串形式的额外内存各字节数值 procedure VoyHelp_AppendExtraBytes(szBuf: PChar; hWndSubject: HWND;  nExtraBytesID: Integer); var  nExtraByteNum, nExtraBytes: Integer;  bByte: DWORD;  pfnGetWord: function(hWnd: HWND; nIndex: Integer): Word; stdcall;  List: array[0..1] of Integer; // wvsprintf()转换列表 begin  if (nExtraBytesID = GCL_CBCLSEXTRA) then  begin    pfnGetWord := @GetClassWord;    List[0] := Integer(PChar('Class'));  end else  begin    pfnGetWord := @GetWindowWord;    List[0] := Integer(PChar('Windows'));  end;      nExtraBytes := GetClassLong(hWndSubject, nExtraBytesID); // 额外内存字节数  List[1] := nExtraBytes;  wvsprintf(SearchEnd(szBuf), '%s extra bytes:'#9'%u (', @List[0]); // 开始  nExtraByteNum := 0;  while (nExtraByteNum &lt; nExtraBytes) do // 遍历各字节  begin    if (nExtraByteNum = 0) then      bByte := LoByte(pfnGetWord(hWndSubject, nExtraByteNum)) // 内存 $ABCD 等于 $CDAB    else begin      lstrcat(szBuf, ' '); // 不是第一个字节, 则先添加分隔符      bByte := HiByte(pfnGetWord(hWndSubject, nExtraByteNum - 1)); // 第nExtraByteNum字节    end;    wvsprintf(SearchEnd(szBuf), '0x%02x', @bByte); // IntToStr()    Inc(nExtraByteNum);  end;  if (nExtraByteNum = 0) then lstrcat(szBuf, 'none'); // 无额外空间  lstrcat(szBuf, ')'#13#10); // 结尾  } end; 后来分析，发现就是 GetWindowWord(x, 0) 导致的出错。。我就开了一个新的工程，开头就调用了 GetWindowWord(x, 0)，结果也出错。不过如果在普通事件过程里面调用又不会出错，不知道怎么搞的，很奇怪。 GetWindowWord(x, 1); 不出错，GetWindowLong(x, 0)不出错，不过按照书上的思路，应该考虑空间少于4个字节的情况，所以用 GetWindowLong()不知道是否合适，书中例子代码中是用GetWindowWord()来取各个字节的。 另：这个Voyeur是《Windows 95 程式设计指南》里面一个例子，取其他窗体信息的，调用GetWindowWord()的目的是依次取出目标窗体实例额外空间内存中每个字节的数值并转换成字符串形式。 后来还找了好几位朋友帮忙试了一下，害得他们忙了半天，有的出错，有的不出错，：（ 简而言之，调用 GetWindowWord(h, 0), 有的时候会出错，特别是，当h是其他程序中，由资源生成的对话框上的按钮的时候。比如 SPY++ 里面的 Find Window 对话框上的按钮。

DoubleWood · 2005-02-23

哇，有300分阿……至少给我一分吧……

刘麻子 · 2005-02-23

DoubleWood大哥下午帮我试了好久怎么可能才一分呢。：-)

刘麻子 · 2005-02-23

写了个测试例子，下面这个程序的窗体，类空间和窗体空间都是3字节，分别被初始化为1 2 3 和 4 5 6，然后用两个工具去查看， SPY 无法读出信息，而我们的 Voyeur 程序却可以读出正确数值。 SPY 虽然读不出来，但是它至少可以保证不出错。是不是写 SPY 的同志，知道 GetWindowWord() 可能会出错，所以放弃了呢？  

program Test; uses Windows, Messages; function WindowProc(HWin, MsgID, WParam, LParam: DWORD): DWORD; stdcall; begin  Result := DefWindowProc(HWin, MsgID, WParam, LParam);  case MsgID of    WM_CREATE:      begin       // 类额外空间设为 1 2 3        SetClassWord(HWin, 0, $0201);        SetClassWord(HWin, 1, $0302);       // 窗体额外空间设为 4 5 6        SetWindowWord(HWin, 0, $0504);        SetWindowWord(HWin, 1, $0605);      end;    WM_DESTROY:      begin        PostQuitMessage(0);      end;  end; end; var  WndClass: TWndClass;  ThreadMsg: TMsg; begin  WndClass.Style := CS_HREDRAW or CS_VREDRAW;  WndClass.lpfnWndProc := @WindowProc;  WndClass.cbClsExtra := 3; // 类空间  WndClass.cbWndExtra := 3; // 窗体空间  WndClass.hInstance := hInstance;  WndClass.hIcon := LoadIcon(hInstance, 'cool');  WndClass.hCursor :=  LoadCursor(0, IDC_ARROW);  WndClass.hbrBackground := COLOR_WINDOW + 1;  WndClass.lpszMenuName := nil;  WndClass.lpszClassName := 'Test';  RegisterClass(WndClass);  CreateWindowEx(0, 'Test', 'Test',    WS_TILED or WS_VISIBLE or WS_SYSMENU,    100, 100, 100, 70, 0, 0, hInstance, nil);  while GetMessage(ThreadMsg, 0, 0, 0) do  begin    TranslateMessage(ThreadMsg);    DispatchMessage(ThreadMsg);  end; end.

llfirst · 2005-02-23

MSDN: The GetWindowWord function is obsolete. The GWW_ values are not supported. Win32-based applications should use the GetWindowLong function

刘麻子 · 2005-02-23

这个应该是说 "GWW_XXX 常量不被支持了,应改用 GetWindowLong(GWL_XXX)了" 吧？ 读额外空间的话应该还是可以用GetWindowWord()的吧，普通窗体也的确可以读的， 另外，如果空间只有3个字节，可以用 GetWindowLong() 吗？

DoubleWood · 2005-02-23

不过我没用过GetWindowWord,我一直是用GetWindowLong的，呵呵

jianguobu · 2005-02-23

听课

刘麻子 · 2005-02-23

呵呵，试了一下， 3字节空间的时候调用GetWindowLong()失败，返回0，

wrl_001 · 2005-02-23

我的也是如此,Delphi5,7都会(不过这和delphi的版本应该没关系吧^_^),既然有的人不会出错,那也有可能和操作系统有关啊,每次错误提示都是:'Access violation at address 77E24948 in module 'user32.dll',这个地址都一样,反汇编一下user32.dll看看,或许...[

][

].

llfirst · 2005-02-24

to 刘麻子：        SetClassWord(HWin, 0, $0201);  //这里是4个字节        SetClassWord(HWin, 1, $0302);  //这里是4个字节       // 窗体额外空间设为 4 5 6        SetWindowWord(HWin, 0, $0504); //这里是4个字节        SetWindowWord(HWin, 1, $0605); //这里是4个字节 改为：        SetClassWord(HWin, 0, Byte(1));        SetClassWord(HWin, 1, Byte(2));        SetClassWord(HWin, 2, Byte(3));          SetWindowWord(HWin, 0, Byte(4));        SetWindowWord(HWin, 1, Byte(5));        SetWindowWord(HWin, 2, Byte(6));

刘麻子 · 2005-02-24

谢谢llfirst,，我的问题是调用 GetWindowWord() 出错， SetWindowWord()是另一个被用来测试的程序，并没有错。 另外，$0201是4字节吗？1位16进制对应的是4位2进制吧？

llfirst · 2005-02-24

program Test; uses Windows, Messages; function WindowProc(HWin, MsgID, WParam, LParam: DWORD): DWORD; stdcall; var  B:array[0..5] of Byte; begin  Result := DefWindowProc(HWin, MsgID, WParam, LParam);  case MsgID of    WM_CREATE:      begin        SetClassWord(HWin, 0, Byte(1));        SetClassWord(HWin, 1, Byte(2));        SetClassWord(HWin, 2, Byte(3));          SetWindowWord(HWin, 0, Byte(4));        SetWindowWord(HWin, 1, Byte(5));        SetWindowWord(HWin, 2, Byte(6));        B[0]:=GetClassWord(HWin, 0 );        B[1]:=GetClassWord(HWin, 1 );        B[2]:=GetClassWord(HWin, 2 );        B[3]:=GetWindowWord(HWin, 0 );        B[4]:=GetWindowWord(HWin, 1 );        B[5]:=GetWindowWord(HWin, 2 ); //没有任何错误，Windows 2003 + Delphi 7.0 通过      end;    WM_DESTROY:      begin        PostQuitMessage(0);      end;  end; end; var  WndClass: TWndClass;  ThreadMsg: TMsg; begin  WndClass.Style := CS_HREDRAW or CS_VREDRAW;  WndClass.lpfnWndProc := @WindowProc;  WndClass.cbClsExtra := 3; // 类空间  WndClass.cbWndExtra := 3; // 窗体空间  WndClass.hInstance := hInstance;  WndClass.hIcon := LoadIcon(hInstance, 'cool');  WndClass.hCursor :=  LoadCursor(0, IDC_ARROW);  WndClass.hbrBackground := COLOR_WINDOW + 1;  WndClass.lpszMenuName := nil;  WndClass.lpszClassName := 'Test';  RegisterClass(WndClass);  CreateWindowEx(0, 'Test', 'Test',    WS_TILED or WS_VISIBLE or WS_SYSMENU,    100, 100, 100, 70, 0, 0, hInstance, nil);  while GetMessage(ThreadMsg, 0, 0, 0) do  begin    TranslateMessage(ThreadMsg);    DispatchMessage(ThreadMsg);  end; end.

刘麻子 · 2005-02-25

老兄，看贴不会帖固然不好，回帖不看贴就也不对啊。请注意，我贴这代码之前的一段话： “写了个测试例子，下面这个程序的窗体，类空间和窗体空间都是3字节，分别被初始化为1 2 3 和 4 5 6，然后用两个工具去查看， SPY 无法读出信息，而我们的 Voyeur 程序却可以读出正确数值。” 我就是说读这个额外内存为3字节的被测试例子没出错，可以正确读出，而SPY++却读不出来。 但是，在读某些对话框上的按钮的时候，Voyeur 会出错，但是 SPY++ 却不出错。。。。 那么，这是否间接说明 SPY++ 没有调用GetWindowWord()，或许调用的是GetWindowLong()？

刘麻子 · 2005-02-25

还有，经过这样的调用： SetClassWord(HWin, 0, $0201); SetClassWord(HWin, 1, $0302); 内存中3个字节就是依次为 1、2、3，至于为什么，自己好好想想。而象你那个 SetClassWord(HWin, 2, Byte(3));，逻辑上就是错的，总共只有3个字节，难道你要去写第 3、4 两个字节？当然，你愿意花时间来讨论这本身是好的，还是要感谢你，不过说话之前应该多考虑考虑，看清楚了，想明白了，再开口。谢谢！

刘麻子 · 2005-02-25

多人接受答案了。

请教关于 GetWindowWord() 的问题 ( 积分: 300 )

刘麻子

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

WoDing

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

DoubleWood

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

llfirst

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

DoubleWood

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

wrl_001

Unregistered / Unconfirmed

llfirst

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

llfirst

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

Similar threads