1, 怎样把HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run分支中的程序启动键值及键值数据显示在Listview1组件中? 100分请教-----------------------------------------------|
键值 || 键值数据 || |
-----------------------------------------------|
| | |
| | |
-----------------------------------------------|-给出代码2, 怎样删除其中一个启动项?给出代码
键值 || 键值数据 || |
-----------------------------------------------|
| | |
| | |
-----------------------------------------------|-给出代码2, 怎样删除其中一个启动项?给出代码
解决方案 »
- 兄弟们问一个关于。。delphi 类似MSN的任务栏提示框 。
- 原创 新作DELPHI 图片图像处理 PS置换滤镜效果,亮度/对比度,纹理贴图 ,无汇编全部GDI·· 大家鉴定下效果
- 关于TADODataSet的问题,请帮忙,谢谢
- 关于循环的问题(困扰多天)
- 如何使用tlist 来添加树节点 ?????
- 小强挂网诚聘游戏开发人员
- 不知是我问得太难了,还是太简单了,怎么没人回答我?外壳扩展怎么调试?
- 不同数据库相同表结构的内容移植问题
- 如何判断表中某一条记录的某一个字段的内容被修改?
- 如何将动态创建的实例实现visio中对象的效果
- 怎样把内存中的文件显示出来,并且删除?
- 怎样才能是MenuItem的OnClick事件能感应到自己写的函数?
procedure TFrm_Logo.FormActivate(Sender: TObject);
var
reg:Tregistry;
UserName:String;
begin
DM_Set.Tbl_User.Active:=true;
reg:=Tregistry.create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('\Software\jxc\curruser',false)=true then
begin
UserName:=reg.readString('name');
Edit1.Text:=UserName;
Edit2.SetFocus;
end
end;
要下班了,明天帮你解决;
有问题请发信息到我的E-mail:[email protected]
var
reg:Tregistry;
begin
reg:=Tregistry.create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',false)=true then
begin
// 循环查找项值,具体操作和一般文件夹递归读取一样
end
end;