社区
Delphi
帖子详情
如何关闭一个已知Title的应用程序?
barton
2000-05-04 02:15:00
如何关闭一个已知Title的应用程序?
例如,在编写ISAPI应用程序时每一次编译都只能重启Windows,
我已查到PWS的Title是inetinfo,如何写一个应用程序关闭它?
FindWindow('',inetinfo'')
FindWindow('inetinfo','')
FindWindow('inetinfo','inetinfo')
都找不到窗口。
...全文
132
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; ...
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是最明显的选择。
学习Flutter和FlutterforWeb:构建现代Web和移动
应用程序
:简单而强大
作者:禅与计算机程序设计艺术 无论是当前的前端开发领域还是后端开发领域,都处于信息化的浪潮之下。随着互联网和电子商务的发展,大量的应用需要在WEB上运行。这使得传统的Web页面越来越慢,不可靠。因此,越来越多的公司开始采用移动优先的设计,使用移动端设备作为主要的用户访问入口,提高了Web和移动
应用程序
的易用性和可用性。Web和移动
应用程序
Delphi
5,379
社区成员
262,723
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章