盒子论坛 v2.1

比如memo1 的内容：
11
22
33
并且memo1 的内容是注册表 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run 下的键值。

单击button1 删除这些键值（即：11、22、33），怎样实现？
----------------------------------------------
-

作者：

iamdream (银河恒久远，梦想无止境！)	★☆☆☆☆	-
	大贡献会员

2004/1/8 11:59:12

1楼：

你一个个删除不就得了？
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

作者：

axingo (英文)	★☆☆☆☆	-
	普通会员

2004/1/8 12:09:21

2楼：

我不想一个个删除，想单击button1 把它们删除
----------------------------------------------
-

作者：

sephil (NAILY Soft)	★☆☆☆☆	-
	盒子中级会员

2004/1/8 13:40:09

3楼：

用循环
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog

作者：

axingo (英文)	★☆☆☆☆	-
	普通会员

2004/1/12 9:44:13

4楼：

我下面写的代码,不行,为什么?

var
  tt:integer;
  ss:Tstringlist;
  sss:string;
begin
  reg:=Tregistry.Create;
  ss:=Tstringlist.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  if reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false) then
  begin
  sss:=memo1.Text;
  ss.Add(sss) ;
  for tt:=0 to ss.Count -1 do
  reg.DeleteValue(ss.Strings[tt]);
  end;
----------------------------------------------
-

作者：

axingo (英文)	★☆☆☆☆	-
	普通会员

2004/1/16 11:56:52

5楼：

ding!!!!
----------------------------------------------
-

作者：

jwc163 (sillybird)	★☆☆☆☆	-
	盒子活跃会员

2004/1/16 12:27:18

6楼：

看这代码应该可以吧
----------------------------------------------
因为蓝天的诱惑　梦想有天与白云共舞！

作者：

axingo (英文)	★☆☆☆☆	-
	普通会员

2004/1/16 12:29:05

7楼：

不行啊，你试试
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/1/16 12:33:52

6楼：

先枚举：
procedure TfrmWinAutoRun.dxButton3Click(Sender: TObject);
var
  i:Integer;
  HSl1,HSl2:TStringList;
  li:tlistitem;
begin
HSl1:=TStringList.Create ;
HSl2:=TStringList.Create ;
Emnu(HKEY_LOCAL_MACHINE,
       'SOFTWARE\Microsoft\Windows\CurrentVersion\Run',
        HSl1,HSl2);
lv4.Items.Clear ;
for i:=0 to HSl1.Count -1 do
  begin//1
    li:=lv4.Items.Add ;
    li.Caption :=HSl1.Strings [i];
    li.SubItems.Add(HSl2.Strings [i]);
  end;//1
HSl1.Free ;
HSl2.Free ;

end;
//---------------------------------------------------------------
procedure Emnu(mainkey:Longint;Key:String; const SLV,SLVV:TStringList);
var
  reg:Tregistry;
  i:Integer;
  TempLvKey,
  TempLvKeyValue:String;
begin
  reg:=Tregistry.Create ;
  try
   reg.RootKey :=mainkey;
    if reg.OpenKey(Key,False) then
     begin//2
       SLV.Clear ;
       Reg.GetValueNames(SLV);
       SLVV.Clear ;
       for i:=0 to SLV.Count -1 do
         begin//1
           TempLvKey:=SLV.Strings [i];
           TempLvKeyValue:=readreg (mainkey,Key,TempLvKey);
           SLVV.Add(TempLvKeyValue);
         end;//1
     end;//2
   finally
    reg.Free ;
   end;
end;

此帖子包含附件:

大小:59.2K

----------------------------------------------

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/1/16 12:34:53

8楼：

在删除！
function delthekey(mainkey : Longint; Key : String):boolean;
var
   reg:Tregistry;
begin
  Result:=false;
  reg:=Tregistry.Create ;
  try
   reg.RootKey :=mainkey;
   if reg.OpenKey(key,false) then
     begin
     reg.CloseKey ;
     Result:=reg.DeleteKey(key);
     end;
   finally
    reg.Free ;
  end;
end;
procedure TfrmWinAutoRun.dxButton1Click(Sender: TObject);
const mk:integer=HKEY_LOCAL_MACHINE;
      tk:string='SOFTWARE\Microsoft\Windows\CurrentVersion\Run';
var
  i,mycount:Integer;
  tempstr:String;
  li:tlistitem;
begin
if mymsgbox('真的要删除？','慎重考虑',3)=IDYES then
begin//1

i:=0;
repeat
  li:=lv4.Items.Item [i];
  if li.Selected  then
    begin
     delthekeyVaule(mk,tk,li.Caption);
     lv4.Items.Delete(i);
     i:=i-1;
    end;
   i:=i+1;
  until i=lv4.Items.Count ;

end;//1
end;
----------------------------------------------

信息

登陆以后才能回复