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的initialization和finalization

Delphi 获得网页乱码

Delphi 10进制数与33进制数的转换

Delphi 运行时提升软件到管理员权限

Delphi 相对路径和绝对路径的转换

Delphi 树

Delphi使用tclientdataset�r不携带midas.dll的方法

Delphi ip编辑控件

Delphi 中拖动无边框窗口的5种方法

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

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