Discussion :

[Charly910]

Bonjour,

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

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
{ ===================================================================== }
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

[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 :

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

1
2
3
4
tmax := Now() + delai ;
repeat
 aHandle := FindWindow('HDD Password Tool', Nil );
until (aHandle > 0) or (Now > tmax);

[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.

[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

[Charly910]

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

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
{ ===================================================================== }
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

[Andnotor]

Attention à l'ordre des paramètres.

Code :

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

FindWindow(nil, 'HDD Password Tool');

[Charly910]

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

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
{ ===================================================================== }
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.

[Charly910]

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 :

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
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