API函数之一:根据窗口标题查找窗口_FindWindowA

原创 2007年09月24日 00:02:00

Function Long FindWindowA(uLong lpClassName,ref string lpWindowName) Library "user32"
************************************************************************************
功能:根据窗口标题查找窗口
示例:
ulong l_handle
string ls_wname
ls_wname="<窗口标题>"//如,无标题---记事本
l_handle=FindWindowA(0,ls_wname)

*******************************************************example 1
Function Long PostMessage(Long hwnd,Long wMsg,Long wParam,Long lParam) Library "user32" Alias for "PostMessageA"
功能:向创建指定窗口的线索发送一条消息,便不等待线索处理该消息
示例:
ulong l_handle
boolean rtn
l_handle=handle(w_main)
//61472=最小化窗口;  61488=最大化窗口  61728=正常窗口
rtn=PostMessageA(l_handle,274,61472,0)

////////////////////////////////////////////////////////////////////////////////////////////example 2
For applications on Windows, the Handle function does not return a useful value when the previous flag is TRUE. You can use the FindWindowA Windows function to determine whether a Windows application is already running.
Declare FindWindowA as a global external function:

FUNCTION uint FindWindowA (long classname,  &

   string windowname) LIBRARY "user32.dll"

Then add code like the following to your application's open event:

uint  val

val = FindWindowA(0, "MyApp Main Window")

IF val > 0 THEN

   MessageBox("Application already running", &

   "MyApp is already running. You cannot &

      start it again")

   HALT CLOSE

ELSE

   open(w_main)

END IF
Handle = FindWindowA(nul,wtitle)
SetParent(handle,Handle(w_main))
//使Run程序窗口成为PB主程序的子窗口
/////////////////////////////////////////////////////////////////////////////////example 3

Long WM_CLOSE,hwnd,Mval
WM_CLOSE=16
hwnd=FindWindowA(0,cTitle)
if hwnd=0 then
 messagebox("系统提示","没有打开该应用程序!")
else
 Mval=PostMessage(hwnd,WM_CLOSE,0,0)
end if

 

相关文章推荐

Delphi 查找标题已知的窗口句柄,遍历窗口控件句柄

查找标题已知的窗口句柄,遍历窗口控件   有了回调函数的概念及上面的例子,我们可以继续了。其实想要找到一个标题已知的窗口句柄,用一个API函数就可以了:FindWindow. 其函数原形是: ...
  • youthon
  • youthon
  • 2015年04月22日 13:22
  • 3476

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

动态修改窗口标题和类名

修改窗口标题字符串“无标题-Test”     修改前半部分   方法一:更改StringTable的IDR_MAINFRME的标题,将第一个\n之和第二个\n之间添加字符串fan为: Test...

如何查找窗体,获取窗体的句柄,Hwnd FindWindow函数

/*CWnd::FindWindow static CWnd* PASCAL FindWindow( LPCTSTR lpszClassName, LPCTSTRlpszWindowNa- me ...

查找指定标题的子窗口

  • 2017年09月08日 13:46
  • 3KB
  • 下载

调用API函数设计About窗口...

  • 2009年10月08日 01:49
  • 4KB
  • 下载

VB.NET 章鱼哥出品--利用API函数AnimateWindow创建Popup提示窗口,窗体的动画效果

当我们打开电脑上网时,是不是会经常看到桌面的右下角弹出一个小的新闻热点窗体,我们可以实现吗?当然可以,这篇文章就来给您掩饰怎么样来用代码实现。看吧,正写着呢弹出了一个。 一、主要用到的函数是API函...

API函数窗口

  • 2012年11月23日 08:39
  • 2KB
  • 下载

OpenGL(1) GLUT窗口图层初始化函数API

/*GLUT初始化函数*/ /* GLUT initialization sub-API. */ GLUTAPI void APIENTRY glutInit(int *argcp, char **...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:API函数之一:根据窗口标题查找窗口_FindWindowA
举报原因:
原因补充:

(最多只允许输入30个字)