Delphi 关闭反复弹出的窗体

自动化关闭Visual Studio重复弹窗

最新推荐文章于 2020-10-20 00:29:51 发布

原创

最新推荐文章于 2020-10-20 00:29:51 发布 · 588 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#Delphi 关闭窗体

当使用Visual Studio打开解决方案时，如果工程路径配置错误，会导致反复弹出确认窗口。为了解决这个问题，作者编写了一个Delphi程序，该程序可以自动关闭这些窗口，避免手动点击的繁琐。程序通过查找并关闭特定标题的窗体实现自动化。

用Visual Studio打开解决方案的过程中，如果解决方案所引用的工程路径配置不正确，则会反复弹出Visual Studio确认窗口，如果解决方案包含成百上千个工程，那么用鼠标点确认会很浪费时间。于是编写了一个自动关闭“Visual Studio反复弹出确认窗体”的小程序。或许有人会问，为什么不将VS解决方案的工程路径配置正确？这个不是本篇文章的关键。因为那个路径是Build Server的路径，和本地不同。

unit MainKillWin;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
IsBreak: Boolean=false;

implementation

{$R *.dfm}

uses UWindowKiller;

procedure TForm1.Button1Click(Sender: TObject);
var
Handle: THandle;
&n