Delphi编程实现SQL Server挂起清除

原创 2017年04月06日 16:22:02

当我们在重新安装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 
   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:2609715119'+#13+#13'操作系统:Windows 7简体中文专业版64位'+#13+#13'编程工具:Delphi 2007','提示信息',64);
end;

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

end.
版权声明:本文为博主原创文章,未经博主允许不得转载。

sql server 2000清除挂起程序

  • 2016年06月14日 16:56
  • 48KB
  • 下载

清除SQL SERVER数据库挂起工具

  • 2014年03月18日 13:41
  • 48KB
  • 下载

解决SQL Server 2000安装文件挂起

1.重新安装SQL Server的时候出现的情况。“以前的某个程序已在安装计算机上创建挂起的文件操作。运行安装之前必须重新启动计算机”的提示。 解决方法:解决方法... 关于SQL安装被挂起的修复大家...

SQL server 2000安装挂起修复工具

  • 2014年06月23日 10:38
  • 1023KB
  • 下载

ms sql server 2000挂起问题解决

今天在家把电脑重装了一次,在安装sql server2000 时出现一个错误,说以前某个程序挂起,安装程序前必须重新启动计算机,这个问题见怪不怪,以前也遇到过很多次, 安装程序前必须重新启动计算机解...

MFC ADO方法实现SQL Server数据库编程(转载)(2014-05-18)

之前在做数据库方面的编程学习的过程中,发现很多的知识细节不是很清楚,通过查了很多的资料,也走了不少的弯路。觉得有必要整理一下这方面的知识,一方面,可以为自己的学习做记录;另一方面,可以给初步学习MFC...

解决SQL Server 2000安装的挂起

  • 2008年09月23日 16:08
  • 447B
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi编程实现SQL Server挂起清除
举报原因:
原因补充:

(最多只允许输入30个字)