Rendre les icônes du Desktop invisibles
Bonjour,
j'utilisais le code suivant
Code:
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
