zisongjia的博客

我的博客,你的世界!

Delphi编程实现SQL Server挂起清除

当我们在重新安装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.
阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/zisongjia/article/details/69396228
文章标签: delphi sql server 挂起
个人分类: Delphi
上一篇Delphi与Windows 7下的用户账户控制(UAC)机制
下一篇DES 算法的使用
想对作者说点什么? 我来说一句

SQL SERVER 挂起清除工具

2008年06月21日 17KB 下载

sql server 2000清除挂起程序

2016年06月14日 48KB 下载

清除SQL Server安装挂起_小工具

2008年05月06日 18KB 下载

SQL SERVER安装挂起清除小工具

2011年03月14日 15KB 下载

工具清除sql挂起工具

2010年04月22日 1.52MB 下载

没有更多推荐了,返回首页

关闭
关闭