Delphi开机启动项管理源码


本文整理自网络,侵删。

 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 xe android将域名转化为ip

Delphi程序升级到64位

扩展 Delphi 线程 使之传递参数.(给匿名线程增加参数)

检查是否在Delphi xe7中启用或禁用了android蓝牙

Delphi 为数字补充前缀0

Delphi通过ie窗口句柄获取网页接口(iwebbrowser2)

Delphi winapi: writeprivateprofilestring、getprivateprofilestring - 简单读写 ini 文件

Delphi 合并文件

Delphi安装*.pas扩展名的控件

Delphi tadoquery的用法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...