PureBasic Forums - English

Code: Select all

Structure ICONDIRENTRY   
  bWidth.a;          // Width, in pixels, of the image
  bHeight.a;         // Height, in pixels, of the image
  bColorCount.a;     // Number of colors in image (0 if >=8bpp)
  bReserved.a  ;       // Reserved ( must be 0)
  wPlanes.u    ;         // Color Planes
  wBitCount.u  ;       // Bits per pixel
  dwBytesInRes.l;    // How many bytes in this resource?
  dwImageOffset.l;   // Where in the file is this image?
EndStructure

Structure ICONDIR 
  idReserved.u;   // Reserved (must be 0)
  idType.u    ;       // Resource Type (1 for icons)
  idCount.u   ;      // How many images?
EndStructure

Structure GroupIconData
  bWidth.a;          // Width, in pixels, of the image
  bHeight.a;         // Height, in pixels, of the image
  bColorCount.a;     // Number of colors in image (0 if >=8bpp)
  bReserved.a  ;       // Reserved ( must be 0)
  wPlanes.u    ;         // Color Planes
  wBitCount.u  ;       // Bits per pixel
  dwBytesInRes.l;    // How many bytes in this resource?
  OrdinalName.u ;   // Where in the file is this image?
EndStructure

Structure IconGroupHeader
  idReserved.u;   // Reserved (must be 0)
  idType.u    ;       // Resource Type (1 for icons)
  idCount.u   ;      // How many images?
  GroupIconData.GroupIconData[0]
EndStructure

EnableExplicit


Procedure SetExeIcone(exepath.s,             ;exe full path
                      *pdata.ICONDIR,        ;icon data
                      *name,                 ;name Resource
                      lang = 0)              ;lang Resource
                                             ;return 1 = successfully.
  Protected Result
  Protected *hgi.IconGroupHeader = AllocateMemory(SizeOf(IconGroupHeader)+
                                                  (SizeOf(GroupIconData) * (*pdata\idCount+1)))
  If *hgi
    CopyStructure(*pdata, *hgi, ICONDIR)
    With *hgi
      Protected hResource = BeginUpdateResource_(exepath, 0);
      If hResource <> 0
        
        Protected ii, *icd.ICONDIRENTRY
        For ii = 0 To *pdata\idCount-1
          
          *icd = *pdata + SizeOf(ICONDIR) + (SizeOf(ICONDIRENTRY) * ii)
          CopyStructure(*icd, \GroupIconData[ii],GroupIconData)
          
          \GroupIconData[ii]\OrdinalName = ii+1
          
          Result = UpdateResource_(hResource, #RT_ICON, \GroupIconData[ii]\OrdinalName,lang,
                                   *pdata + *icd\dwImageOffset, *icd\dwBytesInRes)
          If Result = 0
            Break
          EndIf
          
        Next

        If Result <> 0
          Result = UpdateResource_(hResource, #RT_GROUP_ICON, *name, lang,
                                   *hgi, SizeOf(IconGroupHeader)+(SizeOf(GroupIconData) * (*pdata\idCount)))
        EndIf
        
        EndUpdateResource_(hResource, 0)
      EndWith
    EndIf
    
    FreeMemory(*hgi)
  EndIf
  ProcedureReturn Result
EndProcedure


Define filename.s="test.exe"
Define iconpath.s="2.ico"

Define size =FileSize(iconpath)
If size>0
  Define *mem=AllocateMemory(size)
  ReadFile(0,iconpath)
  ReadData(0,*mem,size)
  CloseFile(0)
EndIf

Debug SetExeIcone(filename,*mem,1,2057)

End 

Code: Select all

SendMessage_(WindowID(Window),#WM_SETICON,#Null,ImageID(Ico))