Discussion :

[youps3]

Bonjour,

Je cherche un code delphi permettant de fermer l'explorateur window sans fermer explorer.exe
Je cherche aussi un code permettant de fermer les fenetres lancés par explorer.exe ( sans faire planter explorer.exe et sans le relancer ) quand par exemple on double-clique sur un dossier.

mon appli fonctionne sous w98 uniquement.

merci

[evarisnea]

salut
pour résoudre ton problème tu peux utiliser les fonctions EnumWindows et GetClassName
je m'explique: tu utilises la fonction EnumWindows pour avoir tous les handles des fenêtres ouvertes, pour chaque fenêtre, tu récupère sa classe avec la fonction GetClassName, il faut savoir que toutes les fenêtres explorer ont un même nom de classe (quelque chose du genre WCabinetClass je ne me rapelle plus trop).
ainsi pour chaque handle que tu auras tu fais le test pour savoir si c'est la bonne classe et si c'est le cas tu envoie à la fenêtre un message WM_QUIT ou autre pour la fermer.
je vais fouiller dans mes archives et t'envoyer un bout de code adéquat.

[evarisnea]

voilà le code en question:

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
unit Unit1
 
interface
 
uses
	Windows, Messages, SysUtils, StrUtils, Classes, ShellApi;
const
  c_CabinetWClass: string = 'cabinetwclass';
 
function  CloseAllExplorer: Integer;
 
 
implementation
 
 
function  CloseAllExplorer: Integer;
var
  Explorer: THandle;
begin
  //fermer toutes les fenêtres explorer ouvertes et retourner le nombre de fenêtres fermées
  //première fenêtre explorer
  Explorer := FindWindow(PChar(c_CabinetWClass), nil);
  result := 0;
  while Explorer <> 0 do begin
    //envoyer un message de commande système a la fenêtre pour la fermer
    if PostMessage(Explorer, WM_SYSCOMMAND, SC_CLOSE, 0) then
      Inc(result);
    //rechercher la fenêtre explorer suivante
    Explorer := FindWindow(PChar(c_CabinetWClass), nil);
  end;
end;

j'espère qu'il résoudra ton problème.

[youps3]

merci beaucoup
ca marche très bien.

pour fermer les fenetres de l'explorateur il faut remplacer

'cabinetwclass' par 'ExploreWClass'.