Transformer un exe delphi en service windows

**laadhar** · 26/01/2006, 14h20

Bonjour,

j'ai crée un projet delphi que je dois faire tourner même à station fermée. càd qu'il doit tourner sur un serveur sans pour autant avoir besoin d'un utilisateur loggé pour ce faire.
Je me suis documenté sur le sujet et - parait-il - il faut le transformer en service Windows.
J'ai relu la doc microsoft et delphi sur le sujet, et je veux savoir si c'est vraiment faisable! et si c'est le cas comment faut-il s'y prendre pour le faire.

Si qqn s'y connait, je suis preneur

Merci

**TicTacToe** · 26/01/2006, 16h50

c'est possible en créant un nouveau projet, tu as 'service' dans les styles de projets dispo...
Après tu peux d'une manière ou une autre linker ton projet, ou point d'entrée.

Attention au accès style lecteur mappé, qui ne le sont qu'après login...
je le dis juste au cas ou

**Rayek** · 26/01/2006, 17h59

J'ai fait cela une fois et tres simplement.

Tu crées un service windows avec delphi qui exécute ton application avec un createprocess ou shellexecute et ca suffit.
Bien sur il faut convenablement configurer le service pour qu'il demarre même si le serveur n'est aps logué ^^

**Graffito** · 26/01/2006, 18h04

Bonjour,

Il est possible de transformer directement un .exe en service sans recompilation.
Quelqu'un l'a fait avec un executable que j'avais dévellopé.

je sais pas comment il a fait.

**laadhar** · 27/01/2006, 11h15

bon, j'ai pu créer une appli comme un service windows sous delphi.
ça parait simple. je l'ai essayé sur mon poste en utilisant le compte par défaut (compte système local) et ça marche.

Mais comment faire pour que ça tourne sur un serveur? et comment paramétrer pour que ça puisse tourner même s'il n'y a aucune session ouverte.

Merci bp

**HumanTool** · 27/01/2006, 13h11

salut,
le mieux, sur un serveur, c'est d'avoir un compte dédié au service si possible avec les droits administrateur sinon au moins "ouvrir une session entant que service"
Ensuite à ton projet service, dans les propriétés du service tu as "ServiceStartName" et "Password" qui correspondent au compte exécutant dans l'onglet connexion d'un service windows. donc tu n'a plus qu'à les renseigner.
Ton service utilisera le compte deédié poour ce lancer mais aucune session n'est ouverte.
le fin du fin s'est de renseigner les failures actions (onglet récupération d'unn service windows) mais là delphi ne publie pas les propriétés, il faut écrire dans la base de registre au niveau:
SYSTEM\CurrentControlSet\Services\ + Le nom delphi de ton TService
et écrire la valeur binaire FailureActions correspondante à ce que tu veux (regarde sur ta machine quelle valeur est inscrite et qu'est ce que tu retrouve dans l'onglet du service windows.

Sinon l'objet TService te propose des événements:
procedure ServiceCreate(Sender: TObject);
procedure ServiceDestroy(Sender: TObject);
procedure ServiceExecute(Sender: TService);
procedure ServiceStart(Sender: TService; var Started: Boolean);
procedure ServiceStop(Sender: TService; var Stopped: Boolean);
procedure ServicePause(Sender: TService; var Paused: Boolean);
procedure ServiceContinue(Sender: TService; var Continued: Boolean);

dans lesquels tu peux appellés des procedures ou fonctions delphi, la doc est assez complète sur ces événements (cf. F1 sur TService/Utilisation d'un tservice)

**laadhar** · 27/01/2006, 14h24

et ça je peux le faire depuis ma machine?? si oui, où renseigner que le service tourne sur le serveur.

et puis si j'ai bien compris, si je fixe l'action à faire en cas de défaillance (onglet récupération), ça ne se reporte pas forcément sur lle service? et encore moins sur la base des registres?

et finalement, je ne trouve pas le nom de mon service sous :
"SYSTEM\CurrentControlSet\Services\ + Le nom delphi de ton TService"
c normal?

**HumanTool** · 27/01/2006, 14h32

et ça je peux le faire depuis ma machine?? si oui, où renseigner que le service tourne sur le serveur.

je ne comprends pas exactement ce que tu veux dire mais pour installer ton executable en tant que service windows tu dois l'éxecuter avec les paramètres "Path\ton exe" /INSTALL. donc tu dois executer cette "installation" sur la machine où tu souhaite qu'il tourne.

et puis si j'ai bien compris, si je fixe l'action à faire en cas de défaillance (onglet récupération), ça ne se reporte pas forcément sur lle service?

les failures actions sont définies pour un service donné

et encore moins sur la base des registres?

explique moi ce que tu veux dire par là...

et finalement, je ne trouve pas le nom de mon service sous :
"SYSTEM\CurrentControlSet\Services\ + Le nom delphi de ton TService"
c normal?

oui tant que tu n'as pas executer "Path\ton exe" /INSTALL la clé n'existeras pas.

**laadhar** · 27/01/2006, 14h39

Ah si si, il est bel et bien installé (d'ailleurs il tourne, mé je ne le trouve pas sur la base des registres!).

sinon, pour les failure Action, je sais bien que c'est défini pour un service donné. je répliquais par rapport à :

delphi ne publie pas les propriétés, il faut écrire dans la base de registre
au niveau:
SYSTEM\CurrentControlSet\Services\ + Le nom delphi de ton TService
et écrire la valeur binaire FailureActions correspondante à ce que tu veux (regarde sur ta machine quelle valeur est inscrite et qu'est ce que tu retrouve dans l'onglet du service windows.

comme je trouve dans l'onglet Récupération un moyen de le faire, pourkoi aller dans la base des registres?

Merci

**HumanTool** · 27/01/2006, 14h49

ct pour l'installation (au sens installshield) de ton exe sur un poste au moins il été préconfiguré...

**laadhar** · 27/01/2006, 15h11

ça n'explique tjs pas pkoi je ne trouve pas le nom de mon service dans la base des registres. et d'ailleurs comment je pourrais changer ce nom depuis le code??

j'ai essayé ça mais ça ne marche pas :
...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
private
    FdisplayName: string;
    procedure SetdisplayName(const Value: string);
    { Private declarations }
  public
    property displayName: string read FdisplayName write SetdisplayName;

...
puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TService1.SetdisplayName(const Value: string);
begin
  FdisplayName := Value;
end;

ou est ce que j'écris "Service1.DisplayName := 'XXXX';" ?
[moderation]
Prière d'utiliser les balises de code. Cordialement,Hauwke|/moderation]

**HumanTool** · 27/01/2006, 15h18

ou est ce que j'écris "Service1.DisplayName := 'XXXX';" ?

oui

mais dans la base de registre tu recherche le nom affiché dans le gestionnaire service windows (qui correspond au displayname en effet) ou le nom que tu as donné à ton TService (la propriété name) du type: 'FMonService'

:

**laadhar** · 27/01/2006, 15h29

justement je n'arrive pas à changer le DisplayName avec le code que je viens de poster.

par défaut, il me met DELPHI FR SERVICE dans le gestionnaire!!

voici tout le code:

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
  ExtCtrls;
 
type
  TService1 = class(TService)
    Timer1: TTimer;
    Timer2: TTimer;
    procedure ServiceExecute(Sender: TService);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    FdisplayName: string;
    procedure SetdisplayName(const Value: string);
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    property displayName: string read FdisplayName write SetdisplayName;
 
    { Public declarations }
  end;
 
var
  Service1: TService1;
 
implementation
 
{$R *.DFM}
 
procedure KillProgram(ClassName: PChar; Titre: PChar);
const
    PROCESS_TERMINATE = $0001;
var
    ProcessHandle : THandle;
    ProcessID: Integer;
    Appli : HWND;
begin
    Appli := FindWindow(PChar(ClassName), PChar(Titre));
    GetWindowThreadProcessID(Appli, @ProcessID);
    ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
    TerminateProcess(ProcessHandle,4);
end;
 
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;
 
function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;
 
procedure TService1.ServiceExecute(Sender: TService);
begin
Service1.DisplayName := 'XXXX';
MessageBox(0, 'Start', PChar(Service1.DisplayName), MB_OK);
 while not Terminated do
    ServiceThread.ProcessRequests(True);// attend l'apel de fermeture par windows
end;
 
procedure TService1.SetdisplayName(const Value: string);
begin
  FdisplayName := Value;
end;
 
procedure TService1.Timer1Timer(Sender: TObject);
begin
WinExec('calc.exe', SW_SHOWNORMAL);
Timer1.Enabled := false;
Timer2.Enabled := true;
end;
 
procedure TService1.Timer2Timer(Sender: TObject);
begin
KillProgram(nil,'Calculatrice');
Timer2.Enabled := false;
Timer1.Interval := 5000;
Timer1.Enabled := true;
end;
 
end.

++++++++++++++++++++

J'ai toujours DELPHI FR SERVICE comme DisplayName
[moderation]
Prière d'utiliser les balises afin que vos messages soient plus lisibles par les autres posteurs, d'avance merci de bien vouloir prendre en compte nos observations
Cordialement, hauwke [/moderation]

**HumanTool** · 27/01/2006, 15h51

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
  private
    FdisplayName: string;
    procedure SetdisplayName(const Value: string);
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    property displayName: string read FdisplayName write SetdisplayName;

FDisplayName, SetDisplayName et displayName sont à supprimer.

Ton objet TService a déja une propriété DisplayName que tu peut renseigner en conception (le panneau des inspecteur d'objects Delphi).
Puis il a une propriété Name qui l'identifie en tant qu'objet Delphi mais aussi dans la base de registre et le gestionnaire de service c'est donc un nom unique.
La propriété ServiceStartName correspoind quant à elle au nom du compte executant.
Je sais c'est pas clair au début....

**laadhar** · 27/01/2006, 16h09

bon
l'inspecteur d'objets ne renseigne rien !! hormis le nom de la classe!

j'ai trouvé mon service dans la base des registres sous le nom Service1.
la valeur de la clé DisplayName est DELPHI FR SERVICE.

pleaaaaaaaaaaz dis moi une fois pour toutes comment changer ce p... de DisplayName (sans passer par les registres) et surtout d'où provient le nom Delphi FR SERVICE que j'ai jamais renseigné nullepart.

il va me rendre fouuuuuuu!!

Merci bp.

**laadhar** · 27/01/2006, 16h12

autant pour moi
Delphi FR service est bel et bien ds l'inspecteur d'objets!
mais comment le changer depuis le code???????
Où je m'écris?

j'ai essayé de mettre Service1.displayname:= 'xxx' dans l'event onexecute, mais le displayname reste le même

**laadhar** · 27/01/2006, 16h22

Bon j'ai trouvé..
c moi qui m'embrouille tout seul en fait..

Merci de ta patience :-)

**HumanTool** · 27/01/2006, 16h27

l'inspecteur d'objets ne renseigne rien !! hormis le nom de la classe!

pas normal, moi j'ai :
AllowPause
AllowStop
Dependencies
DisplayName
ErrorSeverity
Interactive
LoadGroup
Name
OldCreateOrder
Password
ServiceStartName
ServiceType
StartType
Tag
TagID
WaitHint

Donc il vaut mieux desinstaller ton service ("path\tonexe" /UNINSTALL), renseigner le DisplayName (s'il apparait mais bon à moins que tu ai un delphi < 5), recompiler le projet, et reinstaller le service ("path\tonexe" /INSTALL).
Et une fois pour toute

, en le spécifiant à la conception ça marche !