5,930
社区成员
发帖
与我相关
我的任务
分享注册表的问题。虽然简单，可我还搞不懂！
注册表的问题。请问这一部分为什么会错误？？？我是想选中内容然后删除！
procedure TForm1.Button2Click(Sender: TObject);
var
reg:Tregistry;
temp:string;
i:integer;
begin
for i:=0 to memo1.Lines.Count-1 do
if memo1.selected[i] then //在这行出现错误！为什么？？？
begin
temp:=memo1.Lines.Strings[i];
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\run',true);
reg.DeleteKey(temp);
end;
reg.CloseKey;
reg.Free;
end;
谢谢帮忙！
procedure TForm1.Button2Click(Sender: TObject);
var
reg:Tregistry;
temp:string;
i:integer;
begin
for i:=0 to memo1.Lines.Count-1 do
if memo1.selected[i] then //在这行出现错误！为什么？？？
begin
temp:=memo1.Lines.Strings[i];
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\run',true);
reg.DeleteKey(temp);
end;
reg.CloseKey;
reg.Free;
end;
谢谢帮忙！
...全文
请发表友善的回复…
发表回复
