Shellexecute, Sendmessage et handle

Version imprimable

21/04/2006, 15h59
kioeev

Shellexecute, Sendmessage et handle

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

Salut,

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

Appel de l'application:

Code:

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:

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.

@+

21/04/2006, 21h09
kioeev

cool 8-) merci !

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

genre :

Code:

SendMessage(FHandle,WM_CLOSE,0,0);

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

kioeev
21/04/2006, 21h17
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 ...

@+
21/04/2006, 21h21
ALWEBER

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

Citation:

Envoyé par 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
21/04/2006, 21h22
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

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

Code:

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

et le lancement de l'application s'effectue de cette manière

Code:

1
2
3
4
5
6
7
8
9
 
 
if CreateProcess(nil,StrPCopy(zst1,StAppl1),
nil,nil,False, // @Sec,@Sec,True,
0,Nil,StrPCopy(zst2,StRepTrav1),StartupInfo1,ProcessInfo1) then
WaitForInputIDLE (ProcessInfo1.Hprocess,INFINITE) // attendre que le processus ait démarré
else
MessageDlg(SysErrorMessage(GetLastError),mtError,[mbOk],0) ;
Result := ProcessInfo1 ;

21/04/2006, 22h06
Cl@udius

Salut ALWEBER,

Tout d'abord bienvenu sur ce forum !:D

Je me permet de te faire une petite remarque en te précisant qu'il est préférable d'utiliser les balises de code (bouton # dans l'éditeur) pour faciliter la lecture.

Sinon quelle est la définition de PAppInfo ?
Car j'ai une belle erreur de compil: Identificateur non déclaré !!

@+

Avec un peu de retard voici le code définitif. Cordialement
Alain

Code:

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
 
 
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
PI1 : TProcessInformation ;
implementation
{$R *.DFM}
function ExecuteApp(StAppl1 : string): TProcessInformation ;
var
StParam1,StRepTrav1,St1 : string ;
zst1, zst2: array[0..MAX_PATH] of Char ;
StartupInfo1 : TSTARTUPINFO ;
ProcessInfo1 : TProcessInformation ;
begin
st1 := UpperCase(ExtractFileExt (StAppl1)) ;
Fillchar (ProcessInfo1,SizeOf(ProcessInfo1),0) ; // Initialisations
StParam1 := '' ;
StRepTrav1 := '' ;
if StRepTrav1 = '' then
StRepTrav1 := ExtractFilePath(StAppl1);
fillchar (StartupInfo1, SizeOf(StartupInfo1), #0);
fillchar (ProcessInfo1, SizeOf(ProcessInfo1), #0);
StartupInfo1.cb := sizeof(StartupInfo1);
StartupInfo1.dwflags := STARTF_FORCEONFEEDBACK OR StartF_UseShowWindow;
StartupInfo1.wShowWindow := SW_SHOWDEFAULT; // SW_SHOWMAXIMIZED ; // SW_SHOWDEFAULT;
if StParam1 <> '' then StAppl1 := StAppl1+' '+StParam1 ;
if CreateProcess(nil,StrPCopy(zst1,StAppl1),
nil,nil,False, 
0,Nil,StrPCopy(zst2,StRepTrav1),StartupInfo1,ProcessInfo1) then
WaitForInputIDLE (ProcessInfo1.Hprocess,INFINITE) // attendre que le processus ait démarré
else
MessageDlg(SysErrorMessage(GetLastError),mtError,[mbOk],0) ;
Result := ProcessInfo1 ;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
PI1 := ExecuteApp ('C:\WINDOWS\system32\calc.exe') ;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
LW1,LW2,LW3,lw4 : LongWord ;
begin
LW3 := PI1.dwProcessId ;
Lw1 := OpenProcess(PROCESS_TERMINATE,false,LW3) ;
GetExitCodeProcess(lw1,lw2);
TerminateProcess(lw1,lw2);
end;
end.

21/04/2006, 22h22
Cl@udius

Re salut,

Intéressant ton code, et de plus il marche nickel !! Je vais regarder ça dans le détail.

Merci et @+
22/04/2006, 09h16
kioeev

Cool !
Je vais essayé ça après avoir tondu la pelouse ( 8O )

merciiiiii !

kioeev
25/04/2006, 11h06
kioeev

Impec ! ça fonctionne très bien...

Encore merci

kioeev