说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

关闭正在运行的程序 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
关闭正在运行的程序 -VB资料
你可以使用API函数FindWindow和PostMessage去寻找指定的窗口,并关闭它。
下面的例子教给你怎样找到并关掉一个Caption为“Caluclator”的程序。

Dim winHwnd As Long
Dim RetVal As Long

winHwnd = FindWindow(vbNullString, "Calculator")

Debug.Print winHwnd

If winHwnd <> 0 Then
 RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
 If RetVal = 0 Then
  MsgBox "置入消息错误!"
 End If
Else
 MsgBox "Calculator没有打开!"
End If

为了让以上的代码工作,你必须在模块文件中什么以下API函数:

Declare Function FindWindow Lib "user32" Alias _
 "FindWindowA" (ByVal lpClassName As String, _
 ByVal lpWindowName As String) As Long

Declare Function PostMessage Lib "user32" Alias _
 "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
 ByVal wParam As Long, lParam As Any) As Long

Public Const WM_CLOSE = &H10
调用那个函数得到本机的IP-Delphi资料 动态改变/添加网络设置中的 TCP/IP 的 DNS 地址-Delphi资料 任何动态改变/添加网络设置中的 TCP/IP 的 DNS 地址-Delphi资料 如何在程序中动态取得Win98的网络邻居中的工作组及计算机名-Delphi资料 动态设置DNS地址-Delphi资料 where 语句后是不是不能有if then ,若不能应如何解决?? 如何去掉两个表格之间的空白(dreamweaver) 新闻自动生成的静态网页,ASP_NET用什么方法可以直接实现? 如何实现这样一个问题?%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 如何全部记录,和添加一张数据表? 一个指针问题 如何去掉页面提交是发出的声音? 初学:求好教材,下载或者实体书 在线等待!!! 排列组合怎么算2,5,28,257,() -5/2+28/5÷(-2)×(-5/14) 已知向量OA=a,OB=b,若OA=4,OB=4, 已知向量OA=a,OB=b,若OA=12,OB=4 已知数abc在数轴上的对应点分别是点a,b,c,a 如果一个数的因子之和等于这个数本身,则称这样的数为 VB:编一函数过程,对一已知数m判断其是否为完数. “请输入例子中端子的数目” 英语怎么说? 2,5,28,257,( ) 赵洪祝会见尼泊尔客人范长龙会见巴基斯坦陆军参谋长华媒:揭秘核潜艇部队剑有所指 新海军中国核潜艇部队42年来首次揭秘 打击揭牌首月 上海自贸试验区登记企业同比湖北荆州副市长张万超、鄂州人大常委会长袖善舞原来不是真的跳舞买房 面对黑心霸王条款你就应该这么做载入史册!A股市场熔断实行后宝宝们都多擦防晒油可以减少儿童患皮肤癌百战兵策极品幸运盛世梦惊世焚天源逆天下扶余旅游罗城古镇旅游黄河第一桥旅游海螺沟木林森村温泉旅游芹山旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘