Ecran de démarrage et icones

Version imprimable

21/09/2024, 07h28
castorcharly

Ecran de démarrage et icones

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

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

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
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;

Merci AndNoTor,

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

Code:

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;

21/09/2024, 13h44
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).
22/09/2024, 15h34
castorcharly

Citation:

Envoyé par 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).

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 :mrgreen:

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,

Citation:

Envoyé par castorcharly

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.

Citation:

Envoyé par castorcharly

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:

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 ?

23/09/2024, 13h31
castorcharly

Merci pour toutes ces précisions, y a beaucoup de choses qui ont changées en qq.s années.
23/09/2024, 16h42
castorcharly

J'ai une bizarrerie sur mon PC,
autant ça fonctionne bien sur Seven, (avec progman en dur ou ton dernier code avec progman et WorkerW,
mais sous Win10, pas moyen.

J'ai donc regardé ce que testait ton code et j'ai fait un bête TOSVersion.toString
pour voir ce que ma machine sous Win10 renvoyait
et là surprise, toString me renvoi: Windows 8 (Version 6.2, Built 9200, Edition 64 bits) !

J'ai passé en dur WorkerW nada, aucune réaction, j'ai tenté avec Progman, pareil.

Pourtant ma machine est bien en Windows 10 Pro - 64 bits - version 22H2 ?
Je ne sais quoi penser, bug de mon RAD, qui date un peu, je suis sous XE7 Archi, ou de ma version de Windows, même à jour (à priori pas de défaut de Maj).
23/09/2024, 16h51
ShaiLeTroll

L'exe est lancé via un Raccourci ?
Il n'y a pas eu au premier lancement une demande de compatibilité ?
Et du coup c'est la version compatibilité qui serait retourné par TOSVersion.toString ?

TOSVersion.toString retourne par exemple 'Windows 10 (Version 10.0, Build 0, 64-bit Edition)'

Le code fonctionne sur mon Win10 pour info
23/09/2024, 16h56
SergioMaster

Citation:

Envoyé par castorcharly

je suis sous XE7 Archi,
TOSVersion.toString me renvoi: Windows 8 (Version 6.2, Built 9200, Edition 64 bits) !

je crois que c'est "normal", windows 10 (2015-07-29) n'était pas encore sorti à l'époque de XE7 (2014-10-2)
23/09/2024, 17h05
ShaiLeTroll

Effectivement, en XE7 c'était encore 6.3, 6.2 ... Check(10) ça ne pas fonctionner car 10 ce n'est pas le numéro version interne qui doit être toujours à 6.3

Si l'on regarde le code de D10, pour savoir si c'est un Windows 10, cela regarde la version du fichier 'kernel32.dll' car GetVersionEx plafonne à 6

toString est généré par Delphi à partir des valeurs calculées, si GetVersionEx plafonne à 6.2, il affiche Win8

GetVersionEx

Citation:

Les applications sans manifest pour Windows 8.1 ou Windows 10 retournent la valeur de version du système d’exploitation Windows 8 (6.2).
Sinon GetVersionEx retourne toujours la version ciblé par le manifeste

... du coup, le numéro est totalement bidon

Je me souviens d'ailleurs cette découverte : Récupération de la version de l'OS (problème et bug), il faudrait importer manuellement IsWindows10OrGreater une macro qui encapsule VerifyVersionInfoW en fait, si la fonctionne n'existe pas dans 'kernel32.dll' c'est que c'est un windows plus ancien que XP.

En tout cas, en dehors de problème de version, sur Win10, cacher WorkerW avec comme efant SHELLDLL_DefView n'a fonctionné qu'une seule fois !
Curieusement les appels suivants n'ont pas eu d'effet
23/09/2024, 17h21
Andnotor

Il faut ajouter manuellement un manifeste déclarant Win10.

Une autre possibilité, passer par RtlGetVersion.

Code:

function RtlGetVersion(var aVersionInfo :TOSVersionInfo) :HResult; stdcall; external 'ntdll.dll' name 'RtlGetVersion';

Merci à tous pour votre participation.
Qu'il y est un problème via un bug sur Delphi ou sur Windows, masque l'essentiel de mon soucis.

Mon objectif étant de masquer les icones sur le bureau et de réduire ou masquer les fenêtre des applis.
Avec ce problème de version, j'ai contourné le bug (ou une erreur de ma part), en passant en dur les appels.
Il est facile de forcer la recherche du handle de la fenêtre du bureau en passant WorkerW ou Progman dans le code,
plutôt que de laisser le programme identifier la version de Windows.

Le résultat est sous Seven, en utilisant progman en dur ça fonctionne très bien
Sous ma version de Win10, WorkerW, n'a aucun effet et si je passe Progman, même résultat.

Voici mon petit bout de code pour test:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 function SetShortCutVisible(aShow :boolean; Target: integer): boolean; const Classes :array[0..1] of string = ('Progman', 'WorkerW'); Flags :array[boolean] of integer = (SW_HIDE, SW_SHOWNORMAL); var Wnd :hWnd; begin result:= false; Wnd:= 0; Wnd:= FindWindowEx(0, Wnd, PChar(Classes[Target]), nil); if Wnd = 0 then Exit; if FindWindowEx(Wnd, 0, 'SHELLDLL_DefView', nil) <> 0 then begin ShowWindow(Wnd, Flags[aShow]); result:= true; Exit; end; end;

Après une bonne nuit, j'ai repris le collier et le code ci-dessous fonctionne sous mon Win10 :)

Je l'avais zappé

Il me suffira de faire la détection de la version d'OS via la lecture des infos de Kernel32.
Citation:
Envoyé par Andnotor
En passant par une énumération des composants enfants en partant du desktop jusqu'à trouver la liste.
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 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;