Discussion :

[castorcharly]

Bonjour,

Je développe un petit utilitaire proche de l'écran de démarrage de windows.
Il est simple de lancer une applic avec une forme semi transparente du même genre.

Quand on lance l'écran de démarrage, windows permet de voir en transparence le fond d'écran du bureau,
mais les icônes de raccourci sont masquées et les applis passent en minimisées.

Je sais faire en sorte de minimiser les applis et les restituer à leur état après fermeture de mon utilitaire,
mais comment faire pour les icônes des raccourcis, comment les recenser et les faire disparaître ?

Merci pour votre aide

[Andnotor]

En passant par une énumération des composants enfants en partant du desktop jusqu'à trouver la liste.

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
procedure ShowDesktopIconList(aShow :boolean);
const
  Flags :array[boolean] of integer = (SW_HIDE, SW_SHOWNORMAL);
var
  Worker :hWnd;
  Wnd    :hWnd;
begin
  Worker := 0;
 
  while TRUE do
  begin
    Worker := FindWindowEx(0, Worker, 'WorkerW', nil);
    if Worker = 0 then Exit;
 
    Wnd := FindWindowEx(Worker, 0, 'SHELLDLL_DefView', nil);
    if Wnd = 0 then Continue;
 
    Wnd := FindWindowEx(Wnd, 0, 'SysListView32', nil);
    if Wnd <> 0 then
    begin
      ShowWindow(Wnd, Flags[aShow]);
      Exit;
    end;
  end;
end;

[castorcharly]

Merci AndNoTor,

Je viens de trouver une autre manière qui ressemble beaucoup à la tienne:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure ShortCutIsVisible(value: boolean);var
   Hdn: Thandle;
begin
     hdn:= FindWindowEx(0,0, 'Progman',nil);
     if value then
        ShowWindow(hdn, 5)
     else
         ShowWindow(hdn, 0);
end;

[Andnotor]

Tu développes encore sous Win7 alors, Progman n'existe plus depuis Win10...

Et pour information, l'écran d'autentification est un autre bureau (Winlogon) et non le bureau utilisateur sans icône (Default).

[castorcharly]

Tu développes encore sous Win7 alors, Progman n'existe plus depuis Win10...

Et pour information, l'écran d'autentification est un autre bureau (Winlogon) et non le bureau utilisateur sans icône (Default).

M....de

Mon EDI est sous VM Win7, mais je développe pour Win10, sauf que je n'ai pas encore testé...pas cool ta révélation.

Edit: En tout cas, sous Win7, ça marchait bien. fin edit

Bon, pas grave, je ne développe plus que pour moi, puisque je suis à la retraite depuis 2017

Je vais regarder ça avant d'aller plus loin, peut être que GetDesktopWindow me renverra le bon Handle pour faire ce que je veux.
Dans ton code, je suppose que WorkerW désigne le bureau de travail en cours ?

Merci en tout cas,

[Andnotor]

peut être que GetDesktopWindow me renverra le bon Handle pour faire ce que je veux.

Non si tu veux masquer que des éléments du bureau.

Dans ton code, je suppose que WorkerW désigne le bureau de travail en cours ?

Non, ce sont des objets appartenant au bureau. 0 en premier paramètre de FindWindowEx est équivalent à GetDesktopWindow : recherche des enfants directs du bureau.

Tu peux cependant conditionner tout 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
procedure ShowDesktopIconList(aShow :boolean);
const
  Classes :array[boolean] of string = ('Progman', 'WorkerW');
  Flags   :array[boolean] of integer = (SW_HIDE, SW_SHOWNORMAL);
var
  Wnd :hWnd;
begin
  Wnd := 0;
 
  while TRUE do
  begin
    Wnd := FindWindowEx(0, Wnd, PChar(Classes[TOSVersion.Check(10)]), nil);
    if Wnd = 0 then Exit;
 
    if FindWindowEx(Wnd, 0, 'SHELLDLL_DefView', nil) <> 0 then
    begin
      ShowWindow(Wnd, Flags[aShow]);
      Exit;
    end;
  end;
end;

Par contre je constate que sous Win8 le papier peint appartient à Progman et disparaît, contrairement à 7 ou 11 (j'ai plus 10). Je chercherais plus profondément jusqu'à trouver SysListView32.

Sinon pourquoi ne pas simplement ouvrir une fenêtre plein écran, StayOnTop qui reprend le papier peint en fond ?