[D7] [Win32] Utilisation de FindWindow

**Charly910** · 09/01/2018, 14h45

Bonjour et bonne année à tous,

j'ouvre NotePad avec un ShellExecute.

le titre de la fenêtre de NotePad qui s'affiche est 'Impression.txt - Bloc-notes'

j'essaye de trouver le Handle de la fenêtre de NotePad :

Code :

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

1
2
3
  Titre := 'Impression.txt - Bloc-notes' ;
  H := FindWindow('NotePad', Pchar(Titre));
  ShowMessage('Handle de '+Titre+ ' : '+IntToStr(H ) ) ;

Ce code me renvoie toujours 0

(par contre si je fais FindWindow('NotePad', nil) j'obtiens bien un Handle. Mais je voudrais être sûr d'obtenir le bon, celui que j'ai ouvert !)

Est ce que j'utilise mal FindWindow ?

Merci
A+
Charly

**Andnotor** · 09/01/2018, 15h20

Non, c'est ton titre qui est faux

C'est un espace insécable qui est ajouté à la suite du fichier :

Code :

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

Titre := 'Impression.txt'#160'- Bloc-notes';

**Charly910** · 09/01/2018, 17h39

Merci AndnotOr,

tu es génial

A+
Charly

**guillemouze** · 10/01/2018, 11h10

Attention, ton traitement n'est viable que sur un Windows français ! (et tant qu'ils ne changent pas la façon d'afficher le caption, et tant que ton utilisateur n'avait pas ouvert lui même de fichier qui s’appelle impression.txt

)
Peut-être que tu devrais remplacer ton ShellExecute par un CreateProcess, et récuperer le handle du process que tu viens de créer.

**Charly910** · 10/01/2018, 11h13

Oui, c'est vrai.

mais createProcess est un peu plus compliqué à utiliser que ShellExecute.

Je vais faire un essai

Merci
Charly

**Charly910** · 10/01/2018, 16h04

A l'aide de la FAQ, j'ai bricolé ceci pour lancer Notepad en ouvrant un fichier texte :

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
{ ====================================================================== }
Function TF_Princ.LanceNotePad(Fichier : String): Hwnd ;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation; 
  CommandLine: {$IFDEF UNICODE}WideString{$ELSE}string{$ENDIF}; 
Begin
  Result := 0 ;
  If not FileExists(Fichier) Then
    Begin
      MessageDlg('Fichier '+Fichier+' introuvable' , mtError, [mbOk], 0) ;
      Exit ;
    End ;
  CommandLine := '"Notepad.exe" "'+Fichier+'"' ;
  ZeroMemory(@StartupInfo, SizeOf(StartupInfo)) ;
  StartupInfo.cb := SizeOf(StartupInfo) ;
  if CreateProcess(nil, PChar(CommandLine), nil, nil, FALSE, 0, nil, nil, StartupInfo, ProcessInfo) then
    Begin
      Result := ProcessInfo.hProcess ;
      CloseHandle(ProcessInfo.hProcess) ;
      CloseHandle(ProcessInfo.hThread) ;
    End ;
End ;
{ ====================================================================== }

Je l'utilise comme ceci

Code :

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

  HImp := LanceNotePad(FicImprime) ;

j'affiche bien le fichier et je récupère bien le Handle dans HImp de type Hwnd. Mais lorsque que je veux fermer NotePad par :

Code :

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

 If HImp <> 0 then SendMessage(HImp, WM_SYSCOMMAND, SC_CLOSE, 0);

NotePad ne se ferme pas ? pourtant HImp a bien la bonne valeur dans ce code ...

A+
Charly

PS : avec

Code :

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

If HImp <> 0 then PostMessage(HImp,WM_CLOSE,0,0);

ça ne marche pas non plus !

**Andnotor** · 10/01/2018, 17h37

Envoyé par Charly910

NotePad ne se ferme pas ? pourtant HImp a bien la bonne valeur dans ce code ...

Ben non, c'est n'est pas le handle d'une fenêtre que tu retournes mais celui d'un processus, il n'y a pas de menu associé.

La méthode bourrin serait de faire un TerminateProcess sur ce handle mais une meilleure façon est de retourner le handle du thread principal (hThread) et de lui balancer un WM_QUIT par PostThreadMessage (WM_QUIT force la sortie de la boucle de messages créée par GetMessage de façon inconditionnelle).

Code :

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

1
2
PostThreadMessage((GetThreadID(HImp), WM_QUIT, 0, 0);
CloseHandle(HImp);

Le code ci-dessus implique par contre que tu ne libères pas hThread juste après l'appel à CreateProcess mais uniquement lorsque tu n'en as plus besoin (pas de CloseHandle(ProcessInfo.hThread)). Le mieux serait donc que ta fonction retourne directement le ThreadID :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function TF_Princ.LanceNotePad(Fichier : String): dword;
begin
  ...
  if CreateProcess(nil, PChar(CommandLine), nil, nil, FALSE, 0, nil, nil, StartupInfo, ProcessInfo) then
    Begin
      Result := GetThreadID(ProcessInfo.hThread);
 
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
    End;
end;

puis simplement :

Code :

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

1
2
3
4
5
6
var
  ImpID :dword;
 
ImpID := LanceNotePad(...);
...
PostThreadMessage(ImpID, WM_QUIT, 0, 0);

Voili, voilou

**Charly910** · 10/01/2018, 17h55

Merci je teste tout cela
A+
Charly

**Charly910** · 10/01/2018, 18h45

Petit Couac : GetThreadId n'est pas trouvé :

Identificateur non déclaré : "GetThreadId"

j'ai pourtant la clause Uses Windows dans mon appli ? est ce à cause de D7 ? ou bien dans une autre unité ?

Charly

**Charly910** · 12/01/2018, 10h07

Bonjour,

Après quelques recherches, j'ai trouvé ceci sur le net :

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
function GetThreadID(ProcessName : string ) : DWORD ;
var
  Handle:tHandle;
  Process:tProcessEntry32;
  GotProcess:Boolean;
begin
  Handle:=CreateToolHelp32SnapShot(TH32CS_SNAPALL,0) ;
  Process.dwSize:=SizeOf(Process);
  GotProcess := Process32First(Handle,Process);
{$B-}
  if GotProcess and (Process.szExeFile<>ProcessName) then
      repeat
        GotProcess := Process32Next(Handle,Process);
      until (not GotProcess) or (Process.szExeFile=ProcessName);
{$B+}
  if GotProcess then Result := Process.th32ProcessID
    else Result := 0;
        CloseHandle(Handle);
end;

mais cela ne compile pas sur D7.

J'en déduis que j'ai un Delphi trop faiblard ! et je m'en tiens donc à ma solution initiale avec la première correction fournie par Andnotor.

Merci à tous

A+
Charly

**cincap** · 12/01/2018, 10h47

Bonjour à toutes et à tous,

@ Charly910, à une époque j'utilisais ce code peut être qu'il y a quelque chose d'intéressant :

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
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
 
type 
  PFindWindowsStruct = ^TFindWindowsStruct; 
  TFindWindowsStruct = record 
    ProcessID: DWORD; 
    HandleList: TList; 
  end; 
 
function EnumWindowsProc(hwnd: HWND; lParam: LPARAM): boolean; stdcall; 
var 
  dwProcessId: DWORD; 
begin 
  if lParam <> 0 then 
  begin 
    GetWindowThreadProcessId(hwnd, dwProcessId); 
    with PFindWindowsStruct(lParam)^ do 
      if dwProcessID = ProcessID then 
        HandleList.Add(Pointer(hwnd)); 
    result:= true; 
  end 
  else 
    result:= false; 
end; 
 
procedure FindProcessWindows(ProcessID: Integer; Handles: TList); 
var 
  findWindowsStruct: TFindWindowsStruct; 
begin 
  findWindowsStruct.ProcessID:= ProcessID; 
  findWindowsStruct.HandleList:= Handles; 
  EnumWindows(@EnumWindowsProc, Integer(@findWindowsStruct)); 
end; 
 
function NotepadPID: Cardinal; 
var 
  StartInfo: TStartupInfo; 
  ProcessInfo: TProcessInformation; 
begin 
  result:= 0; 
  { Mise à zéro de la structure StartInfo } 
  FillChar(StartInfo, SizeOf(StartInfo), #0); 
  { Seule la taille est renseignée, toutes les autres options } 
  { laissées à zéro prendront les valeurs par défaut } 
  StartInfo.cb:= SizeOf(StartInfo); 
 
  { Lancement de la ligne de commande } 
  if CreateProcess(nil, 'Notepad.exe', nil, nil, false, 
    0, nil, nil, StartInfo, ProcessInfo) then 
    result:= ProcessInfo.dwProcessId 
  else 
    RaiseLastOSError; 
end; 
 
function FindHandle(PID: Cardinal): HWND; 
const 
  TIMEOUT = 5000; // 5 secs 
var 
  handles: TList; 
  ticks: DWORD; 
begin 
  handles:= TList.Create; 
  ticks:= GetTickCount; 
  try 
    while (handles.Count = 0) and (GetTickCount - ticks < TIMEOUT) do 
      FindProcessWindows(PID, handles); 
    if handles.Count > 0 then 
      result:= HWND(handles[0]) 
    else 
      result:= 0; 
  finally 
    handles.Free; 
  end; 
end; 
 
function StartNotepad: HWND; 
var 
  pid: Cardinal; 
begin 
  pid:= NotepadPID; 
  result:= FindHandle(pid); 
end;

Utilisation :

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
25
26
27
28
29
30
31
32
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  h: HWND; 
begin 
  h:= StartNotepad; 
  if h <> 0 then 
  begin 
    // On change la taille de la fenêtre 
    SetWindowPos(h, 0, 0, 0, 320, 200, 0); 
 
    // On change le parent de la fenêtre par notre panel (par exemple) 
    Windows.SetParent(h, panel1.Handle); 
  end; 
end; 
 
ou
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  h: HWND; 
begin 
  h:= StartNotepad; 
  if h <> 0 then 
  begin 
    // On change la taille de la fenêtre 
    SetWindowPos(h, 0, 0, 0, panel1.Width, panel1.Height, 0); 
 
    // On change le parent de la fenêtre par notre panel (par exemple) 
    Windows.SetParent(h, panel1.Handle); 
  end; 
end;

@+,

cincap

**Andnotor** · 12/01/2018, 10h56

Ajoute simplement cette déclaration :

Code :

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

function GetThreadId(Thread: THandle): dword; stdcall; external 'Kernel32.dll';

**Charly910** · 12/01/2018, 11h31

Merci Andornot,
ça marche nickel.

je l'utilise comme cela :

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
25
26
27
{ ====================================================================== }
Function TF_Princ.LanceNotePad(Fichier : String): dword;
// Lancement de Notepad avec CreateProcess
//  renvoie le Handle du process
//  il faut ajouter la déclaration :
//      function GetThreadId(Thread: THandle): dword; stdcall; external 'Kernel32.dll';
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  CommandLine: {$IFDEF UNICODE}WideString{$ELSE}string{$ENDIF};
Begin
  Result := 0 ;
  If not FileExists(Fichier) Then
    Begin
      MessageDlg('Fichier '+Fichier+' introuvable' , mtError, [mbOk], 0) ;
      Exit ;
    End ;
  CommandLine := '"Notepad.exe" "'+Fichier+'"' ;
  ZeroMemory(@StartupInfo, SizeOf(StartupInfo)) ;
  StartupInfo.cb := SizeOf(StartupInfo) ;
  if CreateProcess(nil, PChar(CommandLine), nil, nil, FALSE, 0, nil, nil, StartupInfo, ProcessInfo) then
    Begin
      Result := GetThreadID(ProcessInfo.hThread);
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
    End;
End ;

et pour tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
{ ====================================================================== }
Procedure TF_Princ.Ferme ;
var
  ImpID :dword;
Begin
  ImpID := LanceNotePad(FicImp);
  ShowMessage('Notepad ouvert') ;
  PostThreadMessage(ImpID, WM_QUIT, 0, 0);
End ;
{ ====================================================================== }

Cela me permet de fermer Notepad à la sortie de mon appli si jamais on ne l'a pas fait avant.

merci encore

A+
Charly

[D7] [Win32] Utilisation de FindWindow

Delphi

Discussions similaires

Partager

Partager