je viens de faire une mini-service.

Voici le code source Delphi 7(Pour l'instant il ne fait pas grand chose)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;
 
type
  TService2 = class(TService)
    procedure ServiceAfterInstall(Sender: TService);
  private
    { Déclarations privées }
  public
    function GetServiceController: TServiceController; override;
    { Déclarations publiques }
  end;
 
var
  Service2: TService2;
 
implementation
 
{$R *.DFM}
 
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service2.Controller(CtrlCode);
end;
 
function TService2.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;
{******************************************************************************
              after  install service
******************************************************************************}
procedure TService2.ServiceAfterInstall(Sender: TService);
Var
  Fich_s_Data,Fic   : TStrings;
 
Begin
 
Fich_s_data:=TStringList.Create;
Fic:=TStringList.Create;
Fich_s_data.Add('afterInstall');
Fich_s_data.SaveToFile('c:\service.txt');
 
//liberation memoire
Fich_s_Data.Free;
Fic.Free;
 
 
end;
 
end.
Je suis sous Windows XP. lorsque Pour installer le service, je tape "Service.exe /install". Mais mon service n'apparait pas la liste

est-ce normal ou pas