以下是我的程序,试了很多次,都不能删除run-\sysclient项 :(
是哪里有问题么?谢谢:) myreg:=tregistry.Create;
myreg.RootKey:=hkey_current_user;
try
if myreg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run-',true) then
strtmp:=myreg.ReadString('SysClient');
if trim(strtmp)<>'' then
begin
if myreg.DeleteKey('SysClient') then
showmessage('ok');
myreg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',true);
myreg.WriteString('SysClient',strtmp);
myreg.closekey;
end; finally
myreg.free;
end;
是哪里有问题么?谢谢:) myreg:=tregistry.Create;
myreg.RootKey:=hkey_current_user;
try
if myreg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run-',true) then
strtmp:=myreg.ReadString('SysClient');
if trim(strtmp)<>'' then
begin
if myreg.DeleteKey('SysClient') then
showmessage('ok');
myreg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',true);
myreg.WriteString('SysClient',strtmp);
myreg.closekey;
end; finally
myreg.free;
end;
if myreg.DeleteValue('SysClient') then
showmessage('ok');
if myreg.DeleteValue('SysClient') then
showmessage('ok');
打开时没看见有回复,没想到慢了这么多。呵呵...