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