Delphi 7 - Dienst - Startet seit ca. März 2015 nicht mehr

[taveuni]

Zitat von TPeterT:

Hallo!
(..)
Nun habe ich versucht in Delphi 7 eine neue Service-Apllication zu erstellen ohne weiteren Code: selbes Ergebnis > sofort nach dem Starten (aus Delphi heraus) wird wieder beendet (in Wondows 7).
(..)

Reden wir von einem Dienst welcher unter System gestartet wird? Oder unter einem Benutzer? Oder von einer Applikation (da gabs doch mal was mit Desktop - Interaktion - das funktioniert aber seit Vista nicht mehr)? Zeig doch mal den kompletten Quelltext.

[TPeterT]

Hauptsächlich von einem Dienst mit Systemkonto - allerdings mit sichtbare Forms.
Vom Code her: Neue "Service-Application" erstellt und kein weiteren Code eingegeben.
Sollte sich theoretisch schon als Dienst installieren lassen (bzw. auch aus Delphi heraus starten lassen, ohne dass es sich sofort beendet).
Ich kanns als Dienst installieren/desinstallieren - läuft aber nicht (unter Prozesse solle der Dienst dann eigentlich aufscheinen, nehm ich an? Jedenfalls war es bisher so.)

Der Code (bzw. der nicht vorhandene Code):

Delphi-Quellcode:

----------------------------------------------------------------------------------


program Project1;
uses
  SvcMgr,
  Unit1 in 'Unit1.pas' {Service1: TService};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TService1, Service1);
  Application.Run;
end.


----------------------------------------------------------------------------------



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;

type
  TService1 = class(TService)
    procedure ServiceExecute(Sender: TService);
  private
    { Private-Deklarationen }
  public
    function GetServiceController: TServiceController; override;
    { Public-Deklarationen }
  end;

var
  Service1: TService1;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;

function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TService1.ServiceExecute(Sender: TService);
begin
 showmessage('test');
end;

end.

[taveuni]

Zitat von TPeterT:

Hauptsächlich von einem Dienst mit Systemkonto - allerdings mit sichtbare Forms.

Nein ist seit Vista nicht mehr möglich. Nimm mal ShowMessage raus und mach was anderes. Dann gehts.

[nahpets]

In der Systemsteuerung unter Dienste mal die Eigenschaften des Dienstes anschauen.
Gibt es unter Anmelden die Option "Datenaustausch zwischen Dienst und Desktop zulassen"?

Ist diese aktiviert? Wenn nein, mal ausprobieren.

[TPeterT]

Ohne Messagebox dasselbe: Start -> sofort wieder beendet.

Ja - Datenaustausch ist aktiviert!

[taveuni]

Start in der IDE oder Start des installierten Services?

[baumina]

Wenn ich Unter Delphi XE eine Service-Application beginne, kommt bei mir folgender Hinweis in der Program-Datei, keine Ahnung ob dich das weiter bringt, hab mich nicht näher damit befasst.

Delphi-Quellcode:

program Project20;

uses
  SvcMgr,
  Unit28 in 'Unit28.pas' {Service28: TService};

{$R *.RES}

begin
  // Windows 2003 Server requires StartServiceCtrlDispatcher to be
  // called before CoRegisterClassObject, which can be called indirectly
  // by Application.Initialize. TServiceApplication.DelayInitialize allows
  // Application.Initialize to be called from TService.Main (after
  // StartServiceCtrlDispatcher has been called).
  //
  // Delayed initialization of the Application object may affect
  // events which then occur prior to initialization, such as
  // TService.OnCreate. It is only recommended if the ServiceApplication
  // registers a class object with OLE and is intended for use with
  // Windows 2003 Server.
  //
  // Application.DelayInitialize := True;
  //
  if not Application.DelayInitialize or Application.Installing then
    Application.Initialize;
  Application.CreateForm(TService28, Service28);
  Application.Run;
end.