RSS订阅 | 匿名投稿
您的位置:网站首页 > 数据库 > 正文

Delphi编程实现SQL Server挂起清除

作者:admin 来源: 日期:2018/1/12 15:41:54 人气: 标签:

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

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

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

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

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


//转载请注明出处
unit Unit1;

interface

uses
  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);
var
Reg:TRegistry;
begin
Reg:=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 //去掉if
   MessageBox(0,'不存在SQL挂起!','提示信息',64)
   else
  if (Reg.OpenKey('\SYSTEM\CurrentControlSet\Control\Session Manager',false)) then
begin
  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:154103651'+#13+#13'操作系统:Windows 10简体中文专业版64位'+#13+#13'编程工具:Delphi 2010英文架构师版','提示信息',64);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

end.

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料