关于结束类名!高手前进!

Question

查找类名
  End;  If GetClassName(Handle, Caption, SizeOf(Caption)-1)<>0
  Then Begin
    sCaption := UpperCase(Caption);
    if FindStr('227') 
      CloseWindow(Handle);
  End;我这有一句查找类名结束的
我想问问大家
有没方法实现用鼠标查找类名结束那位好心的高手.帮帮忙

Answer 1

需要做鼠标钩子，你看看windows核心编程这本书吧

Answer 2

怎么连问题都不会描述了？  If GetClassName(Handle, Caption, SizeOf(Caption)-1) <> 0
  Then Begin
    sCaption := UpperCase(Caption);
    if FindStr('227') 
      CloseWindow(Handle);
  End; 
这段代码查找句柄Handle标识的窗口的类名（就是RegisterClass注册时提供的WNDCLASSEX结构中的
lpszClassName域），不过FindStr不知道是什么东西了？都没用sCaption做参数。
鼠标查找？试试WindowFromPoint函数。另外需要做个鼠标钩子追踪鼠标移动的消息。不懂的话参考MSDN的SetWindowsHookEx函数。只能说这些了不想给你Hook的代码，因为网上一堆。