Wenn ich einen neuen Service erstelle kommt folgender vordefinierter Quelltext - ob du daraus einen service basteln kannst hängt von deinem knowhow ab. Allerdings dürftest du mit diesen zeilen beinhahe die gleiche vorraussetzung haben
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;
type
TService1 =
class(TService)
private
{ Private declarations }
public
function GetServiceController: TServiceController;
override;
{ Public declarations }
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;
end.