PureBasic

Supprime manuellement les clé dans le registre puis reinstalle au propre, y'a que ça dans certains cas.

les exemples marchent impeccables. J'ai du modifier une librairie sans m'en rappeler, je vais chercher... En tout cas merci de votre aide..

Ca y est. J'ai isolé la librairie et les fonctions qui foutaient la zone. En fait, dans mon passage à la V4.10 beta2, j'ai du faire du ménage et enlever des initsprite() inutiles. Sauf qu'une fonction de mes librairies utilise un screenoutput(), et ça ne compile plus sous V4.02; Chose étonnante, ça compile sous V4.10... Voilà, voilà, et merci pour votre perspicacité,ça m'a permis de cerner l'erreur.
Voici le Code qui fout la zone, il ne compile pas sous V4.02 sans initsprite(), mais il compile sous V4.10 beta 2 sans initsprite()

Code : Tout sélectionner

Procedure TransfertEcranImage(NumImage.l,LargeurEcran.l,HauteurEcran.l)
 
  Protected ImageID.l
  Protected resultat.l
  resultat=0
  If IsImage(NumImage):FreeImage(NumImage):EndIf
  If CreateImage(NumImage,LargeurEcran,HauteurEcran)
    ImageID=ImageID(NumImage)
    If ImageID
      
      hdc=StartDrawing(ScreenOutput())
      If hdc
        bmp.BITMAP\bmWidth=LargeurEcran
        bmp\bmHeight=HauteurEcran
        bmp\bmPlanes=1
        bmp\bmBitsPixel=GetDeviceCaps_(hdc,#BITSPIXEL)
        bmp\bmBits=DrawingBuffer()
        bmp\bmWidthBytes=DrawingBufferPitch()
        hBmp=CreateBitmapIndirect_(bmp)
        StopDrawing()
        StartDrawing(ImageOutput(NumImage))
        DrawImage(hBmp,0,0)
        StopDrawing()
        DeleteObject_(hBmp)
        resultat=ImageID
      EndIf
    EndIf
  EndIf
  ProcedureReturn resultat
  
EndProcedure

PureBasic

problème après réinstallation[RESOLU]