with reg do begin
try
RootKey := HKEY_local_machine;
if OpenKey('\Software\Microsoft\Internet Explorer\main', True)
then
begin
writestring('window title',edit_local_windowtitle.text);
writestring('start page',edit_local_startpage.text);
writestring('default_page_url',edit_defaultpage.text);
end;....
.....
try
RootKey := HKEY_local_machine;
if OpenKey('\Software\Microsoft\Internet Explorer\main', True)
then
begin
writestring('window title',edit_local_windowtitle.text);
writestring('start page',edit_local_startpage.text);
writestring('default_page_url',edit_defaultpage.text);
end;....
.....
with ARegistry do
begin
RootKey := HKEY_CURRENT_USER;
if OpenKey('Software\Tj\DiskReport', true) then
begin
if KeyExists('Window Title') then
title := ReadString('Window Title')
else
WriteString('Window Title',Title);
end;
CloseKey; {关闭主键,同时将信息写入注册表}
Destroy; {释放内存 }
end;
if OpenKey('Software\Tj\DiskReport', true) then
应该是
if OpenKey('\Software\Microsoft\Internet Explorer\main', True)
这样才对题