请问如何使用Findwindow函数,大侠救我,分数一定多给.(200分)

wixll · 2002-01-10

现在知道金山词霸的: Window Caption:金山词霸 2002 Class Name:    #32770 (Dialog)(利用Spy++看到的) 我的问题是如何利用这个条件和函数Findwindow也可以用其他函数 得到金山词霸的句柄,并且如何得到它的子控件(比如它上面的按钮等) 的句柄,大侠谢谢,最好给我一个实例.

free_knight · 2002-01-10

函数功能：该函数获得一个顶层窗口的句柄，该窗口的类名和窗口名与给定的字符串相匹配。这个函数不查找子窗口。 在查找时不区分大小写。     函数型：HWND FindWindow（LPCTSTR IpClassName，LPCTSTR IpWindowName）;     参数：     IpClassName ：指向一个指定了类名的空结束字符串，或一个标识类名字符串的成员的指针。如果该参数为一个成员，则它必须为前次调用theGlobafAddAtom函数产生的全局成员。该成员为16位，必须位于IpClassName的低 16位，高位必须为 0。     IpWindowName：指向一个指定了窗口名（窗口标题）的空结束字符串。如果该参数为空，则为所有窗口全匹配。     返回值：如果函数成功，返回值为具有指定类名和窗口名的窗口句柄；如果函数失败，返回值为NULL。     若想获得更多错误信息，请调用GetLastError函数。     备注：Windows CE：若类名是一个成员，它必须是从 RegisterClass返回的成员。     速查：Windows NT：3.1以上版本；Windows：95以上版本；Windows CE：1.0以上版本；头文件：Winuser.h；库文件：user32.lib; Unicode：在 Windows NT上实现为 Unicode和 ANSI两种版本。

free_knight · 2002-01-10

函数功能：该函数获得包含指定点的窗口的句柄。     函数原型：HWND WindowFromPoint（POINT Point）；     参数：     Point：指定一个被检测的点的POINT结构。     返回值S：返回值为包含该点的窗口的句柄。如果包含指定点的窗口不存在，返回值为NULL。如果该点在静态文本控制之上，返回值是在该静态文本控制的下面的窗口。     备注：WindowFromPoint函数不获取隐藏或禁止的窗口句柄，即使点在该窗口内。应用程序应该使用ChildWindowFromPoint函数进行无限制查询。     速查：Windows NT：3.1以上版本：Windows：95以上版本；Windows CE：1.0以上版本：头文件：Winuser.h；库文件：user32.lib。

zhpzj · 2002-01-10

unit pzjUnit; interface   uses     windows,SysUtils;   Function GetComHandle(P_name,C_name: string): Integer;   implementation var   comName: string; function GetComHandle(P_name,c_name: string): Integer; var   p_handle: Integer;         function EnumChildWindowsProc(hwnd: Integer; lparam: Longint):Boolean; stdcall;       var         buffer: array[0..255] of Char;       begin         Result := True;         //得到目标窗口的控件         windows.GetClassName(hwnd,buffer,256);         //找到发消息的目标窗口的目标控件         if StrPas(Buffer)= ComName  then         begin           PInteger(lparam)^ := hwnd;// 得到目标控件的Hwnd(句柄)           Result:=False;  //终止循环         end;       end; begin   p_handle := FindWindow(nil,pchar(p_name));  //就是窗口的Caption   if p_handle<>0 then     begin       ComName:=c_name;       EnumChildWindows(p_handle,@EnumChildWindowsproc,Integer(@p_handle));      //如果找到就是Handle,如果没找到Handle，还是窗口       result:=p_handle;     end; end; end. /////使用例子:GetComHandle('金山词霸','Edit');

卷起千堆雪tyn · 2002-01-10

得到任意窗体和控件（内部和外部）的句柄和类名！ 你只要将鼠标移动到目标，就会看见，^_^ procedure TForm1.GetMousePosHwndAndClassName(Sender: TPoint); var   hWnd: THandle;   aName: array [0..255] of char; begin   hWnd := WindowFromPoint(Sender);   Label1.Caption := 'Handle : ' + IntToStr(hWnd);   if boolean(GetClassName(hWnd, aName, 256)) then     Label2.Caption := 'ClassName : ' + string(aName)   else     Label2.Caption := 'ClassName : not found'; end; procedure TForm1.FormCreate(Sender: TObject); begin   Form1.FormStyle := fsStayOnTop;   Timer1.Interval := 50; end; procedure TForm1.Timer1Timer(Sender: TObject); var   rPos: TPoint; begin   if boolean(GetCursorPos(rPos)) then     GetMousePosHwndAndClassName(rPos); end;

dcsdcs · 2002-01-10

var   HWndCalculator : HWnd; begin    // find the exist calculator window   HWndCalculator := Winprocs.FindWindow(nil, '计算器');    // close the exist Calculator }   if HWndCalculator <> 0 then        SendMessage(HWndCalculator, WM_CLOSE, 0, 0); end; 请打开计算器，然后执行这段程序如何？

wixll · 2002-01-10

感谢回答的各位的帮助.真的谢谢你们了. 我还有一个问题,比如我将鼠标指向了金山词霸的Edit对话框,利用以上 各位结束的方法我已经得到了句柄,但我现在想得到其内容怎么办?我试着 用GetWindowText但失败,查了帮助告诉我This function cannot retrieve the text of an edit control in another application.请问有没有其他 办法可以获得Edit Control 的内容?另外我要想模拟鼠标点击按钮怎么办, 有什么好办法吗.谢谢了,这个问题回答后我一定给分了.真的,谢谢各位大侠了!

free_knight · 2002-01-10

http://www.delphibbs.com/delphibbs/dispq.asp?lid=794058 procedure TMainForm.TimerTimer(Sender: TObject); var   Pos: TPoint;   Handle: HWND;   Buf: array[0..1024] of Char; begin   GetCursorPos(Pos);   Handle := WindowFromPoint(Pos);   HandleEdit.Text := IntToStr(Handle);   GetClassName(Handle, Buf, 1024);   ClassEdit.Text := Buf;   SendMessage(Handle, WM_GETTEXT, 1024, Integer(@Buf));   TextEdit.Text := Buf; end; 来自：xiao_min, 时间：2001-12-20 13:15:00, ID：800252 其实方法我上面已经说过了，你试一下： passmark:=sendmessage(curwin,em_getpasswordchar,0,0); if passmark<>0 then   begin postmessage(curwin,em_setpasswordchar,0,0); count:=sendmessage(curwin,wm_gettext,100,lparam(@text1)); postmessage(curwin,em_setpasswordchar,wparam(ord('*')),0); end; 测试结果： xp下可以，其实直接向目标控件发送 SendMessage(hwnd, EM_SETPASSWORDCHAR, longint(0), 0) 就可以显示出来。 但是2000下绝对不行！也许是我们的服务器安装了pack的缘故吧。

zhpzj · 2002-01-11

unit pzjUnit; interface   uses     windows,SysUtils;   Function GetComHandle(P_name,C_name: string): Integer;   implementation var   comName: string; function GetComHandle(P_name,c_name: string): Integer; var   p_handle: Integer;         function EnumChildWindowsProc(hwnd: Integer; lparam: Longint):Boolean; stdcall;       var         buffer: array[0..255] of Char;       begin         Result := True;         //得到目标窗口的控件         windows.GetClassName(hwnd,buffer,256);         //找到发消息的目标窗口的目标控件         if StrPas(Buffer)= ComName  then         begin           PInteger(lparam)^ := hwnd;// 得到目标控件的Hwnd(句柄)           Result:=False;  //终止循环         end;       end; begin   p_handle := FindWindow(nil,pchar(p_name));  //就是窗口的Caption   if p_handle<>0 then     begin       ComName:=c_name;       EnumChildWindows(p_handle,@EnumChildWindowsproc,Integer(@p_handle));       result:=p_handle;     end; end; end. 使用时:GetComHandle('窗口名称','组件名称');

独帅 · 2002-01-12

我想得到金山词霸的窗口的句柄，还可以这样： FindWindow(PChar(GlobalAddAtom(MAKEINTATOM($00008002))), '金山词霸 2002'); 其中，$00008002是32770的十六进制，'金山词霸 2002'是窗口的Caption。 模拟鼠标点击按钮，可以用 SendMessage(handle, WM_LButtonDown,……)； SendMessage(handle, WM_RButtonDown,……)； 好像还可以用mouse_event，可我没用过：）

wixll · 2002-01-16

多人接受答案了。

请问如何使用Findwindow函数,大侠救我,分数一定多给.(200分)

wixll

Unregistered / Unconfirmed

free_knight

Unregistered / Unconfirmed

free_knight

Unregistered / Unconfirmed

zhpzj

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

dcsdcs

Unregistered / Unconfirmed

wixll

Unregistered / Unconfirmed

free_knight

Unregistered / Unconfirmed

zhpzj

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

wixll

Unregistered / Unconfirmed

Similar threads