Discussion :

[EricNO]

Bonjour,

Je travaille sur BCB6 sous XP.

Dans mon appli je voudrai lancer une page WEB. puis pouvoir la fermer.
le handle de process que je recupére aprés un shellexecuteex est NULL.
je ne comprend pas pourquoi.

Code ci joint :

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
SHELLEXECUTEINFO exe;
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
exe.cbSize = sizeof(exe);
exe.fMask = SEE_MASK_NOCLOSEPROCESS;
exe.hwnd = NULL;
exe.lpVerb = "open";
exe.lpFile = "http://www.fipradio.fr/player";
exe.lpParameters = NULL;
exe.lpDirectory = NULL;
exe.nShow = SW_SHOW;
exe.hInstApp = NULL;
ShellExecuteEx(&exe);
}
//-------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  if(exe.hProcess)
  { TerminateProcess(exe.hProcess,NULL);
    CloseHandle(exe.hProcess);
  }
}

Si quelqu'un peu m'expliquer pourquoi

Cordialement

EricNo

[ShaiLeTroll]

essaye

Code :

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

exe.lpFile = "iexplore http://www.fipradio.fr/player";

ou

Code :

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

exe.lpFile = "firefox http://www.fipradio.fr/player";

il est possible qu'en exploitant juste l'association shell cela ne fournisse pas de handle

[Guyt54]

Intéressant ton bug, EricNO. Peut-être es-tu tombé là-dessus:

http://blogs.msdn.com/b/oldnewthing/...05/590749.aspx

J'ai bien aimé ce passage:

"First, as we noted, the HINSTANCE that you get from the ShellExecute function is useless. You have to use the ShellExecuteEx function and set the SEE_MASK_NOCLOSEPROCESS flag in the SHELLEXECUTEINFO structure, at which point a handle to process is returned in the hProcess member, But that still doesn't work."

Et la conclusion:

"There is no uniform way to detect that a document has been closed. Each program handles it differently. "

Hâte de voir la solution*!

* après coup, j'en voie une (EnumProcesses), je vais tester ça.

[blondelle]

Salut EricNO
A l'aide de Spy++ j'ai verifie le Handle renvoye par la fenetre qui s'ouvre
Je recupere le Handle de cette facon

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
 
exe.cbSize = sizeof(exe);
exe.fMask = SEE_MASK_NOCLOSEPROCESS;
exe.hwnd = NULL;
exe.lpVerb = "open";
exe.lpFile = "<a href="http://www.fipradio.fr/player" target="_blank">http://www.fipradio.fr/player</a>";
exe.lpParameters = NULL;
exe.lpDirectory = NULL;
exe.nShow = SW_SHOW;
exe.hInstApp = NULL;
ShellExecuteEx(&exe);
 
 
Sleep(1000);
hwnd = FindWindow("IEFrame", "fip - direct - Mercredi 21 Mars 11:54:15 - Windows Internet Explorer");
hwnd = FindWindow("IEFrame", NULL);

j'ai mis une tempo et repete deux fois FindWindow sinon on ne recupere pas le bon Handle, ce n'est pas tres propre, mais c'est peut etre un debut de piste
si tu utilise ce code il faudra reconstruire la date dans le code "Mercredi 21 Mars 11:54:15" avant appel

[EricNO]

Avec le code suivant j'arrive à récuperer le handle du process à condition qu'une fenetre IE ne soit pas déja ouverte.

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
void __fastcall TForm1::Button4Click(TObject *Sender)
{
exe.cbSize = sizeof(exe);
exe.fMask = SEE_MASK_NOCLOSEPROCESS;
exe.hwnd = NULL;
exe.lpVerb = "open";
exe.lpFile = "iexplore";
exe.lpParameters = "http://www.fipradio.fr/player";
exe.lpDirectory = NULL;
exe.nShow = SW_SHOW;
exe.hInstApp = NULL;
ShellExecuteEx(&exe);
}
//-------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  if(exe.hProcess)
  { TerminateProcess(exe.hProcess,NULL);
    CloseHandle(exe.hProcess);
  }
}

Au lieu de travailler sur le handle du process, n'y aurait il pas après un shellexecueex une fonction pour recuperer l'ID du process et une autre fonction pour tuer le process avec son ID ?

Merci par avance

EricNO

[blondelle]

Si ton programme doit juste ouvrir et fermer ta page Web il est possible d'utiliser Ole
le code

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
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <utilcls.h> // <----- ne pas oublier
#include <ComObj.hpp> // <----- utile dans certains cas
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant vMSIEApp;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// demarrer IE
// Cree un objet unique non initialisé de la classe spécifiée
// par le paramètre 'InternetExplorer.Application'
try
  {
// ici en mode debug une exeption est levee c'est un fonctionnement 
// normal, afin d'eviter d'ouvrir deux fois IE, compile en .exe autonome
// ca ne se voie pas, continuer en appuyent sur F9 ou Run
  vMSIEApp = Variant::GetActiveObject("InternetExplorer.Application");
  }
catch(...)
  {
   vMSIEApp = Variant::CreateObject("InternetExplorer.Application");
  }
//Rends l'application IE visible
vMSIEApp.OlePropertySet("Visible", true);
vMSIEApp.OleFunction("Navigate", WideString("<a href="http://www.fipradio.fr/player" target="_blank">http://www.fipradio.fr/player</a>"));
// permet d'attendre le chargement de la page
while(vMSIEApp.OlePropertyGet("ReadyState") != READYSTATE_COMPLETE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// Fermer IE
vMSIEApp.OleFunction("Quit");
// on libere les Variants
vMSIEApp = Unassigned;
}
//---------------------------------------------------------------------------

Le programme avec une autre fenetre IE ouverte
Si tu doit gerer la page ce sera plus difficile

[Guyt54]

Ouais bin, ton problème m'aura occupé toute la journée EricNO. Même pas eu le temps de faire la vaiselle, ma femme était pas contente, je lui ai dit "Au moins, je me couche moins niaiseux ce soir".

Voilà ma solution. Je dis pas qu'elle est la meilleure, c'est celle que j'ai trouvé. Ne jamais confondre "prof" et "professionnel"

D'abord, j'écrirais un petit module de petites fonctions générales de manipulation de processus. Je les mettrais statique dans une classe, histoire de faire moderne.

processes.h

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
 
// processes.h, guyt54
 
#ifndef processesH
#define processesH
 
#include <windows.h>
#include <Psapi.h>     // inclure Psapi.lib dans le projet
#include <classes.hpp>
 
class TProcesses
{
  public:
    static bool AppRunning(AnsiString app) ;
    static bool KillByName(AnsiString app) ;
    static void GetAppsRunning(TStrings* names) ;
 
    static AnsiString GetProcessName(int idProcess) ;
  private:
    enum  {MAX_PROCESSES=1000 } ;
} ;
#endif

processes.cpp:

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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
 
// processes.cpp, guyt54
 
#include "processes.h"
 
bool TProcesses::AppRunning(AnsiString app)
// indique si l'application roule
// app : Nom de l'image du processus (ex: firefox.exe)
{
   DWORD idProcesses[MAX_PROCESSES] ;
   DWORD id,cnt ;
   bool  found ;
 
   EnumProcesses(idProcesses, MAX_PROCESSES*sizeof(cnt),&cnt) ;
   cnt = cnt / sizeof(cnt) ;   // cnt était en bytes
   found = false ;
   for (DWORD i=0 ; (i < cnt) && !found ; i++)
     {
       id = idProcesses[i] ;
       found =  (GetProcessName(id) == app) ;
     }
   return found ;
}
 
bool TProcesses::KillByName(AnsiString app)
// Tue le processus, ou "app" est le nom de l'image
{
   DWORD idProcesses[MAX_PROCESSES] ;
   DWORD id,cnt ;
   bool  found,done ;
 
   EnumProcesses(idProcesses, MAX_PROCESSES*sizeof(cnt),&cnt) ;
   cnt = cnt / sizeof(cnt) ;   // cnt était en bytes
   done = false ;
   found = false ;
   for (DWORD i=0 ; (i < cnt) && !found ; i++)
     {
       id = idProcesses[i] ;
       found =  (GetProcessName(id) == app) ;
       if (found)
         {
           HANDLE hProcess ;
           hProcess = OpenProcess(PROCESS_TERMINATE,false,id);
           done = TerminateProcess(hProcess,0);
		   	     CloseHandle(hProcess);
         }
     }
  return done ;
}
 
AnsiString TProcesses::GetProcessName(int idProcess)
// retourne le nom d'image associé au processus
{
  AnsiString appName ;
 
  TCHAR name[256] ;
 
  HANDLE hProcess = OpenProcess( PROCESS_QUERY_INFORMATION | PROCESS_VM_READ,
 
                                  FALSE, idProcess );
  name[0] = 0 ;
 
  if (hProcess)
    {
        HMODULE hMod;
        DWORD cbNeeded;
        if ( EnumProcessModules( hProcess, &hMod, sizeof(hMod),
             &cbNeeded) )
        {
            GetModuleBaseName( hProcess, hMod, name,256) ;
            appName = name ;
        }
    }
  return appName ;
}
 
 
 void TProcesses::GetAppsRunning(TStrings* names)
 // renvoie dans la liste des noms des processus
 {
   DWORD idProcesses[MAX_PROCESSES] ;
   DWORD cnt ;
   AnsiString name ;
   names->Clear() ;
   EnumProcesses(idProcesses, MAX_PROCESSES*sizeof(cnt),&cnt) ;
   cnt = cnt / sizeof(cnt) ;   // cnt était en bytes
   for (DWORD i= 0 ; i < cnt ; i++)
     {
       name = GetProcessName(idProcesses[i]) ;
       if (!name.IsEmpty()) // il arrive que le nom d'un process soit vide
         names->Add(name) ;
     }
 }

Je me servirais ensuite de ce module pour te proposer une solution:

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
 
#include "processes.h"
 
AnsiString defaultBrowser = "firefox.exe" ; // variables normalement définis dans TForm1
bool browserWasOpened ;
 
void __fastcall TForm1::btLaunchClick(TObject *Sender)
{
  browserWasOpened = TProcesses::AppRunning(defaultBrowser)  ;
  ShellExecute(NULL, L"open",L"http://guyt54.blogspot.com",NULL, NULL, SW_SHOWNORMAL);
}
 
void __fastcall TForm1::btCloseClick(TObject *Sender)
// ferme le browser ssi il était fermé avant le "Launch"
{
  if (!browserWasOpened)
     TProcesses::KillByName(defaultBrowser) ;
}
 
void __fastcall TForm1::btAppsRunningClick(TObject *Sender)
// c'est surtout ça qui m'intéressait
{
  TProcesses::GetAppsRunning(ListBox1->Items)  ;
}

ça marche, mais ça ne règle pas tout à fait le problème, il reste à trouver comment on fait pour trouver le browser par défaut.

Je suis arrivé à ça*, faudrait voir si ça fonctionne dans tous les cas.

* deuxième version

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
 
#include <registry.hpp>
 
AnsiString GetDefaultOpenApp(AnsiString dot_ext, bool fullPath)
// retourne l'application associée à "open"
// dot_ext: inclure le point (ex: ".html)
// si fullPath, chemin complet, sinon nom de fichier seulement (ex: "firefox.exe")
{
  TRegistry* reg ;
  AnsiString opener,stg ;
 
  reg = new TRegistry() ;
  reg->RootKey = HKEY_CLASSES_ROOT ;
  if (reg->OpenKeyReadOnly("\\" + dot_ext))
    {
      stg = reg->ReadString("") ; // lire défaut
 
      if (!stg.IsEmpty())
        {
          stg.sprintf("\\%s\\shell\\open\\command",stg) ;
          ShowMessage(stg) ;
          if (reg->OpenKeyReadOnly(stg))
            {
               opener = reg->ReadString("") ;
               int pos = opener.Pos("exe") ;
               if (pos >=0)
                   opener.Delete(opener.Pos("exe")+3,255) ;
               if (fullPath)
                 {
                   if (opener.Pos("\"")== 1)
                     opener.Delete(1,1)  ;
                 }
               else
                  opener = ExtractFileName(opener) ;
            }
        }
    }
  delete reg ;
  return opener ;
}

Si jamais tu le testes, n'oublie-pas de prendre le lien que j'utilise avec le "ShellExecute", tu vas voir, y a du niveau.

[EricNO]

Merci à tous pour vos réponses,
je vais prendre le temps d'essayer chacune d'entre elles.