Delphi-Programm als Dienst

[gkaeberich]

Hallo,

vielen Dank für den Code, aber ich weiß nicht so genau, wo ich den platzieren soll - mein Programm heißt project und hat eine unit1

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;

type
  TService1 = class(TService)
  private
    { Private-Deklarationen }
  public
    function GetServiceController: TServiceController; override;
    { Public-Deklarationen }
  end;

var
  Service1: TService1;

implementation

uses abgleich_Unit;

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;

function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

end.

Der Rest ist in der unit abgleich_unit mit dem Formular form1, Wo also setze ich den beschriebenen Code ein ?

Danke

Günther

[edit=thomasdrewermann]Delphitags eingebaut Mfg, thomasdrewermann[/edit]