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.
 

相关阅读 >>

orangeui作者开源作品

Delphi unigui unistringgrid1 清空

Delphi7判断字符是否是数字

Delphi 快速删除非空文件夹

Delphi sqlite 简明上手指南

Delphi 从 .lnk 文件获取真正路径的程序

Delphi 合并两个 wav 文件流的函数

Delphi 防止系统睡眠

Delphi登陆验证方法

Delphi 启动程序隐藏主窗体

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi编程实现SQL Server挂起清除