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 ip编辑控件

encryptit.pas

Delphi 利用http的post方法做个在线翻译的小工

Delphi 屏幕截屏

Delphi 三种方式读取txt文本文件

Delphi 中使用微软全文翻译的小例子

Delphi tform类有关属性简介

Delphi adoconnection1连接mssql数据库方法

Delphi打开网址链接的四种方法

Delphi利用系统环境变量获取常用系统目录

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



打赏

取消

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

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

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

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

评论

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