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自动适应屏幕分辨率的属性

Delphi 删除任意文件的任意位置的任意数量的字符

Delphi获取进程占用内存

Delphi 二进制值转换十六进制 bintohex和hextobin

Delphi idhttp用法详解

Delphi 数据库char varchar nvarchar区别

Delphi正则表达式匹配中文

Delphi实现抓屏压缩并保存桌面图片

Delphi image 直接加载资源文件

Delphi防止同时出现多个应用程序实例

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

转载请注明出处：木庄网络博客 » delphi 控制台关闭指定窗口