delphi 控制台关闭指定窗口


本文整理自网络,侵删。

 program Project2;

{$APPTYPE CONSOLE}

uses
Windows, Messages,SysUtils;
var
Handle: HWND;//Handle句柄
begin
Handle:= FindWindow(nil,'我的电脑'); // 关闭我的电脑
if Handle <> 0 then
PostMessage(Handle,WM_Close,0,0);
write('谢谢你的使用...' + #10 + '程序运行结束,按回车返回...'); //测试用
readln; //加这个显示 ,测试用
end.

相关阅读 >>

Delphi filestream

Delphi 得到执行程序的当前所在完整路径

Delphi 移除u盘的两种方法

Delphi的datetostr strtodate格式灵活用法

Delphi ioutils 单元(5): tdirectory.tdirectory 的其他功能

Delphi 获取unigui 控件id 及获取html值

Delphi fmx 图像处理成圆角图像

Delphi 实现关闭指定进程,自身防杀

Delphi tfilestream 逐行读取文本

Delphi 如何获得其他进程的token

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...