用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;
hCurrentWindow