[D7][W10] Pb de fermeture d'une application externe

Version imprimable

Bonjour,

j'essaye d'ouvrir, puis de fermer une application externe (TosExtMng.exe) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 { ===================================================================== } procedure TF_Princ.Btn_Test2Click(Sender: TObject); Var aHandle : THandle; Prog : String ; begin Prog := '"C:\Program Files (x86)\TOSHIBA\HDD Password Tool\TosExtMng.exe"' ; ShellExecute(Handle,'open',PChar(Prog),nil,nil,SW_SHOWNORMAL); aHandle := FindWindow('HDD Password Tool', Nil ); If aHandle > 0 Then Begin ShowMessage('Fenêtre HDD Password Tool trouvée') ; SendMessage(aHandle, WM_CLOSE, 0, 0) ; End Else ShowMessage('Fenêtre HDD Password Tool non trouvée') ; End; { ===================================================================== }
L'appli TosExtMng.exe se lance bien, mais Delphi ne trouve pas la fenêtre principale de l'appli ('HDD Password Tool')

Pourtant WinSpy++ me donne bien ce Caption pour la fenêtre qui s'est ouverte.

Je ne comprends pas pourquoi le FindWindow ne la trouve pas ?

Merci pour vos idées

A+
Charly

03/07/2022, 20h31
tourlourou
Bonsoir,
Et si tu temporisais un peu la recherche de la fenêtre, au cas où elle ne soit pas créée au moment où tu la cherches ?
Code:

1 2 3 4 tmax := Now() + delai ; repeat aHandle := FindWindow('HDD Password Tool', Nil ); until (aHandle > 0) or (Now > tmax);
04/07/2022, 09h15
ShaiLeTroll

Tu peux utiliser aussi un CreateProcess pour monitorer non pas la fenêtre mais directement le thread du process via un WaitSingleObjet dans un thread, prend exemple sur ma fonction CallCmd voire le TSLTShellExecuteWrapper.Execute, dans un portail, si l'on coupais le portail, cela coupait aussi toutes les autres applications via une liste des handles ouverts (nécessaires en CITRIX pour libérer complètement la session)

Sinon, je confirme la patience, après tout, une application peut avoir des choses à faire avant d'ouvrir une fenêtre, faut laisser du temps au calcul.
04/07/2022, 09h31
Charly910

Merci à vous 2, j'essaye déjà la solution de Tourlourou (bien que j'avais déjà essayé avec un While sans succès).

A+
Charly

ça ne fonctionne toujours pas. J'ai même mis un showmessage pour laisser le temps à la fenêtre de s'afficher :

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
{ ===================================================================== }
procedure TF_Princ.Btn_Test2Click(Sender: TObject);
Var aHandle : THandle;
  Prog : String ;
  Tmax, Delai : Extended ;
begin
  Prog := '"C:\Program Files (x86)\TOSHIBA\HDD Password Tool\TosExtMng.exe"' ;
  ShellExecute(Handle,'open',PChar(Prog),nil,nil,SW_SHOWNORMAL);
  ShowMessage('Appli lancée') ;
  Delai := 1/24/60 ;
  Tmax := Now() + Delai ;
  Repeat
   aHandle := FindWindow('HDD Password Tool', Nil );
  Until (aHandle > 0) or (Now > tmax);
//    aHandle := FindWindow('HDD Password Tool', Nil );
  If aHandle > 0  Then
    Begin
      ShowMessage('Fenêtre HDD Password Tool trouvée') ;
      SendMessage(aHandle, WM_CLOSE, 0, 0) ;
    End
  Else
    ShowMessage('Fenêtre HDD Password Tool non trouvée') ;
End;
{ ===================================================================== }

Je vais tester la solution de Shai

A+
Charly

04/07/2022, 09h51
Andnotor

Attention à l'ordre des paramètres.

Code:

FindWindow(nil, 'HDD Password Tool');

Je dois mal m'y prendre, mais Callcmd ne me rends pas la main ? :

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
{ ===================================================================== }
procedure TF_Princ.Btn_Test2Click(Sender: TObject);
Var aHandle : THandle;
  Prog : String ;
  ExitCode : Int64 ;
  OutputText, ErrorText : String ;
//  Delay : Cardinal ;
begin
  Prog := '"C:\Program Files (x86)\TOSHIBA\HDD Password Tool\TosExtMng.exe"' ;
//  ShellExecute(Handle,'open',PChar(Prog),nil,nil,SW_SHOWNORMAL);
  Delay := 1 ;
  CallCmd('C:\Program Files (x86)\TOSHIBA\HDD Password Tool', 'TosExtMng.exe',
          '', ExitCode, OutputText, ErrorText) ;
  ShowMessage('Appli lancée'+Chr(13)+ OutputText+Chr(13)+ ErrorText) ;
  aHandle := FindWindow('HDD Password Tool', Nil );
  If aHandle > 0  Then
    Begin
      ShowMessage('Fenêtre HDD Password Tool trouvée') ;
      SendMessage(aHandle, WM_CLOSE, 0, 0) ;
    End
  Else
    ShowMessage('Fenêtre HDD Password Tool non trouvée') ;
End;
{ ===================================================================== }

L'appli TosExtMng.exe est bien lancée, mais mon Showmessage ne s'exécute que si je ferme la fenêtre de TosExtMng.exe.

Merci AndOrNot, c'est bien cela, j'ai inversé les 2 paramètres

(j'avais bêtement repris un code sur internet sans vérifier !!)

ça fonctionne parfaitement maintenant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TF_Princ.Btn_Test2Click(Sender: TObject);
Var aHandle : THandle;
  Prog : String ;
  Tmax, Delai : Extended ;
begin
  Prog := '"C:\Program Files (x86)\TOSHIBA\HDD Password Tool\TosExtMng.exe"' ;
  ShellExecute(Handle,'open',PChar(Prog),nil,nil,SW_SHOWNORMAL);
  ShowMessage('Appli lancée') ;
  Delai := 1/24/60 ;
  Tmax := Now() + Delai ;
  Repeat
    aHandle := FindWindow(Nil, 'HDD Password Tool');
  Until (aHandle > 0) or (Now > tmax);
//    aHandle := FindWindow(Nil, 'HDD Password Tool');
  If aHandle > 0  Then
    Begin
      ShowMessage('Fenêtre HDD Password Tool trouvée') ;
      SendMessage(aHandle, WM_CLOSE, 0, 0) ;
    End
  Else
    ShowMessage('Fenêtre HDD Password Tool non trouvée') ;
End ;

Merci à vous 3

A+
Charly