Discussion :

[Bernard B]

Bonjour,

Mon application doit lancer une application qui se cache je ne sais trop où. C'est une application installée à partir du Microsoft Store.
J'arrive à lancer cette application via un fichier lien :

C:\Users\nom d'utilisateur\AppData\Local\Microsoft\WindowsApps\AffinityPhoto2.exe

Je voudrais récupérer l'icône de cette application, que je lance par un shelExecute.
Avant (je savais où était l'executable) je la récupérais comme ça :

Code :

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

1
2
3
if SHGetFileInfo(PWideChar(MonAppliExterne),
              FILE_ATTRIBUTE_NORMAL, Info, SizeOf(Info),
              SHGFI_ICON or SHGFI_LARGEICON or SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES)

Malheureusement ce fichier lien ne contient rien et cette fonction ne me renvoie pas l'icône recherchée !

Comment récupérer cette icône ?
Merci

[wheel]

Tu peux la récupérer via le handle de l'application

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
 Ic:TIcon;
 hd,hwnd:integer;
begin
  Ic:=TIcon.Create;
  hwnd:=$0C00D1E; // handle de la form de l'application
  hd := SendMessage(hwnd ,WM_GETICON,1,0);
  if hd = 0 then
     hd := GetClassLong(hwnd, GCL_HICON);
  Ic.Handle:=hd;
  Canvas.Draw(0,0,Ic);
  Ic.Free;
end;

[Bernard B]

Merci wheel pour ta réponse.

Dans ton exemple, il faut le handle de l'application donc elle doit être lancée et ouverte.
Je veux récupérer l'icône de l'application sans la démarrer pour proposer un bouton avec l'icône pour que l'utilisateur la choisisse parmi d'autre et l'ouvre.

[wheel]

Je veux récupérer l'icône de l'application sans la démarrer pour proposer un bouton avec l'icône pour que l'utilisateur la choisisse parmi d'autre et l'ouvre.

Ça ne change pas grande chose une fois récupérée tu pourrais l'enregistrer dans un fichier (TIcon.SaveToFile) et que vous pouvez l'utiliser ultérieurement et la mettre dans une ImageList qui va lui octroyer un handle ..

essaie de la récupérer via l'image index de explorer

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
 
uses ShellAPI,  CommCtrl;
 
...
var
 Info : TSHFileInfo;
 Ic:TIcon;
 ImagesList:THandle;
begin
AFileName :='C:\Users\nom d'utilisateur\AppData\Local\Microsoft\WindowsApps\AffinityPhoto2.exe ';
  ImagesList := SHGetFileInfo('C:\', 0, Info, SizeOf(Info), SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
 
  SHGetFileInfo(PChar(AFileName),
              FILE_ATTRIBUTE_NORMAL, Info, SizeOf(Info),
              SHGFI_ICON or SHGFI_LARGEICON or SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES);
 
  Ic:=TIcon.Create;
 
  Ic.Handle:= ImageList_GetIcon(ImagesList , Info.iIcon,0);
 
  Canvas.Draw(0,0,Ic);
 
  Ic.Free;
end;

si l'application est lancée à partir d'un raccourci tu passes son adresse a cette fonction pour trouver l’icône.

[Bernard B]

Effectivement je peux toujours l'enregistrer une fois que j'y ai eu accès, si j'y ai accès... Je vais essayer.

Par contre ShGetFileInfo ne fonctionne pas car le fichier qui permet de lancer l'appli est un fichier de taille nulle qui n'est qu'un lien vers le vrai executable caché dans la sandbox de windows d'après le peu d'infos que j'ai trouvé.
C'est une appli installée via le MicrosoftStore.
Si quelqu’un sait comment la retrouver et si on peut y avoir accès directement ?