Service und TTimer

[Digielm]

Hier nochmal ein bissel Source

Delphi-Quellcode:

unit Service;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel, Borland.Vcl.ExtCtrls,
  System.Windows.Forms, System.Data, system.serviceprocess, System.Configuration.Install;

type
//  [RunInstaller(true)]
  TService1 = class(System.ServiceProcess.ServiceBase)
  {$REGION 'Vom Designer verwalteter Code'} 
  strict private 
    /// <summary>
    /// Erforderliche Designervariable.
    /// </summary>
    Components: System.ComponentModel.Container;
    /// <summary> 
    /// Erforderliche Methode zur Unterstützung des Designers - 
    /// ändern Sie die Methode nicht mit dem Quelltext-Editor
    /// </summary> 
    procedure InitializeComponent; 
  {$ENDREGION} 
  strict protected 
    /// <summary> 
    /// Ressourcen nach der Verwendung bereinigen 
    /// </summary> 
    procedure Dispose(Disposing: Boolean); override;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  strict protected
    procedure OnStop; override;
    procedure OnStart(args: array of string); override;
  public
    constructor Create;
  end;
//
var
  Service1: TService1;

// [assembly: RuntimeRequiredAttribute(TypeOf(ServiceBase))]

implementation

uses Main;

//{$R *.nfm}
{$AUTOBOX ON} 

{$REGION 'Vom Windows Form-Designer erzeugter Code'} 
/// <summary> 
/// Erforderliche Methode zur Unterstützung des Designers -- 
/// ändern Sie die Methode nicht mit dem Quelltext-Editor 
/// </summary> 
procedure TService1.InitializeComponent;
begin 
  Self.Components := System.ComponentModel.Container.Create;
  Self.ServiceName := 'SAPConnect';
end;
{$ENDREGION}

procedure TService1.Dispose(Disposing: Boolean); 
begin 
  if Disposing then
  begin 
    if Components <> nil then
      Components.Dispose(); 
  end; 
  inherited Dispose(Disposing); 
end; 

constructor TService1.Create; 
begin 
  inherited Create; 
  //
  // Erforderlich für die Unterstützung des Windows Forms-Designers
  //
  InitializeComponent;
  //
//  MessageBox.show('created');
  // TODO: Fügen Sie nach dem Aufruf von InitializeComponent Konstruktorcode hinzu.
  // 
end; 


procedure TService1.onstop;
begin
//
end;

procedure TService1.OnStart(args: array of string);
begin
  Testform := TTestform.Create(self);
  Testform.show;
end;

end.

bei dem SHOW bleibt er eben hängen