Discussion :

[kioeev]

Hello,

Alors j'ai une petite interrogation ( je m'y prend surement pas bien )

Je lance une application externe via :
ShellExecute(handle,'Open','C:\WINDOWS\system32\calc.exe',nil,nil,SW_SHOWNORMAL);

Je souahiterai fermer à souhait cette appli depuis delphi
via par exemple :
SendMessage(handle,WM_CLOSE,0,0);

Seulement comment connaitre le handle de l'application lancée par shellexecute ?

merci d'avance pour toute pistes !

ciao
kioeev

[Cl@udius]

Salut,


Pour ce faire j'utiliserais ShellExecuteEx au lieu de ShellExecute.

Appel de l'application:

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  ExecuteInfo: TShellExecuteInfo;
begin
  with ExecuteInfo do
  begin
    cbSize := Sizeof(ExecuteInfo);
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := 0;
    lpVerb := PChar('open');
    lpFile := PChar('C:\WINDOWS\system32\calc.exe');
    lpParameters := nil;
    nShow := SW_SHOW;
  end;
  if ShellExecuteEx(@ExecuteInfo) then
    FHandle := ExecuteInfo.hProcess
  else
    FHandle := 0;
end;

Et pour fermer:

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  if FHandle > 0 then
  begin
    TerminateProcess(FHandle, 0);
     FHandle := 0;
  end;
end;

Bon cette méthode de fermeture fonctionne, mais elle est peut-être un peu brutale.

Quelqu'un d'autre pourra peut-être améliorer cette solution.

@+

[kioeev]

cool merci !

peut-etre justement avec Sendmessage ? Maintenant qu'on connait le handle ?...

genre :

Code :

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

SendMessage(FHandle,WM_CLOSE,0,0);

Merci en tout cas ! Je vais essayer ça...

kioeev

[Cl@udius]

Une petite remarque: Un SendMessage() ne fonctionnera pas avec la valeur de FHandle, qui est le handle du process et non celui de la fenêtre.

Néanmoins tu peux essayer de récupérer la Handle de la fenêtre avec FindWindow(nil, "calculatrice"), a voir ...

@+

[kioeev]

yep, j'ai vu ça dans mes recherches
sauf que le but est qu'un parametre sera justement une application quelconque à lancer ... donc difficille de prévoir le nom de la f'netre !

merciiiiii !

kioeev

[ALWEBER]

Pour terminer le process ça ressemble un peu près à ceci

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
 
var
s1,s2 : smallint ;
i1 : integer ;
AppInfo: PAppInfo;
LW1,LW2,LW3,lw4 : LongWord ;
begin
for s1 := 0 to (ListAppliActives.Count-1) do
begin
AppInfo := ListAppliActives[s1] ;
for s2 := 0 to High(ArHFen1) do
if ArHFen1[s2].IdInfoProcessus = AppInfo.ProcessID then
BringWindowToTop(ArHFen1[s2].IdHFen) ;
LW3 := AppInfo.ProcessID ;
Lw1 := OpenProcess(PROCESS_TERMINATE,false,LW3) ;
GetExitCodeProcess(lw1,lw2);
TerminateProcess(lw1,lw2);
GetExitCodeThread (AppInfo.Thread.Processus, lw4) ;
TerminateThread (AppInfo.Thread.Processus, lw4) ;
end ;

La liste des process est constituée dans une liste par ailleurs

[ALWEBER]

J'ai la réponse à ta question. Je recherche dans mes programmes

Hello,

Alors j'ai une petite interrogation ( je m'y prend surement pas bien )

Je lance une application externe via :
ShellExecute(handle,'Open','C:\WINDOWS\system32\calc.exe',nil,nil,SW_SHOWNORMAL);

Je souahiterai fermer à souhait cette appli depuis delphi
via par exemple :
SendMessage(handle,WM_CLOSE,0,0);

Seulement comment connaitre le handle de l'application lancée par shellexecute ?

merci d'avance pour toute pistes !

ciao
kioeev