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;

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.
Delphi编程实现SQL Server挂起清除

相关推荐

评论
