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实现图像反色实例4种方法

Delphi xe7中stringgrid组件的使用

文件占坑对付云安全

Delphi 本地数据库备份与还原(Delphi)

Delphi获取其他进程中状态栏文本的函数

Delphi 7 简单语法

Delphi 按esc快捷键退出程序的简单方法

Delphi xe 无法编译apk提示sdk路径问题时？sdk路径配置方法

Delphi中用ado连接加密access数据库

Delphi获取jpg图片的高度、宽度

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

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