Hallo,
Ich möchte gerne einen Dienst entwickeln. Bis jetzt habe ich folgendes geschafft:
Das ist ein leerer Dienst und ich kann in installieren und deinstallieren, aber der Dienst wird nicht gestartet, wie stelle ich das an?
Delphi-Quellcode:
unit uMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;
type
TTimeManager =
class(TService)
private
{Private-Deklarationen}
public
function GetServiceController: TServiceController;
override;
{Public-Deklarationen}
end;
var
TimeManager: TTimeManager;
implementation
{$R *.DFM}
procedure ServiceController(CtrlCode: DWord);
stdcall;
begin
TimeManager.Controller(CtrlCode);
end;
function TTimeManager.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;
end.
Vielen Dank schon mal für eure Hilfe.