;/ PureBasic 3.94 / Droopy 22/09/06
;/ Met à jour des resources dans un exe
;/ Prérequis : Ne fonctionne qu'avec un fichier intégrant déjà des ressources.


Procedure InsertResource(File.s, Resource.s, ResourceName.s, DeleteExistingResources   )
 
  Size = FileSize(Resource)
  If Size>0
     
    *InsertResourcePtr = AllocateMemory(Size)
    No = ReadFile(#PB_Any, Resource)
    ReadData(*InsertResourcePtr, Size)
    CloseFile(No)
     
    hUpdateRes = BeginUpdateResource_(File, DeleteExistingResources)
    If hUpdateRes
      If UpdateResource_(hUpdateRes, #RT_RCDATA, ResourceName, #LANG_NEUTRAL, *InsertResourcePtr, Size)
        Ret = 1
      EndIf
      EndUpdateResource_(hUpdateRes, #False)
      FreeMemory(*InsertResourcePtr)
      ProcedureReturn Ret
    EndIf
  EndIf
 
EndProcedure