Bonjour,
j'utilisais le code suivant
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
 
void __fastcall TForm1::bInvisibleClick(TObject *Sender)
{
  HWND hwnd;
  hwnd=FindWindow("Progman", NULL);  // handle du Program Manager
  hwnd=GetWindow(hwnd, GW_CHILD);    // 1er child window : SHELL_DefView
  hwnd=GetWindow(hwnd, GW_CHILD);    // handle du ListView
  bool Visible=IsWindowVisible(hwnd);
  if (Visible) ShowWindow(hwnd, SW_HIDE);
  else
  {
    ShowWindow(hwnd, SW_SHOW);
    TColor couleur=clBlack;   // couleur du texte
    long TextColor=(long)couleur;
    long OldTextColor=::SendMessage(hwnd, LVM_GETTEXTCOLOR, 0, 0);
    if(OldTextColor!=TextColor)      // changement de la couleur du texte
    {
      ::SendMessage(hwnd, LVM_SETTEXTCOLOR, (WPARAM)0, (LPARAM)TextColor);
      InvalidateRect(hwnd, NULL, TRUE);
    }
	if(::SendMessage(hwnd,LVM_GETTEXTBKCOLOR, 0,0)!= CLR_NONE)
    {
      ::SendMessage(hwnd, LVM_SETTEXTBKCOLOR, (WPARAM)0, (LPARAM)CLR_NONE);
      InvalidateRect(hwnd, NULL, TRUE);
    }
  }
}
pour rendre visibles, ou invisibles les icônes du bureau.

Ce petit programme ne fonctionne plus.
de la cause et du remède?

Merci