Mon service Windows ne marche pas

**laadhar** · 31/01/2006, 11h23

bonjour,

après installation, le service ne marche pas (ou du moins, il ne m'affiche rien alors qu'il devrait lancer la calculette de windows! pourtant j'ai mis la propriété Interactive = true. voici le code de mon service

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
 
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, ExtCtrls;
 
type
  TServiceTest = class(TService)
    procedure ServiceStart(Sender: TService);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
 
  private
   { Déclarations privées }
  public
    function GetServiceController: TServiceController; override;
    { Déclarations publiques }
  end;
 
var
  ServiceTest: TServiceTest;
 
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 TServiceTest.ServiceStart(Sender: TService);
begin
 
MessageBox(0, 'Start', PChar(ServiceTest.DisplayName), MB_OK);
WinExec('calc.exe', SW_SHOWNORMAL);
 while not Terminated do
    ServiceThread.ProcessRequests(True);
end;
 
procedure TServiceTest.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
KillProgram(nil,'Calculatrice');
MessageBox(0, 'Stop', PChar(serviceTest.DisplayName), MB_OK);
Stopped := True;
end;
 
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  ServiceTest.Controller(CtrlCode);
end;
 
function TServiceTest.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;
 
end.

Merci

**HumanTool** · 31/01/2006, 14h53

salut,
t'as essayé avec

Code :

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

WinExec(PChar('calc.exe'), SW_SHOWNORMAL);

sinon:
http://delphi.developpez.com/faq/?page=services

**laadhar** · 01/02/2006, 12h09

oh oui j'ai tout essayé!
j'ai relu pratiquement tout ce qu'il ya comme Doc dans Internet.
Il n'y a pas un seul endroit ou on parle de Comment transformer un exe en un service windows avec delphi.

je veux juste que mon application (qui marche très bien d'ailleurs s'exécute en tache de fond! c tout !

meme dans la nouvelle faq il n'y aucune allusion là-dessus!

Que quelqu'un m'aide SVP!! Merci bp

**HumanTool** · 01/02/2006, 12h44

Déja la boucle while doit être dans:

Code :

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

1
2
3
4
5
procedure TMonService.ServiceExecute(Sender: TService);
begin
	while not Terminated do
		ServiceThread.ProcessRequests(True);
end;

normalement lors de la création de ton service delphi a du te rajouter ces lignes et la doc donne ce genre d'exemple mais bon...

au start ça se passe comme ça:

Code :

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

1
2
3
4
5
6
procedure TFMainSrv.ServiceStart(Sender: TService; var Started: Boolean);
begin
	Started := True;
	MessageBox(0, 'Start', PChar(ServiceTest.DisplayName), MB_OK);
	WinExec(PChar('calc.exe'), SW_SHOWNORMAL); 
end;

**WolffN** · 01/02/2006, 13h16

Salut

je te deconseille totalement d'utiliser un service dans l'optique d'interragir avec l'utilisateur -> le service peux utiliser une autre session (donc pas de bureau pas de fenetre pas d'affichage)

utilise des fichiers txt pour essayer ton service

@+

**laadhar** · 01/02/2006, 15h15

j'ai déjà fait tout ce que tu viens de dire!

En fait, j'utilise les Templates Delphi pour créer un service!
après, j'essaie d'associer à mes évènements ce qu'il faut faire!
là, je viens de reprendre un nouveau projet et j'ai mis le code que t'as renseigné mot à mot! mais rien ne se passe! meme en allant à "Gestionnaire de taches" je ne trouve pas le process calc.exe

j'ai fait une gourde? ça marche chez toi?

Merci

**HumanTool** · 01/02/2006, 15h35

oui mon service fonctionne mais il fait son job.
Il n'essaye pas de lancer d'autres applis, il reçoit des ordres et les traite...

Donc bon... est ce que le problème n'est pas ailleurs ? Pourquoi comme le dit WolffN as-tu besoin de lancer la calculatrice ?
Je n'ai jamais poussé vers un service interactif mais tes recherches doivent porter sur cette propriété en priorité (voir à se taper les msdn !!!

)

**laadhar** · 01/02/2006, 15h47

Pourquoi comme le dit WolffN as-tu besoin de lancer la calculatrice ?

en fait c pas la calculatrice que je ve lancer.
j'ai une application qui renvoie des statistiques sur l'envoi et réception des emails sur le serveur mail de ma boite!

on veut que cette application s'exécute en tache de fond (même à station fermée, même lorsque personne n'est connecté dessus!)

**laadhar** · 01/02/2006, 15h49

Pourquoi comme le dit WolffN as-tu besoin de lancer la calculatrice ?

en fait c pas la calculatrice que je ve lancer.
j'ai une application qui renvoie des statistiques sur l'envoi et réception des emails sur le serveur mail de ma boite!

on veut que cette application s'exécute en tache de fond (même à station fermée, même lorsque personne n'est connecté dessus!)

**HumanTool** · 01/02/2006, 18h13

Je vois....bon ben si cette application c vous qui l'avez développé en interne il faut la transformer en service windows.
sinon je ne vois pas comme je l'ai dis j'ai jamais essayé l'interactif...
mais je me demande si un appli fenêtrée avec un handle peut être exécuté en dehors des sessions ?? j'en doute mais j'ai aucun argument...

Tiens nous au courant de tes progressions cela peut être intéressant

Mon service Windows ne marche pas

Langage Delphi

Discussions similaires

Partager

Partager