FAQ DelphiConsultez toutes les FAQ

Déboguer une extension de Shell n'est pas beaucoup plus compliqué que pour une simple application. La difficulté majeure réside dans le fait que toutes les extensions sont chargées par le processus explorer.exe, et il y a donc quelques paramétrages à effectuer pour faciliter le débogage.

Tout d'abord au niveau de votre projet, ouvrez les options et dans la section "Lieur", cochez la case "Symboles de débogage distant", nécessaire pour le débugage d'applications COM.
N'oubliez pas de décocher cette case après débugage de votre extension, car elle implique la création d'exécutables plus volumineux.

Vous pouvez éventuellement cocher l'option "Utiliser DCUs de débogage" dans la section "Compilateur".

Une fois ces paramètres modifiés, reconstruisez l'intégralité de votre projet, et dans "Exécuter | Paramètres", indiquez "C:\Windows\Explorer.exe" dans "Application hôte", pour que Delphi charge votre extension avec le Shell Windows.

Il reste maintenant à configurer Windows, et ce, selon votre version.
Pour les versions antérieures à Windows 2000, il vous faut changer une valeur de la base de registre qui forcera à décharger votre DLL d'extension quand elle n'est plus utilisée, ce afin de ne pas avoir de problème lorsque vous la recompilerez. Sans cela, elle resterait interdite d'accès en écriture.
Créez une clef HKLM\Software\Microsoft\Windows\CurrentVersion\AlwaysUnloadDLL et affectez "1" à la valeur par défaut de cette clef.

Pour des raisons de performance, désactivez cette option une fois vos débogages terminés.

Pour recharger Explorer avec votre extension, voici une astuce qui fonctionne pour toutes les versions de Windows :

• Chargez votre projet dans Delphi
• Ouvrez la fenêtre de fermeture du système
• Cliquez sur "Non" (ou "Annuler" pour Windows 2000/XP) tout en pressant les touches Ctrl, Alt et Shift. Cela aura pour effet de décharger le Shell Windows, mais en laissant en exécution toutes les autres applications.
• Exécuter votre projet avec Delphi, il chargera Explorer tout en chargeant votre extension de Shell.
  

• Créez la valeur HKLM\Software\Microsoft\Windows\CurrentVersion\DesktopProcess de type DWORD et affectez lui la valeur 1
• Quittez votre session et reconnectez vous
  

Pour cela, il suffit d'utiliser les fonctions ModifyMenu déclarée dans l'unité Windows.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.FormCreate(Sender: TObject); 
var 
  HandleSysMenu: hMenu; 
Begin 
  {modifions le menu de la fenêtre :} 
  {demandons le handle du menu afin de pouvoir nous adresser à lui} 
  HandleSysMenu := GetSystemMenu(Handle, False); 
  
  {modifions un élément du menu} 
  ModifyMenu(HandleSysMenu, sc_Close, mf_ByCommand, sc_Close, '&Quitter mon application à moi'#9'Alt+F4'); 
  
  {supprimons un élément du menu : dans le cas présent, « déplacement »} 
  DeleteMenu(HandleSysMenu, Sc_Move, mf_ByCommand); 
  
  {modifions le menu de l'application, en suivant le même principe :} 
  HandleSysMenu := GetSystemMenu(application.handle,false); 
  
  ModifyMenu(HandleSysMenu, sc_Close, mf_ByCommand, sc_Close, '&Quitter mon application à moi'#9'Alt+F4'); 
end;