Delphi编程实现SQL Server挂起清除

当我们在重新安装Microsoft SQL Server 2000数据库的时候会发生错误，导致无法继续安装，

这样就必须重新启动电脑之后才可以继续安装，很麻烦，

其实只需要删除注册表中的一个名为PendingFileRenameOperations的键值即可免除重新启动电脑的麻烦。

而这个键值在HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager下面，

我们可以手动删除，也可以通过相关的小工具来达到同样的目的。

具体的代码如下：

//转载请注明出处

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls,Registry;typeTForm1 = 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;varForm1: 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换成andif (Reg.ValueExists('PendingFileRenameOperations')=false) then MessageBox(0,'不存在SQL挂起！','提示信息',64)elseif (Reg.OpenKey('\SYSTEM\CurrentControlSet\Control\Session Manager',false)) then
beginReg.DeleteValue('PendingFileRenameOperations');Reg.CloseKey;MessageBox(0,'SQL挂起清除成功，现在可以正常安装SQL了！','提示信息',64);
end;
finallyReg.Free;
end;end;procedure TForm1.Button2Click(Sender: TObject);
beginMessageBox(0,'作者：紫松哥哥 QQ：2609715119'+#13+#13'操作系统：Windows 7简体中文专业版64位'+#13+#13'编程工具：Delphi 2007','提示信息',64);
end;procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;end.

Delphi编程实现SQL Server挂起清除相关推荐

在Delphi中根据SQL Server表名和表描述生成SQL语句
直接上代码吧: 1 function GetSQLByTableName(sTableName:string):String; 2 var 3 aDataSet:TDataSet; 4 ...
delphi使用MS Sql Server数据库的分布式查询
目录 delphi使用MS Sql Server数据库的分布式查询一.链接服务器 1.1.简单的链接服务器 1.2.含多数据库架构的全链接服务器 1.3.链接服务器的理论与总结语法: 参数: 本系 ...
SQL Server Management Studio清除历史登陆记录
今天做渗透,登陆目标服务器的数据库管理后发现留下了登陆的记录,自己鼓捣了半天,终于解决删除C:\Documents and Settings\guest\Application Data\Mic ...
.NET编程和SQL Server ——Sql Server 与CLR集成
一.SQL Server 为什么要与CLR集成 1. SQL Server 提供的存储过程.函数等十分有限,经常需要外部的代码来执行一些繁重的移植: 2.与CLR集成可将原本需要独立的程序来实现的功能 ...
SQL SERVER 2008 R2 清除数据库日志 sql语句
清除数据库日志: ALTER DATABASE yidinatest SET RECOVERY SIMPLE DBCC SHRINKDATABASE(yidinatest, 1) ALTER DATA ...
Oracle 9i与MS SQL Server 2000之比较连载五.zz
http://kb.cnblogs.com/a/1153156 Oracle 9i与MS SQL Server 2000之比较连载五 2008-04-14 18:13 四.Oracle中新的数据库对象 ...
C# SQL Server笔记
第一章认识C#程序 1. namespace关键字: Namespace(命名空间)是C#中组织代码的方式,他的作用类似于java中的package(包)这样我门就可以把紧密相关的一些代码放在同一个 ...
Excel与Sql Server互通导入导出跨语言
目录 Excel与Sql Server互通导入导出跨语言 1.目标Excel缺少表的列标题字段 1.1.问题的提出从这里开始 1.2.参数的正确写法 1.3.附带说一下Jet 4.0 1.4.附带说一 ...
SQL Server 2008 概览（综述及三大新特性，冉冉毅马译）
译:SQL Server 2008 概览(综述及三大新特性) ==================================== SQL Server 2008 概述原文:微软网站(链接) 译 ...

Delphi编程实现SQL Server挂起清除

Delphi编程实现SQL Server挂起清除相关推荐

最新文章

热门文章