Discussion :

[Altau]

Je souhaite arrêter un service avec le code trouvé sur ce site

Code :

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

1
2
3
4
5
6
7
SERVICE_STATUS OpenServStatus;
SC_HANDLE  schandle, Fservice;
// Arrête le service "Mises à jour automatiques"
	schandle=OpenSCManager(NULL, NULL, SC_MANAGER_ALL_ACCESS);
CodeErreur = GetLastError();
	Fservice=OpenService(schandle, "\"Mises à jour automatiques\"", SERVICE_QUERY_STATUS|SERVICE_START|SERVICE_STOP);
CodeErreur = GetLastError();

Le premier CodeErreur renvoie bien 0 mais le dernier CodeErreur renvoie 1060 c'est-à-dire "Le service spécifié n'existe pas en tant que service installé".
Vous vous doutez bien que si je pose la question, c'est que

Code :

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

Net Stop "Mises à jour automatiques"

dans une fenêtre de commandes fonctionne tout a fait correctement.

Quelqu'un peut-il m'expliquer ? Ou y aurait-il dans BC2006 quelque chose de plus simple ?

[blondelle]

Salut Altau
Je ne sais pas si tu a vu ce tuto de CGI sur le site

http://chgi.developpez.com/windows/services/

[Altau]

Oui, oui, Blondelle, c'est bien pour ça que je pose la question : qu'y a-t-il de particulier pour que mon code ne fonctionne pas ?

[blondelle]

Le code de CGI pour desinstaller un 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
 
Voyons brièvement sa désinstallation. Elle s'effectue avec la fonction DeleteService après avoir ouvert le service avec OpenService. 
#include "Windows.h"
#include "Winsvc.h"
int main()
{
    SC_HANDLE hSCManager;
    SC_HANDLE hServ;
    hSCManager = OpenSCManager(NULL,NULL,SC_MANAGER_ALL_ACCESS);
 
    hServ=OpenService(hSCManager,"MonService",SERVICE_ALL_ACCESS);
    DeleteService(hServ);
    CloseServiceHandle(hServ);
    CloseServiceHandle(hSCManager);
    return 0;
}

ton code differe a partir d'ici

Code :

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

1
2
3
Fservice=OpenService(schandle, "\"Mises à jour automatiques\"", SERVICE_QUERY_STATUS|SERVICE_START|SERVICE_STOP);
CodeErreur = GetLastError();

j'ai aussi trouve un lien sur un site asiatique

http://www.programfan.com/article/sh...le.asp?id=1802

[Traxsilver]

L'arreter temporairement ou définitivement ou le désinstaller ?

[Altau]

Il s'agit ici de l'arrêter, et, après avoir exécuté une action particulière, le redémarrer.
Il n'est pas question de le désinstaller.
Ce qui m'interpelle, c'est qu'avant-même que je fasse quoi que ce soit, la fonction OpenService échoue (dès la 4ème ligne de code que Blondelle nous montre). Bien sûr, j'ai aussi bien essayé le paramètre "\"Mises à jour automatiques\"" que "Mises à jour automatiques".

[spech]

Bonjour

si tu veut avoir aussi des renseignements sur les services, tu peut regarder dans la BDR.
Il doit bien y en avoir d'autres mais j'ai pas chercher.

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum\Root

la valeur "DeviceDesc" sont les commentaire dans "services.msc" etc..

A++

[DjmSoftware]

bonjour Altau
Le code ci-dessous te permettra de travailler directement avec le nom complet du 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
 
 void  __fastcall TForm10::ProcessServices(char* szDisplayServiceName)
 {
   SERVICE_STATUS OpenServStatus;
   SC_HANDLE  schandle=NULL, Fservice=NULL;
   bool resu=false;
   const MaxLen=255;
   char szDisplayName[MaxLen];
   char szServiceName[MaxLen];
   strcpy(szDisplayName,szDisplayServiceName);
   DWORD cchBuffer=MaxLen;
// Arrête le service "Mises à jour automatiques"
  schandle=OpenSCManager(NULL, NULL, SC_MANAGER_ALL_ACCESS);
  if(schandle)
  {
	   resu=GetServiceKeyName(schandle,
							  szDisplayName,
							  szServiceName,
							  &cchBuffer);
	  if(resu)
	  {
		Fservice=OpenService(schandle,
							 szServiceName,
							 SERVICE_QUERY_STATUS|SERVICE_START|SERVICE_STOP);
		if (Fservice)
		{
		   ControlService(Fservice, SERVICE_CONTROL_STOP, &OpenServStatus);
		  // Exécute le MSI
		  //  ShellExecute(Application->Handle, "open", "msiexec.exe", parametres, NULL, SW_SHOWDEFAULT);
		  // Démarre le service "Mises à jour automatiques"
		 if(!StartService(Fservice,NULL,NULL))
		 {
		  CloseServiceHandle(Fservice);
		  CloseServiceHandle(schandle);
		  RaiseLastOSError();
		 }
		 else
		   CloseServiceHandle(Fservice);
		}
		else
		 {
		  CloseServiceHandle(schandle);
		  RaiseLastOSError();
		 }
	   }
   CloseServiceHandle(schandle);
  }
 }

ce service est contrôlé par le process svchost il est par contre possible que la demande d'arrêt du service provoque une erreur, lors d'un accès concurrent entre ton application et svchost

Cordialement

[Altau]

Eh bien ça tourne nickel après compil sous BCB 2006.
Merci à tous.