Hi,

I'm trying write a daemon with lazarus. I'm creating new project in menu and selecting daemon for new project.

I'm adding new events on daemon1 (create, execute, start, stop). Just wrote a writeln in procedures.

I'm starting with *-r* parameter. Like that: *project1.exe -r *

But just *RegisterDaemon*; procedure is working and finishing. Am i wrong? Why *DataModuleStart* is not working? or another procedure?

I prepared a video, you can see form here : *
http://avar.ath.cx/lazarusdaemon.avi*

And *-i* parameters did not any service to windows services.

Lazarus : 9.27 beta 12-31-2008

*Merry christmas*

*Happy new year *

*M.Ali VARDAR*

-----------------------------------------

unit DaemonUnit1;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, FileUtil, LResources, DaemonApp;
type
  { TDaemon1 }
  TDaemon1 = class(TDaemon)
  procedure DataModuleCreate(Sender: TObject);
  procedure DataModuleExecute(Sender: TCustomDaemon);
  procedure DataModuleStart(Sender: TCustomDaemon; var OK: Boolean);
  procedure DataModuleStop(Sender: TCustomDaemon; var OK: Boolean);
  private
  { private declarations }
  public
  { public declarations }
  end;
var
  Daemon1: TDaemon1;
implementation
procedure RegisterDaemon;
begin
  RegisterDaemonClass(TDaemon1);
  writeln('start');
end;

{ TDaemon1 }

procedure TDaemon1.DataModuleCreate(Sender: TObject);
begin
  writeln('sdfsdf');
end;
procedure TDaemon1.DataModuleExecute(Sender: TCustomDaemon);
begin
  writeln('sdfsdf');
end;
procedure TDaemon1.DataModuleStart(Sender: TCustomDaemon; var OK: Boolean);
begin
  writeln('sdfsdf');
end;
procedure TDaemon1.DataModuleStop(Sender: TCustomDaemon; var OK: Boolean);
begin
  writeln('sdfsdf');
end;
initialization
  {$I daemonunit1.lrs}

  RegisterDaemon;

end.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.lazarus.freepascal.org/pipermail/lazarus/attachments/20081231/ff379206/attachment.html