设置开机自启
procedure TMainForm.RegAutoStart;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
//将根键设置为HKEY_LOCAL_MACHINE
Reg.RootKey := HKEY_LOCAL_MACHINE;
//打开一个键
Reg.OpenKey('SOFTWAREMicrosoftwindowsCurrentVersionRun', True);
if not Reg.ValueExists(ExpandFileName(ParamStr(0))) then
begin
//在Reg这个键中写入数据名称和数据数值
Reg.WriteString(ExpandFileName(ParamStr(0)), ParamStr(0));
end;
Reg.CloseKey;
finally
//关闭键
freeAndNil(Reg);
end;
end;
取消开机自启
procedure TMainForm.RegAutoStart;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
//将根键设置为HKEY_LOCAL_MACHINE
Reg.RootKey := HKEY_LOCAL_MACHINE;
//打开一个键
Reg.OpenKey('SOFTWAREMicrosoftwindowsCurrentVersionRun', True);
if Reg.ValueExists(ExpandFileName(ParamStr(0))) then
begin
// 删除值
Reg.DeleteValue(ExpandFileName(ParamStr(0)));
end;
Reg.CloseKey;
finally
//关闭键
freeAndNil(Reg);
end;
end;