FiveTech Support Forums

// C:\FWH\SAMPLES\REALOC.PRG

#include "FiveWin.ch"

static oWnd

FUNCTION Main()

   LOCAL oBar

   DEFINE WINDOW oWnd TITLE "Explode Memoria en 8 gbs Windows 10"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION XB_REALOCC()

   SET MESSAGE OF oWnd TO "Explode Memoria en 8 gbs Windows 10" NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd

RETURN NIL

FUNCTION XB_REALOCC()

   LOCAL cString := "", i, aDados := {}

   hb_gcAll( .F. )

   FOR I := 1 TO 550000 // 1000000

      SYSREFRESH()

      cString += "Mais Dados Aqui"

      AADD( aDados, { i, { i, cString } } )

   NEXT

   XBROWSE( cString )

RETURN NIL

// FIN / END