//开机自启

procedure SetAutoRun(ok: boolean);
var
  Reg: TRegistry; //首先定义一个TRegistry类型的变量Reg
begin
  Reg := TRegistry.Create;
  try //创建一个新键
    Reg.RootKey := HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHINE
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true); //打开一个键
    if ok then begin
      if reg.ReadString('打印辅助') = '' then //如果检查注册表里面没有启动数据
      begin
        Reg.WriteString('打印辅助', ExpandFileName(ParamStr(0))); //在Reg这个键中写入数据名称和数据数值
        ShowMessage('开机自启设置成功！');
      end;
    end
    else begin
      reg.DeleteValue('打印辅助');
      ShowMessage('开机自启设置删除成功！')
    end;
    Reg.CloseKey; //关闭键
  finally
    Reg.Free;
  end;
end;