Executer un Programme en l'attachant a un processus

Question

Salut j'aimerais savoir comment executer un programme en l'attachant a un
processus ?

davidfdm2002 · Answer

Moi je suis enplein dedans pour un service...
Dans la pratique pour lancer un programme depuis un autre il suffit d'utiliser createprocess..
Voici un petit morceau de code recuper&#233; de ci de la sur le web. Avec &#231;a tu pourra facilement trouver les autres elements necessaires.
En esperant que cela t'aide, bonne continuation :)

Var  StartInfo    : TStartupInfo;
     ProcessInfo  : TProcessInformation;
     Fin          : Boolean;
     Fichier      : String;
     StdOutFile   : THandle;
     SecurityAttr : TSecurityAttributes;
     Lus          : Cardinal;
     Bloc         : PChar;
     Long         : Cardinal;
     Programme : String;
     Repertoire :String;
      Result:String;


begin



;
programme:=' notepad.exe;
                                          }
  FillChar (SecurityAttr, SizeOf(SecurityAttr), #0);
  SecurityAttr.nLength              := SizeOf (SecurityAttr);
  SecurityAttr.lpSecurityDescriptor := Nil;
  SecurityAttr.bInheritHandle       := FALSE;



  Try
    { Mise &#224; z&#233;ro de la structure StartInfo }
    FillChar(StartInfo,SizeOf(StartInfo),#0);
    StartInfo.cb          := SizeOf(StartInfo);
    
        If CreateProcess(Nil, PChar(programme), Nil, nil, false,0, Nil, nil, StartInfo,ProcessInfo) Then
    Begin

      { ProcessInfo.hProcess contient le handle du process principal de l'application }
      Fin:=False;
      Repeat
        { On attend la fin de l'application }
        Case WaitForSingleObject(ProcessInfo.hProcess, 200)Of
          WAIT_OBJECT_0 :Fin:=True; { L'application est termin&#233;e, on sort }
          WAIT_TIMEOUT  :;          { elle n'est pas termin&#233;e, on continue d'attendre }
        End;
        { Mise &#224; jour de la fen&#234;tre pour que l'application ne paraisse pas bloqu&#233;e. }
        Application.ProcessMessages;
      Until Fin;
      { C'est fini }
    End
    Else RaiseLastOSError;
  Finally

cricri_b34 · Answer

... ok j'vais essayer de faire quelque chose avec &#231;a

mais en passant comment qu'on fait pour que notre programme soit consid&#233;r&#233; 
comme un service?

davidfdm2002 · Answer

bon, mais juste en passant alors...
Aulieu de crrer un projet de base style application, tu cr&#233; un projet service, cela te cr&#233; un objet de type Tservice.
Ensuite tu implement la fonction onExecute, ou OnStrat/onBegin dans le cas d'utilisation d'un Tread. tu compile ton programme et voila. Il existe un excelent exemple Delphi sur ce site, qui m'a permit de faire egalement mes premieres armes a ce sujet. Juste fait une recherche sur Service Windows , et tu trouvera :)
voila.

cricri_b34 · Answer

ok merci

mais le code que tu ma donner  ne fait qu'ex&#233;cuter un programme ?

cricri_b34 · Answer

ee jveux juste etre sur qu'on parle de la meme chose : 

pour moi un service c un programme qui est consid&#233;r&#233; comme un programme systeme par windows ?

cricri_b34 · Answer

J'ai chercher des info sur createProcess mais j'ai pas trouv&#233; comment l'utilis&#233; pour executer un programme en l'attachant a un processus

cricri_b34 · Answer

J'ai chercher encore et ca me semble bcp + compliqu&#233; que ca attacher un programme a un processus 
Il faut que mon programme soit consid&#233;rer comment un d&#233;buggueur et ensuite je peux utiliser la fonction : 

function DebugActiveProcess (dwProcessId: DWORD): BOOL

davidfdm2002 · Answer

d&#233;sol&#233; pour la reponse...

woui un service est bien un programme systeme.
Tu cr&#233;&#233; ton service en delphi (delphi 6 pour moi...) , cela te cr&#233; un exe..
en ligne de commande tu ecrit
monexe.exe /install 
et ca te l'installe entant que service  windows.
Poour le desinstaller tu retape
monexe.exe /uninstall 

Voila..
Sinon je comprend pas du tout ce que tu veux faire avec le debuggage...

cricri_b34 · Answer

merci c exactment ca que je voulais savoir 
mais c ou que j'entre ces commande?

davidfdm2002 · Answer

d&#233;sol&#233; encore pour la reponse tardive.
C'est simple depuis une fenetre Dos. 
Demarrer->executer->cmd
et dans le fenetre DOS se placer dans le repertoir (c'est plus simple ).
cd c:\repertoire\monservice
et donc taper monservice.exe /install

cricri_b34 · Answer

ok, merci

mais maintenant, si je veux que mon service s'installe automatiquement.
par exemple si je me cr&#233;er un petit programme qui copira le services a un endroix X, quesce q'il faut que je fasse ensuite pour installer ce service?

j'ai essayer : 

Windows.WinExec('cd ' + ExtractFilePath(Application.ExeName);
Windows.WinExec(ExtractFileName(Application.ExeName) + ' /install')

mais ca ne marche pas

cricri_b34 · Answer

j'ai &#233;t&#233; voir la source, mais je n'ai pas vue qu'elle installait sont services.
commment est ce que shellexecute fonctionne pour installer un service?

cricri_b34 · Answer

eee ca parle pas de shellexecute 
met de net start nonservice.exe
ben comment je me sert de ca?

Executer un Programme en l'attachant a un processus

13 réponses

Votre réponse

Discussions similaires