我在服务器版下试了,为什么用regedit.exe不能看注册表?出现
"注册表编辑已被管理员禁止 ",怎样才可以查看?!
"注册表编辑已被管理员禁止 ",怎样才可以查看?!
解决方案 »
- delphi
- 关于Delphi中的Ado组件访问Access数据库的日期问题
- 一个关于showmodal的超奇怪的问题
- 请问哪里有Install Shield 工具下载???
- QQ群:4281029,VB、DELPHI学习群,欢迎加入!!
- 快去用BT下载delphi 8 for .net地址http://search.sa20.com/btsearch.php?query=Delphi+8&type=0
- 如何使同级菜单的Checked属性互斥?
- 如何强制让DELPHI区分大小写,象C一样,如果大小写不一致就编译错误
- 怪哉,断点检查!
- 关于 TreeView 的问题
- 在D6中已把Query的RequestLive设置为True了,怎么还报警是只读呢?请帮忙
- Dephi组件: 要自己从属性编辑类中继承一个自己的属性编辑器,应Uses那个文件,应注意哪些问题谢谢!!!!
"注册表编辑已被管理员禁止 ",怎样才可以查看?!
[Hkey_current_user\Software\microsoft\windows\currentversion\Policies\system]
"DisableRegistryTools"=dword:00000000win98:
REGEDIT4
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"DisableRegistryTools"=dword:00000000
主要是加入异常处理。const
SOpenKey = 'SoftWare\MySetting;
SNode = 'NodeValue';
HRootKey = HKEY_Local_Machine;procedure RaiseError(ErrorCode: Integer);
begin
if ErrorCode <> Error_Success then
raise Exception.Create(SysErrorMessage(ErrorCode));
end;procedure TForm1.Button1Click(Sender: TObject); function GetDataSize(AKey: HKey; AValueName: string): Integer;
var
DataType: Integer;
begin
DataType := 0;
if RegQueryValueEx(AKey, PChar(AValueName), nil, @DataType, nil,
@Result) <> ERROR_SUCCESS then Result := -1;
end;var
Key: HKey;
ErrorCode: Integer;
BufSize, DataType: Integer;
Buffer: Pointer;
S: string;
begin
DataType := Reg_SZ;
ErrorCode := RegOpenKeyEx(HRootKey, PChar(SOpenKey), 0, Key_Read, Key);
RaiseError(ErrorCode);
try
BufSize := GetDataSize(Key, SNode);
ErrorCode := RegQueryValueEx(Key, PChar(SNode),
nil, @DataType, PByte(Buffer), @BufSize);
RaiseError(ErrorCode);
S := PChar(Buffer);
SetLength(S, BufSize);
MessageBox(Handle, PChar(S), '', MB_OK);
finally
RegCloseKey(Key);
end;
end;procedure TForm1.Button2Click(Sender: TObject);
const
SValue= 'Hello'; function WriteString(AKey: HKey; Name: string; Buffer: Pointer; Len: Integer): Integer;
var
DataType: Integer;
begin
DataType := Reg_SZ;
Result := RegSetValueEx(AKey, PChar(Name), 0, DataType, Buffer, Len);
end;var
ErrorCode: Integer;
Key: HKey;
begin
ErrorCode := RegOpenKeyEx(HRootKey, PChar(SOpenKey), 0, Key_Write, Key);
RaiseError(ErrorCode);
try
ErrorCode := WriteString(Key, SNode, PChar(SValue), Length(SValue) + 1);
RaiseError(ErrorCode);
finally
RegCloseKey(Key);
end;
end;