Activer un service avec Delphi

Version imprimable

salut

j'ai un fichier prog1.exe dans c: par ex
je veux le mettre en service

un ami m'a donné cette fonction :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 function ServiceCreate(sService,sDisplay,sPath:string):bool; var schm, schs : SC_Handle; begin result:=false; schm:=OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); if (schm > 0) then begin schs:=CreateService(schm,pchar(sService),pchar(sDisplay),SC_MANAGER_ALL_ACCESS,SERVICE_WIN32_OWN_PROCESS,SERVICE_AUTO_START,SERVICE_ERROR_IGNORE,pchar(sPath),nil,nil,nil,nil,nil); if schs > 0 then result:=true else messagebox(0,pchar(inttostr(getlasterror)),0,0); CloseServiceHandle(schs); CloseServiceHandle(schm); end; end;
dans mon appli delphi, dans un boutton je met :
Code:

1 2 ServiceCreate('zzservice','zzdisplayname','c:\prog1.exe');
le service est bien créé mais il est en mode "stop"
ai je oubléi qq chose ? comment faire pour qu'il soit sur start ?

j'ai fais qq recherche sur le forum et la fq mais ça ne correpsond pas à ce que je veux faire

20/12/2005, 23h17
wiglaft

Dans la documentation de MS il y a la Fonction suivante StartService.

The StartService function starts the execution of a service.

Citation:

BOOL StartService(

SC_HANDLE hService, // handle of service
DWORD dwNumServiceArgs, // number of arguments
LPCTSTR *lpServiceArgVectors // address of array of argument string pointers
);
20/12/2005, 23h19
Coussati

merci mais c trop chaud avec els handle etc ...
la fonction que j'utilise à l'air cool, elle ne demande pas trop de chose
seulement il y a un problem
il doit pas être énorme

justement la fonction que tu utilises CreateService provient de la meme catégorie que

See Also

ChangeServiceConfig, CloseServiceHandle, ControlService, DeleteService, EnumDependentServices, OpenSCManager, QueryServiceConfig, QueryServiceObjectSecurity, QueryServiceStatus, SetServiceObjectSecurity, StartService

Donc ton code sera
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 function ServiceCreate(sService,sDisplay,sPath:string):bool; var schm, schs : SC_Handle; begin result:=false; schm:=OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); if (schm > 0) then begin schs:=CreateService(schm,pchar(sService),pchar(sDisplay),SC_MANAGER_ALL_ACCESS,SERVICE_WIN32_OWN_PROCESS,SERVICE_AUTO_START,SERVICE_ERROR_IGNORE,pchar(sPath),nil,nil,nil,nil,nil); /* CODE AJOUTÉ/MODIFIÉ */ if schs > 0 then begin result:= (StartService(schs,0,nil) <> 0); end else messagebox(0,pchar(inttostr(getlasterror)),0,0); CloseServiceHandle(schs); CloseServiceHandle(schm); end; end;

20/12/2005, 23h48
Coussati

impossible de compiler :

Citation:

[Erreur] Unit1.pas(38): Les types des paramètres VAR originaux et formels doivent être identiques
[Avertissement] Unit1.pas(40): Constante 0 convertie en NIL
[Erreur] Unit1.pas(49): ':=' attendu(e) mais ':' trouvé(e)
[Erreur fatale] Project2.dpr(5): Impossible de compiler l'unité utilisée 'Unit1.pas'
21/12/2005, 02h57
Soporifik

J ai 10000000 fois plus simple !

WinExec('c:\blablabla.exe', SW_SHOWNORMAL);

essaie ceci ....

plus simple que ca jcrois pas que c est possible !

bye ....

PS: tient moi au courant !
21/12/2005, 06h33
Coussati

Re: J ai 10000000 fois plus simple !

Citation:

Envoyé par Soporifik

WinExec('c:\blablabla.exe', SW_SHOWNORMAL);

essaie ceci ....

plus simple que ca jcrois pas que c est possible !

bye ....

PS: tient moi au courant !

tu n'as pas compris ma question : je ne veux pas exécuter un prog depuis delphi, je veux juste mettre en service depuis delphi

excuse moi je n'avais pas essayé de compiler. La version suivante ne contient pas d'erreur , juste vérifier les uses WinSvc.
Essait pouvoir si ca fonctionne , sinon les informations se trouvent dans l'aide de microsoft qui est fournit avec Delphi...

Bonne chance...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
function ServiceCreate(sService,sDisplay,sPath:string):bool;
var schm, schs : SC_HANDLE ;
  ptrParam : LPCTSTR;
begin
  result:=false;
  schm:=OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if (schm > 0)
  then begin
    schs:=CreateService(schm,pchar(sService),pchar(sDisplay),SC_MANAGER_ALL_ACCESS,SERVICE_WIN32_OWN_PROCESS,SERVICE_AUTO_START,SERVICE_ERROR_IGNORE,pchar(sPath),nil,nil,nil,nil,nil);
    if schs > 0 then
    begin
      ptrParam := nil;
      result:= StartService(schs,0,ptrParam);
    end
    else messagebox(0,pchar(inttostr(getlasterror)),0,0);
    CloseServiceHandle(schs);
    CloseServiceHandle(schm);
  end;
end;

21/12/2005, 19h08
Coussati

quand je vérifie, le service est créé en mode "pausing"
après qq secondes et bien il revient en mode "stopped"
22/12/2005, 04h04
wiglaft

Je crois que ton application est exécuté qu'une seule fois ou pas du tout. Le probleme est les fonctions de services. Je ne suis pas un expert de se coté, car j'utilise surtout celui fait par Borland. TService.

Est-ce que tu as pensé utiliser le TService de Delphi? Beaucoup plus facile d'utilisation.

Un tel projet peut être créé simplement par File > New > Other > Application Service.

Voici un lien sur un site internet qui explice le fonctionnement du TService et meme un exemple ... si ca t'intéresse

http://www.supinfo-projects.com/en/2...ices_delphi/0/

Sinon, je ne peux plus vraiement t'aider.
Bonne chance.
22/12/2005, 06h02
Coussati

thx ça semble fonctionner grace à ton lien :)