Changer dynamiquement icône application PB

[cage]

Bonjour a tous,

Est-il possible de changer dynamiquement l'icône d'une application PB (celle qui s'affiche en haut a gauche de la fenêtre de l'application) comme on peut le faire avec ChangeSysTrayIcon(#SysTrayIcon, ImageID)

Merci pour l'aide que vous pourrez m'apporter.
cage

[case]

en utilisant les api windows

Code : Tout sélectionner

;d'apres le code de rsbasic.de

hIcon = ExtractIcon_(0, #PB_Compiler_Home + "PureBasic.exe", 1)

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  SendMessage_(WindowID(0),#WM_SETICON,#False,hicon) 
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf


DestroyIcon_(hIcon)

[cage]

Merci case pour ta réponse.
C'est ce que je cherchais a faire avec juste une petite modification.
Voici le code modifié pour arriver a mes fins:

Code : Tout sélectionner

DataSection ; Images
  Image_App1:
  IncludeBinary "icones\app1.ico"
  Image_App2:
  IncludeBinary "icones\app2.ico"
  Image_App3:
  IncludeBinary "icones\app3.ico"
EndDataSection

Enumeration Images
  #Image_App1
  #Image_App2
  #Image_App3
EndEnumeration

Global Icon1 = CatchImage(#Image_App1, ?Image_App1)
Global Icon2 = CatchImage(#Image_App2, ?Image_App2)
Global Icon3 = CatchImage(#Image_App3, ?Image_App3)

NewMap image()
image("1") = Icon1
image("2") = Icon2
image("3") = Icon3

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  Repeat
    ForEach image()
      SendMessage_(WindowID(0),#WM_SETICON,#False,image())
      Delay(1000)
      WindowEvent()
    Next
  Until WaitWindowEvent(20) = #PB_Event_CloseWindow

EndIf

DestroyIcon_(hIcon)

Les icônes sont embarquées directement dans l’exécutable et selon les circonstances, je peux adapter l'icône de la fenêtre.

Merci pour ton aide.
cage