Delphi编程实现SQL Server挂起清除

2017-04-06 19:01:30来源:CSDN作者:zisongjia人点击

当我们在重新安装Microsoft SQL Server 2000数据库的时候会发生错误,导致无法继续安装,

这样就必须重新启动电脑之后才可以继续安装,很麻烦,

其实只需要删除注册表中的一个名为PendingFileRenameOperations的键值即可免除重新启动电脑的麻烦。

而这个键值在HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Session Manager下面,

我们可以手动删除,也可以通过相关的小工具来达到同样的目的。

具体的代码如下:

复制代码
//转载请注明出处
unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,Registry;type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Button3: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);varReg:TRegistry;beginReg:=TRegistry.Create;try  //Reg.Access:=KEY_WOW64_64KEY or KEY_WRITE;  Reg.RootKey:=HKEY_LOCAL_MACHINE;  if (Reg.OpenKey('/SYSTEM/CurrentControlSet/Control/Session Manager',false)) then //可以将then换成and   if (Reg.ValueExists('PendingFileRenameOperations')=false) then    MessageBox(0,'不存在SQL挂起!','提示信息',64)   else  if (Reg.OpenKey('/SYSTEM/CurrentControlSet/Control/Session Manager',false)) thenbegin  Reg.DeleteValue('PendingFileRenameOperations');  Reg.CloseKey;  MessageBox(0,'SQL挂起清除成功,现在可以正常安装SQL了!','提示信息',64);end;finally  Reg.Free;end;end;procedure TForm1.Button2Click(Sender: TObject);begin MessageBox(0,'作者:紫松哥哥 QQ:2609715119'+#13+#13'操作系统:Windows 7简体中文专业版64位'+#13+#13'编程工具:Delphi 2007','提示信息',64);end;procedure TForm1.Button3Click(Sender: TObject);beginClose;end;end.

相关文章

    无相关信息

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台