本文整理自网络，侵删。
uses Registry; //引用注册表操作类
var
Form1: TForm1;
reg: TRegistry;
Names: TStringList;
i: Integer;
Const
MKey='\SOFTWARE\Microsoft\Windows\CurrentVersion\Run'; //定义要打开的键值常量
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Names:= TStringList.Create; //读取启动项
reg:= TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey(MKey,False) then
begin
Reg.GetValueNames(Names);
Listview1.Clear;
for i:=0 to Names.Count -1 do
begin
with Listview1.Items.Add do
begin
caption:=Names[i];
SubItems.Add(reg.ReadString(Names[i]));
end;
end;
reg.CloseKey;
end;
Names.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
with listview1 do
begin
columns.Items[0].Width:=100;
columns.Items[1].Width:=350;
Button1.Click;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
DelKey: string;
begin
reg:= TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE; //删除选中的注册表启动项
if reg.OpenKey(MKey,False) then
begin
DelKey:=Listview1.Selected.Caption;
reg.DeleteValue(DelKey);
reg.CloseKey;
listview1.DeleteSelected;
end;
end;
end.
相关阅读 >>
Delphi 的tstringbuilder防止服务器内存碎片化
更多相关阅读请进入《Delphi》频道 >>
