Delphi7 注册开机自启

设置开机自启

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;