unit Serviceinstaller;
interface
uses
System.Drawing, System.Collections, System.ComponentModel, Service,
System.Windows.Forms, System.Data, system.serviceprocess, System.Configuration.Install;
type
[RunInstaller(true)]
TInstaller =
class(System.configuration.Install.installer)
{$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>
serviceProcessInstaller1 : System.ServiceProcess.ServiceProcessInstaller;
serviceInstaller1 : System.ServiceProcess.ServiceInstaller;
procedure Dispose(Disposing: Boolean);
override;
private
public
{ Private-Deklarationen }
// procedure Install(stateSaver: IDictionary); override;
public
constructor Create;
end;
[assembly: RuntimeRequiredAttribute(TypeOf(System.configuration.Install.installer))]
implementation
{$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 TInstaller.InitializeComponent;
begin
Self.Components := System.ComponentModel.Container.Create;
//
// serviceProcessInstaller1
//
self.serviceProcessInstaller1.Account := System.ServiceProcess.ServiceAccount.LocalSystem;
self.serviceProcessInstaller1.Password :=
nil;
self.serviceProcessInstaller1.Username :=
nil;
//
// serviceInstaller1
//
self.serviceInstaller1.ServiceName := '
SAP-ERPConnect';
self.serviceInstaller1.StartType := System.ServiceProcess.ServiceStartMode.Automatic;
//
// ProjectInstaller
//
self.Installers.AddRange([self.serviceProcessInstaller1]);
end;
{$ENDREGION}
procedure TInstaller.Dispose(Disposing: Boolean);
begin
if Disposing
then
begin
if Components <>
nil then
Components.Dispose();
end;
inherited Dispose(Disposing);
end;
constructor TInstaller.Create;
begin
inherited Create;
//
// Erforderlich für die Unterstützung des Windows Forms-Designers
//
InitializeComponent;
//
// TODO: Fügen Sie nach dem Aufruf von InitializeComponent Konstruktorcode hinzu.
//
end;
procedure Install(stateSaver: IDictionary);
begin
MessageBox.Show('
Install');
end;
end.