user
register;procedure getregrun();
var
Rego: TRegistry;
val: tstringlist;
i: integer;
begin
Rego := TRegistry.Create;
Val := TStringList.Create;
Rego.RootKey := HKEY_LOCAL_MACHINE;
rego.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',
True);
Rego.GetValueNames(Val);
for i := 0 to val.Count - 1 do
begin
regrun.append(uppercase(Rego.ReadString(Val.Strings[I]))); //所有启动项目读入reg
end;
rego.free;
val.free;
end;
register;procedure getregrun();
var
Rego: TRegistry;
val: tstringlist;
i: integer;
begin
Rego := TRegistry.Create;
Val := TStringList.Create;
Rego.RootKey := HKEY_LOCAL_MACHINE;
rego.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',
True);
Rego.GetValueNames(Val);
for i := 0 to val.Count - 1 do
begin
regrun.append(uppercase(Rego.ReadString(Val.Strings[I]))); //所有启动项目读入reg
end;
rego.free;
val.free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货