Programm wird nach Start wieder beendet

[Angel4585]

Hallo,

nachdem ich das Problem habe einen Dienst laufen zu lassen, möchte ich ein Programm im Hintergrund laufen lassen und dieses per AutoStart starten.

soweit so gut.
Das Programm braucht keine Eingabemaske, weswegen ich die Main-Form weggemacht habe und jetzt nurnoch ein TDataModule habe.
Das Problem ist das das programm sofort nach dem Start wieder beendet wird. ich vermute ich muss irgendwo ne Schleife oder sowas einbauen, aber ich steh grad echt aufm Schlauch
Wo muss ich sowas einbauen damit die Anwendung erst beendet wird wenn Windows runtergefahren wird?

MfG

[Jelly]

Du wirst ein Fensterhandle brauchen, und sowas hat ein Datenmodul nicht. Natürlich kannst du im OnCreate vom Datenmodul eine Endlosschleife packen, aber unter welchen Kriterien willst du die denn verlassen, wenn du das Programm manuell beenden willst. Ausserdem frisst so eine while(true) Schleife unglaublich viel CPU.

Lass doch ein Forumlar in der Anwendung, aber zeige es nur nicht an (application.ShowMainForm auf false setzen). Das sollte gehen.

[Angel4585]

Habs schon: einfach im Quelltext der Projektdatei folgendes:

Delphi-Quellcode:

Application.Initialize;
  Application.Run;
  while not Application.Terminated do
    begin
    Application.ProcessMessages;
    sleep(100);
    end;

braucht auch kaum bis keine CPU

[RavenIV]

Zitat von Angel4585:

nachdem ich das Problem habe einen Dienst laufen zu lassen, möchte ich ein Programm im Hintergrund laufen lassen und dieses per AutoStart starten.

Was ist das Problem?
- Dienst programmieren?
- Benutzerrechte?
- oder was?