classe TService :Application Service et lancement d'executable

Question

Bonjour, 
j'ai créé un service window (programme qui tourne en tache de fond- icone 'service' dans le menu nouveau->application sous delphi : Classe TService).
A un moment donné, j'arrive tres bien à lancer des executables qui n'ont pas de fenetre.
Par contre, quand je fais une createProcessus ou shellexec sur des executables qui ont une fenetre, ils sont lancés (leur thread apparait dans la liste des processus) mais ne s'executent pas.

voici le code que j'utilise pour lancer les processus:

var
Si : STARTUPINFO;
Pi : PROCESS_INFORMATION;
theCommandeLine : string;
begin
  Result := True;
  // init processus
  ZeroMemory (@Si,sizeof(STARTUPINFO));
  Si.dwFlags      := STARTF_USESHOWWINDOW;
  Si.wShowWindow  :=  SW_SHOWNORMAL;
  //   creation de la ligne de commande : executable + parametre
  theCommandeLine :=     ACompleteFilename + ' ' + CommandLine;

  // lancement du processus: si erreur, result = False
 if not  CreateProcess(nil,PChar(theCommandeLine),nil,nil,True,0,nil,nil,Si,Pi) then
 begin
          Result := False;
 end else begin
          //Attente fin du processus
           WaitForSingleObject(Pi.hProcess,INFINITE);

OU BIEN :

Error_code := ShellExecute(0,
                              'open',
                              PChar(FProgramToLaunchWhenFinished),
                              PChar (FParametersOfProgramToLaunchWhenFinished),
                              PChar(FProgramToLaunchDirectory),
                              SW_SHOWNORMAL); //

Comment faire.
Merci

cs_maxibug · Answer

Bonjour,

J'ai exactement le même problème. Y a t il une solution ?

Merci

zorg724 · Answer

Oui, en fait c est tres simple: il suffit de selectionner la propriete de l'objet TService : interactive : la mettre à True: on peut ainsi lancer des applications qui ont un handle.
zorg.

Classe TService :Application Service et lancement d'executable

2 réponses

Votre réponse

Discussions similaires