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 //去掉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;

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.

推荐分享