TService , no arranca

[_Io]

Hola, buenas tardes.

Nada, sigue igual, pero hay unas particularidades.

En Windows 11 Home, arranco el servicio, después voy al administrador de tareas y en servicios, NO aparece tampoco.
En Windows 10 Home, arranco el servicio, después voy al administrador de tareas y en servicios, SI aparece, pero tampoco
crea el archivo.

Ahora me he dado cuenta que en todas las carpetas aparece el checkBox "Solo lectura (solo para archivos de la carpeta)" activado y
no se puede desactivar, pero la cosa es que me deja acceder a la carpeta y crear archivos, no sé exactamente que sentido tiene.

De momento voy a continuar desarrollando el hilo para verifactu y cuando de con la tecla de lo qué está pasando lo incorporo al servicio.

Muchas Gracias por la ayuda, cualquier comentario, idea que quieras darme será bienvenida.

Volver a agradecerte tu ayuda

[navbuoy]

El problema clave
Windows 10/11 Home Edition NO permite servicios creados por el usuario de forma convencional (como en Pro).
En concreto:

No soporta por completo la infraestructura de servicios personalizados, especialmente si no usas instaladores con privilegios elevados.

Tu servicio probablemente no se está instalando correctamente, aunque creas que sí arranca.

Si no aparece en services.msc o el Administrador de tareas → pestaña Servicios, entonces no está registrado como servicio del sistema.

¿Por qué aparece en Windows 10 Home pero no en 11?
Windows 10 Home aún permite más tolerancia con servicios mal registrados. Pero:

Aunque aparezca en la lista de servicios, no se ejecuta correctamente.

No tiene permisos de acceso a disco (ni siquiera para escribir logs).

TService se ejecuta en contexto restringido, sin permisos de escritorio, temporales, o acceso a rutas de usuario como C:\Users.

Conclusión
En Windows Home, los servicios hechos en casa no están del todo soportados.

Aunque el código esté bien, no ejecutará correctamente sin configuración y permisos adecuados.

Lo ideal es probar primero como app normal, y luego migrar a servicio en una edición Pro o usando un instalador con sc.exe.


✅ SOLUCIONES POSIBLES
OPCIÓN 1 — Ejecutar como aplicación normal (no servicio) para pruebas

Código Delphi [-]
// Usa esto como prueba en un TForm con un botón

procedure TForm1.Button1Click(Sender: TObject);
var
  myFile: TextFile;
begin
  AssignFile(myFile, 'C:\Temp\test_log.txt');
  Rewrite(myFile);
  WriteLn(myFile, 'Esto sí escribe desde una app normal.');
  CloseFile(myFile);
end;

👉 Si esto funciona, tu problema es 100% que el servicio no se ejecuta correctamente en modo real.

OPCIÓN 2 — Verifica e instala bien el servicio
Abre una consola como Administrador.

Navega a donde está tu .exe del servicio.

Instálalo:

MyService.exe /install

Luego ábrelo en services.msc, no en el Administrador de tareas.

Asegúrate de que:

Aparece en la lista.

Puedes hacer clic derecho → Iniciar.

No da error al arrancar.

OPCIÓN 3 — Cambia el usuario del servicio
Por defecto, el servicio se ejecuta como LocalSystem, que no puede acceder a carpetas de usuario. Cámbialo:

En services.msc, busca tu servicio.

Clic derecho → Propiedades → pestaña Iniciar sesión.

Marca "Esta cuenta" y pon tu cuenta de usuario de Windows.

Introduce la contraseña.

OPCIÓN 4 — Registra log en el Visor de Eventos (más fiable en servicios)
Agrega esto a WriteLog para registrar en el visor de eventos:

Código Delphi [-]
ReportEvent(
  RegisterEventSource(nil, 'MiServicio'),
  EVENTLOG_INFORMATION_TYPE,
  0, 0, nil,
  1, 0, @PChar(cMsg), nil
);

Es más confiable que escribir a disco bajo LocalSystem.

[_Io]

Hola, Buenas noches.

OPCIÓN 1 — Ejecutar como aplicación normal (no servicio) para pruebas

Si, he empezado con una aplicación, que llama a un thread que desarrolla la lógica de verifactu, cuando llegue el momento retomaré el asunto del servicio.

Muchas Gracias !!!!!