Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Win 2000 Dienst
Autor: Ralf
Datum: 09.08.02 08:54
Hi, das geht so: nachdem du dein programm kompiliert hast, musst du den dienst auch installieren. dazu schreibst du am beseten unter "start/ausführen" hinter deinen Programmnamen die Parameter -install und -remove zum deinstallieren. diese fangen wir ab mit dem code, der im Form_load steht: Dim bStarted As Boolean Dim parmInterval As String If Command = "-install" Then 'Installieren NTService1.Interactive = True If NTService1.Install Then Call NTService1.SaveSetting("Parameters", "TimerInterval", "1000") MsgBox strDisplayName & " erfolgreich installiert." Else MsgBox strDisplayName & " konnte nicht installiert werden." End If End ElseIf Command = "-uninstall" Then 'Deinstallieren If NTService1.Uninstall Then MsgBox strDisplayName & " erfolgreich deinstalliert." Else MsgBox strDisplayName & " konnte nicht deinstalliert werden." End If End ElseIf Command = "-debug" Then NTService1.Debug = True ElseIf Command <> "" Then MsgBox "Unbekannter Kommandozeilenparameter" End End If parmInterval = NTService1.GetSetting("Parameters", "TimerInterval", "2000") ' Pause/Fortfahren muss initialisiert werden, bevor ' StartService aufgerufen wurde oder man sich im ' Design Modus befindet NTService1.ControlsAccepted = svcCtrlPauseContinue ' Service zum "Windows NT services controller" verbinden NTService1.StartService Zusätzlich die Ereignisse zum Abfangem Private Sub NTService1_Continue(Success As Boolean) DEIN CODE End Sub Private Sub NTService1_Control(ByVal e As Long) DEIN CODE End Sub Private Sub NTService1_Pause(Success As Boolean) DEIN CODE End Sub Private Sub NTService1_Start(Success As Boolean) DEIN CODE End Sub Private Sub NTService1_Stop() DEIN CODE End Sub Gruss Ralf

Win 2000 Dienst	49	Tobiwan	08.08.02 12:22
Re: Win 2000 Dienst	40	Ralf	08.08.02 14:07
Re: Win 2000 Dienst	38	Tobiwan	08.08.02 17:05
Re: Win 2000 Dienst	34	Ralf	09.08.02 08:54
Vielen Dank (oT)	25	Tobiwan	09.08.02 10:04
Re: Win 2000 Dienst	34	Matthias	09.08.02 08:04

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen