社区
Delphi
帖子详情
如何关闭一个已知Title的应用程序?
barton
2000-05-04 02:15:00
如何关闭一个已知Title的应用程序?
例如,在编写ISAPI应用程序时每一次编译都只能重启Windows,
我已查到PWS的Title是inetinfo,如何写一个应用程序关闭它?
FindWindow('',inetinfo'')
FindWindow('inetinfo','')
FindWindow('inetinfo','inetinfo')
都找不到窗口。
...全文
134
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. 特纳 执照 麻省理工学院执照。
win32桌面
应用程序
初始代码解析(一)
新建
一个
C++win32桌面
应用程序
项目假设我们叫hellowindows,我们可以在hellowindows.cpp里看到会有一大段初始的代码: #include "stdafx.h" #include "hellowindows.h" #define MAX_LOADSTRING 100 // 全局变量: HINSTANCE hInst; ...
安装和配置 Windows Server 2022 更新服务
微软对于自己开发的产品支持方式,其中一种就是开发补丁程序,用于修复微软产品的
已知
问题,比如功能缺陷、安全漏洞、逻辑错误等,这些缺陷一般来自于客户反馈、安全研究人员和团队 并且微软会维护着
一个
在线服务,...
C# 实验三 面向对象程序设计(二)
3、编写控制台
应用程序
,设计
一个
普通职工类Employee,其工资为基本工资(1000)加上工龄工资(每年增加30元)。从Employee类派生
一个
本科生类UEmployee,其工资为普通职工算法的1.5倍,另从Employee类派生
一个
研究生类SEmployee,其工资为普通职工算法的2倍,要求计算工资用虚方法实现;分别用相关数据进行测试。 using System; namespace Test3_3 { public class Employee { priva
将浏览器嵌入 .NET
应用程序
中:DotNetBrowser 还是 CefSharp?
为 WPF 或 WinForms
应用程序
选择浏览器组件,对于那些搜索基于Chrome的解决方案的人来说,DotNetBrowser和CefSharp是最明显的选择。
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章