社区
Delphi
帖子详情
如何关闭一个已知Title的应用程序?
barton
2000-05-04 02:15:00
如何关闭一个已知Title的应用程序?
例如,在编写ISAPI应用程序时每一次编译都只能重启Windows,
我已查到PWS的Title是inetinfo,如何写一个应用程序关闭它?
FindWindow('',inetinfo'')
FindWindow('inetinfo','')
FindWindow('inetinfo','inetinfo')
都找不到窗口。
...全文
146
3
打赏
收藏
如何关闭一个已知Title的应用程序?
如何关闭一个已知Title的应用程序? 例如,在编写ISAPI应用程序时每一次编译都只能重启Windows, 我已查到PWS的Title是inetinfo,如何写一个应用程序关闭它? FindWindow('',inetinfo'') FindWindow('inetinfo','') FindWindow('inetinfo','inetinfo') 都找不到窗口。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
snakezou
2000-05-08
打赏
举报
回复
我刚写了一个这方面的程序,跟superdelphi的一样:
procedure TForm1.Button1Click(Sender: TObject)
var ExeHandle: HWND;
begin
ExeHandle:=FindWindow(nil,'你的标题');
SendMessage(ExeHandle,WM_CLOSE,0,0);
end;
我已经试过了,应该没问题。
superdelphi
2000-05-07
打赏
举报
回复
Try: SendMessage(ExeHandle,wm_close,0,0)
1.标题确定的
Procedure TForm1.Btn1Click()
var
ExeHandle:THandle;
Begin
ExeHandle:=FindWindow(Nil,'文件管理器');
SendMessage(ExeHandle,wm_close,0,0);
End;
2.标题不确定的
Procedure TForm1.Btn2Click()
var
ExeHandle:THandle;
Begin
ExeHandle:=FindWindow('NotePad',Nil);
SendMessage(ExeHandle,wm_close,0,0);
End;
haiyang
2000-05-04
打赏
举报
回复
hCurrentWindow: HWnd;//窗口句柄
hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST)//取得当前窗口句柄
GetWindowText(hCurrentWindow, @szText, 255) //取得窗口标题(title)
hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT)//取下一个窗口句柄SendMessage(hCurrentWindow, WM_CLOSE, 0, 0);//关闭窗口
此法必须是Title是已知的!findwindow('','')前一个参数是类名(class name),后一个是窗口名(windows name--the window's title)(见帮助文件),因此我怀疑pws的title不是inetinfo!
我另有一例程,可列出当前所有正在运行的程序,包括程序文件名及路径,关闭程序,不过是强行关闭,使用的函数有:Process32First, Process32Next,TerminateProcess, CreatToolhelp32Snapshot, openprocess.
不过我还没把它整理好,若有兴趣请来E-mail:hq_pan@263.net
title
_case:JavaScript Web
应用程序
(包括 jQuery、Mocha、Chai、Bootstrap)
标题案例 方法允许用户根据语法规则将输入的单词大写。
已知
错误 截至 2015 年 2 月 10 日没有。 作者 卡莉·马丁内斯和 J. 特纳 执照 麻省理工学院执照。
C# 实验三 面向对象程序设计(二)
3、编写控制台
应用程序
,设计
一个
普通职工类Employee,其工资为基本工资(1000)加上工龄工资(每年增加30元)。从Employee类派生
一个
本科生类UEmployee,其工资为普通职工算法的1.5倍,另从Employee类派生
一个
研究生类SEmployee,其工资为普通职工算法的2倍,要求计算工资用虚方法实现;分别用相关数据进行测试。 using System; namespace Test3_3 { public class Employee { priva
安装和配置 Windows Server 2022 更新服务
微软对于自己开发的产品支持方式,其中一种就是开发补丁程序,用于修复微软产品的
已知
问题,比如功能缺陷、安全漏洞、逻辑错误等,这些缺陷一般来自于客户反馈、安全研究人员和团队并且微软会维护着
一个
在线服务,Microsoft 更新服务平台,用于分发补丁程序,方便用户和 IT 管理人员理解每
一个
补丁程序的作用,并且允许用户和 IT 管理人员轻松地获取到这些补丁程序,下载并且安装到相关的设备当中每一台 Windows 设备,包括 Windows 客户端和服务器系统,都集成了
一个
Windows Update 服务,用于联机到 Microsoft 在线更新服务平台,定期查询适用于当前设备的补丁更新程序,并且下载和安装这些更新程序,以确保 Windows 设备能够安全、稳定和可靠的运行而 Windows 更新服务角色,是 Windows Server 2022 系统当中的
一个
可选角色,一方面它可以从 Microsoft 更新服务平台联机地同步最新的补丁描述和安装文件,另外的一方面将这些补丁分发给企业当中的设备,管理员可以借助于 Windows 更新服务,集中地审批和分发补丁,了解网络当中设备更新的状态,并且在需要的时候,也可以实现补丁的自动分发和状态报告在我们的这
一个
课程当中,我们将详细地为大家去 Windows 更新服务的安装和配置过程
win32桌面
应用程序
初始代码解析(一)
新建
一个
C++win32桌面
应用程序
项目假设我们叫hellowindows,我们可以在hellowindows.cpp里看到会有一大段初始的代码: #include "stdafx.h" #include "hellowindows.h" #define MAX_LOADSTRING 100 // 全局变量: HINSTANCE hInst; ...
将浏览器嵌入 .NET
应用程序
中:DotNetBrowser 还是 CefSharp?
为 WPF 或 WinForms
应用程序
选择浏览器组件,对于那些搜索基于Chrome的解决方案的人来说,DotNetBrowser和CefSharp是最明显的选择。
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章